Meu form não insere no banco de dados.

[rafagleandro 0]

amigos, possuo um formulario de cadastro em asp, que pede informações, e dadas as informações, ele envia os dados do formulario, e me redireciona a página de "sucesso.asp" que me informa que os dados foram gravados com sucesso. Mas na verdade ele n gravou nada no banco de dados access... gostaria de saber c o código esta errado... Dsd ja agradeço..

 

 

 

<form method="post" action="cadastra.asp" name="form" onsubmit="return valida_campo()">
 <div align="center">
   <center>
     <table width="44%" border="0" cellspacing="2" cellpadding="2">

     </table>
     <table border="0" width="316" bgcolor="F5F5F5">
       <tr bgcolor="#FFFFFF"> 
         <td colspan="2" height="34"> 
           <div align="center"><font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000066">Cadastre-se</font></b></font></div>
         </td>
       </tr>
       <tr> 
         <td width="147"><font size="2" face="Verdana" color="0000cc">Nome:</font></td>
         <td width="159"> 
           <input type="text" name="nome" size="20" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;">
         </td>
       </tr>
       <tr> 
         <td width="147"><font size="2" face="Verdana" color="0000cc">E-mail:</font></td>
         <td width="159"> 
           <input type="text" name="email" size="20" style="font-family: Verdana; font-size: 8 pt; COLOR: 0000CC;" onBlur="confere()">
         </td>
       </tr>
       <tr> 
         <td width="147"><font size="2" face="Verdana" color="0000cc">Data de Nascimento (dd/mm/aaaa):</font></td>
         <td width="159"> 
           <input type="text" name="telefone" size="20" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;">
         </td>
       </tr>
       <tr> 
         <td width="147"><font size="2" face="Verdana" color="0000cc">Comentario:</font></td>
         <td width="159"> 
           <textarea rows="4" name="comentario" cols="20" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;"></textarea>
         </td>
       </tr>
       <tr> 
         <td colspan="2"> 
           <p align="center"> 
             <input type="submit" value="Enviar" name="enviar">
         </td>
       </tr>
     </table>
   </center>
 </div>
</form>

 

 

cadastra.asp

ASP

<%

 

Option Explicit

 

Response.Expires = 0

 

Dim objConn, objRs, strQuery, strConnection, nome, nascimento, email, comentario

 

nome = Request.Form("nome")

nascimento = Request.Form("nascimento")

email = Request.Form("email")

comentario = Request.Form("comentario")

 

Set objConn =  Server.CreateObject("ADODB.Connection")

 

objConn.Open "DBQ=" & Server.MapPath("clientescontato.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

 

strQuery = "INSERT INTO contato (nome,nascimento,email,comentario) VALUES ('"&nome&"','"&nascimento&"','"&email&"','"&comentario&"')"

 

On error Resume Next

 

Set ObjRs = objConn.Execute(strQuery)

 

objConn.close

 

Set objRs = Nothing

Set objConn = Nothing

 

if error = 0 Then

 

        response.redirect ("sucesso.asp")

end if

%>

 

 

aguardo resposta... tenho urgencia na resposta, sou iniciante em asp... diouloco@hotmail.com

[Ted k' 126]

coloque essa linha (Set ObjRs = objConn.Execute(strQuery)) antes do On ERROR

 

ASP

Set ObjRs = objConn.Execute(strQuery)

On error Resume Next