[Resolvido] Gerador de Mensalidades

[claytonprog 0]

Pessoal!

 

Mais uma solução simples e prática - Um scripts para gerar mensalidades! Segue o exemplo:

 

 

'recebendo valores vindos de formulário
		
		  
	perfil = Request.QueryString("id")
	plano = Request.QueryString("plano")
	valor = Request.QueryString("valor")
	parcelas = Request.QueryString("parcelas")
	nome = Request.QueryString("nome")

   

   	
	'------- INICIO DA GERAÇÃO DAS MENSALIDADES --------------------
   		
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db/mensalidades.mdb")
	   		
		
	
	'Session.LCID = 1046 
	
	vardata_venc = date()
	
			   
							
	for x = 1 to parcelas
	
	dt2 = DateAdd ("m", x, vardata_venc)
	
   
		
   sql = "INSERT INTO mensalidades (id_afiliado, id_plano, valor, parcela, data_venc)"
   sql = SQL & " VALUES ("
   sql = SQL & "'" & perfil & "',"   
   sql = SQL & "'" & plano & "',"	
   sql = SQL & "'" & valor & "'," 
   sql = SQL & "'" & x & "',"	
   sql = SQL & "'" & dt2 & "')"

   set bd = conn.execute(sql)	
			
   next
   
   
	 '------- FINAL DA GERAÇÃO DAS MENSALIDADES  --------------------
			 
	  
   
	%>

 

Espero que este script ajude a todos os estavam a procura de uma solução.