<p align="center"><b>Adicionar Pagamento
</b></p>
<form name=addvip method=post action=addvip.asp?action=addvip>
<p align="center">
<br><b>Conta: </b><input type="text" name="nome" size="20" class=button value="Usuario">
</p>
<p align="center"><b>Vencimento: </b><input type="text" name="vencimento" size="20" class=button value="00/00/0000"></p>
<p align="center"></p>
<p align="center"><b>Pagou total: </b><input type="text" name="totalpago" size="20" class=button value="0,00"></p>
<p align="center"><input type="submit" name="addvip" value=" Salvar " class="button"> -
<input type="button" value=" Voltar " class="button" onclick="java script:history.back()'"></p>
</form>
<%
action=request("action")
if action="addvip" then
errormsg="error"
randomize timer
s=1+int(rnd*10000)
session("yzm")=s
%>
<%
set DB = createobject("adodb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("addvip.mdb")
DB.open constr
Set objRS = Server.CreateObject("ADODB.Recordset")
Request.Form("addvip")
If (nome = "") then
response.write "<script language=javascript>alert('Voc deve digitar o nome do usuario que pagou.');history.back()</script>"
Else
If (totalpago = "") then
Response.write "<script language=javascript>alert('Voc deve digitar um valor do total.');history.back()</script>"
Else
If (vencimento = "") then
Response.write "<script language=javascript>alert('Voc deve digitar a data do vencimento para bloquear.');history.back()</script>"
Else
set rs = DB.execute("INSERT INTO pagamentos Values('"&nome&","&totalpago&","&vencimento&"')")
end if
end if
end if
%>
<%end if%>
ele fica dando erro alguem pode me dizer a solução?
