Codigo nao grava dados no banco

[fabio Avila 1]

Galera é seguinte , to tentando fazer uma rotina p / dados de forma parcelada , mas ele nao esta gravando ma minha tabela , estou usando o codigo abaixo:

 

<!--#include file="db.asp"-->

<% AbreConexao

If request.form("enviado") = "sim" Then

Cadastrado =False

set Dicionario = CreateObject("scripting.dictionary")

i = 0

 

 

Vet = Dicionario.items

if Dicionario.Count<>0 then

Response.Write "<b><center><font face=verdana size=1>"

Response.Write "O(s) seguintes dado(s) está(ão) incorreto(s)<BR><br>"

for i = 0 to Dicionario.Count - 1

Response.Write vet(i) & "<BR><br>"

next

response.write "<BR><br>"

 

Else

'Request.Form("associado") se for várias parcelas para um associado, o esquema abaixo está certo

cont = 1

geral = Request.Form("parcelas")

for cont = 0 to geral step 1

' v1 = Request.Form("npar" & cont) 'aqui da parcela

data = Request.Form("vencimento" & cont) 'aqui a data da parcela

valor = Request.Form("valor" & cont) 'aqui o valor de cada parcela

if v1 <> "" then

'sql = "insert into mensalidades(v1,v2,v3) values ('" & v1 & "','" & v2 & "','" & v3 & "')"

'Database.Execute(sql)

Sql = "INSERT INTO mensalidades (npar, valor, vencimento) "

Sql = Sql & "VALUES('" & data & "', '" & valor & "', '" & Request.Form("associado") & "')"

Conexao.Execute(Sql)

end if

next

'Sql = "INSERT INTO mensalidades (vencimento, valor, associado) "

'Sql = Sql & "VALUES('" & Request.Form("vencimento") & "', '" & Request.Form("valor") & "', '" & Request.Form("associado") & "')"

'Conexao.Execute(Sql)

Cadastrado = True

End If

End If

If Cadastrado = False Then

Else

Alguem pode dar uma força ae ....

 

[]ços

[hargon 64]

Está apresentando alguma mensagem de erro?

[fabio Avila 1]

Ele nao da erro nenhum ... apenas diz q foi Cadastrado com sucesso , mas nao ta mandando nada p/ BD......

[hargon 64]

Coloca o response.write "Cadastrado com sucesso" logo acima do INSERT e faça um teste. Terá que aparecer escrito a mensagem caso tenha cadastrado.

[Mário Monteiro 179]

Mas nenhum dos inserts funcionou?

[desisto 0]

da um response.write sql

antes do Conexao.Execute(Sql)

posta o que apareceu

 

 

e faca esse teste:

Sql = "INSERT INTO mensalidades (npar, valor, vencimento) "
Sql = Sql & "VALUES('data', 'valor', 'venc')"

diga se gravou esses valores

[]s

[jrcardozo 4]

qual query que está com problema?