Mais ou menos assim: <%
Option Explicit
Dim vlrTotal, vlrParcela, numParcelas, datVencimento, intAux
vlrTotal = 500
numParcelas = 5
vlrParcela = vlrTotal / numParcelas
datVencimento = #04/02/2008#
For intAux = 1 To numParcelas Step 1
Response.Write "Parcela: " & intAux & " | Valor: " & vlrParcela & " | Vencimento: " & DateAdd("m", intAux - 1, datVencimento) & "<br />"
Next
%>