Abrindo conexão e gravando dados.

[mkboy 1]

Quando clico em enviar, ele da uma pagina de erro.Onde esta o erro!O Nome do banco é "fish" e a tabela é "bo"

<%c_nome = Request.form("c_nome")c_email = Request.form("c_email")session("c_nome") = c_nomesession("c_email") = c_email%><%data = day(now) & "/" & month(now) & "/" & year(now)hora = hour(now) & ":" & minute(now)IP = Request.ServerVariables("REMOTE_ADDR")if c_nome = "" or c_email = "" thenresponse.redirect "index.asp"elseSet Conn = Server.CreateObject("ADODB.Connection")conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("fish.MDB") Conn.Open ConStr        theSQL = "insert into bo"        theSQL = theSQL & "(nome, email, data, hora, "        theSQL = theSQL & "ip)"        theSQL = theSQL & " values ('"&nome&"','"&email&"', '"        theSQL = theSQL & data&"', '"&hora&"', '"&ip&"')"                               fishDB.Execute (theSQL) fishDB.close set fish = Nothingend if%>

[salmeida 0]

cara mande o erro e a linha onde esta o erro...abraços

[dimarcinho 0]

cara, kd o Recordset ???????????????????????

 

se liga

 

 

<%c_nome = Request.form("c_nome")c_email = Request.form("c_email")session("c_nome") = c_nomesession("c_email") = c_email%><%data = day(now) & "/" & month(now) & "/" & year(now)hora = hour(now) & ":" & minute(now)IP = Request.ServerVariables("REMOTE_ADDR")if c_nome = "" or c_email = "" thenresponse.redirect "index.asp"elseSet Conn = Server.CreateObject("ADODB.Connection")conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("fish.MDB") Conn.Open ConStrSet RS = Server.CreateObject("ADODB.Recordset")        theSQL = "insert into bo"        theSQL = theSQL & "(nome, email, data, hora, "        theSQL = theSQL & "ip)"        theSQL = theSQL & " values ('"&nome&"','"&email&"', '"        theSQL = theSQL & data&"', '"&hora&"', '"&ip&"')"Set RS = conn.execute(theSQL)conn.closeSet Conn = NothingSet RS = Nothingend if%>

[]'s

[mkboy 1]

hehe, esqueci do record set.Valeu mesmo!!!!Agora funcionou legal, gravou todos os dados.Eu fiz um redirect, depois que grava os dados, e funcionou, fiz uma página com uma mensagem de cadastro ok.Só que agora eu defini o campo email no banco como chave primária, para os usuários não cadastrarem duas vezes o mesmo email.beleza, ele nao esta aceitando, só que eu gostaria de colocar um redirect quando alguem entrar com um email ja cadastrado.Tentei e nada consegui, como faço!

<%c_nome = Request.form("c_nome")c_email = Request.form("c_email")session("c_nome") = c_nomesession("c_email") = c_email%><%data = day(now) & "/" & month(now) & "/" & year(now)hora = hour(now) & ":" & minute(now)IP = Request.ServerVariables("REMOTE_ADDR")if c_nome = "" or c_email = "" thenresponse.redirect "index.asp"elseSet Conn = Server.CreateObject("ADODB.Connection")conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("fish.MDB") Conn.Open ConStrSet RS = Server.CreateObject("ADODB.Recordset")      theSQL = "insert into bo"      theSQL = theSQL & "(nome, email, data, hora, "      theSQL = theSQL & "ip)"      theSQL = theSQL & " values ('"&c_nome&"','"&c_email&"', '"      theSQL = theSQL & data&"', '"&hora&"', '"&ip&"')"Set RS = conn.execute(theSQL)conn.closeSet Conn = NothingSet RS = Nothingend if%><% response.redirect "cadastrado.asp" %>

[diego_sl 0]

faz um select na tabela dos email e atribui à um recordset,pega o valor do recordcount dele e e faz um if,se for maior q 0(ou seja,o email já esta cadastrado) da o response.redirectAbraços