alguém poderia dar uma olhada e falar porque está dando erro no Insert Into, e ver se tem mais algum erro fazendo um grande favor não aguento mais . não consigo arrumar.
<
Dim nome, email, icq, cidade, estade, sexo, dia, mes, ano, login, senha, confirmar, con, conn, sql_check, rs
nome = Request.Form("nome")
email = Request.Form("email")
icq = Request.Form("icq")
cidade = Request.Form("cidade")
estado = Request.Form("estado")
sexo = Request.Form("sexo")
dia = Request.Form("dia")
mes = Request.Form("mes")
ano = Request.Form("ano")
login = Request.Form("login")
senha = Request.Form("senha")
confirmar = Request.Form("confirmar")
If Len(login) Then
Set conn = Server.CreateObject("ADODB.Connection")
strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("bancodedados.mdb")
conn.Open strCon
sql_check = "select login from cadastros where login = '" & login & "'"
Pergunta
Guest Marcel
alguém poderia dar uma olhada e falar porque está dando erro no Insert Into, e ver se tem mais algum erro fazendo um grande favor não aguento mais . não consigo arrumar.
<
Dim nome, email, icq, cidade, estade, sexo, dia, mes, ano, login, senha, confirmar, con, conn, sql_check, rs
nome = Request.Form("nome")
email = Request.Form("email")
icq = Request.Form("icq")
cidade = Request.Form("cidade")
estado = Request.Form("estado")
sexo = Request.Form("sexo")
dia = Request.Form("dia")
mes = Request.Form("mes")
ano = Request.Form("ano")
login = Request.Form("login")
senha = Request.Form("senha")
confirmar = Request.Form("confirmar")
If Len(login) Then
Set conn = Server.CreateObject("ADODB.Connection")
strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("bancodedados.mdb")
conn.Open strCon
sql_check = "select login from cadastros where login = '" & login & "'"
conn.Execute "Insert Into cadastros (nome, email, icq, cidade, estado, sexo, datadenascimento, login, senha, confirmar) Values (' "&nome&" ', ' "&email&" ', ' "&icq&" ', ' "&cidade&" ', ' "&estado&" ', ' "&sexo&" ', ' "&dia&" ', ' "&mes&" ', ' "&ano&" ', ' "&login&" ', ' "&senha&" ', ' "&confirmar&" ')"
conn.Close
Set con = Server.CreateObject("ADODB.Connection")
con.Open conn
Set rs = con.Execute (sql_check, , 1)
If rs.EOF Then
con.Execute(conn)
Response.Write "Endereço cadastrado!"
Else
Response.Write "Endereço já existente!"
End If
con.Close
Set con = Nothing
Else
Response.Redirect "cadastro_ok.html"
End If
%>
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.