tem algum erro nesta sql, não keria pedir ajuda, mas já faz um mês q eu procuro o erro não sei direito... me ajudem... por favorrrr ;) ;) ;) ;)
aki só a sql:
sql="INSERT INTO membros (sexo,apelido,nome,nascimento,e_civil,cidade,uf,icq,MSN,yahoo,email,homepage,celular,telefone,sobre,titulo,nivel,senha,login,expedicao) "
sql=sql&"VALUES("&sexo&",'"&apelido&"','"&nome&"','"&nascimento&"',"&e_civil&",'"&cidade&"','"&uf&"',"&icq&",'"&MSN&"','"&yahoo&"','"&email&"','"&homepage&"',"&celular&","&telefone&",'"&sobre&"','"&titulo&"',"&nivel&",'"&senha&"','"&login&"','"&expedicao&"')"
Agora o erro
Microsoft JET Database Engine erro '80040e07'
Tipo de dados imcompatível na expressão de critério.
/sitesdoguto/adduser.asp, line 60
Agora pros interessados, o código todo...
<html>
<head>
<title>Chat Canoas</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="styles.css" rel=stylesheet type=text/css>
<link href="favicon.ico" rel="shortcut icon">
</head>
<body topmargin="0">
<%
dim ErroMsg
if Request.Form("sexo") <> "" then
if (Request.Form("apelido") <> "") and (Request.Form("email") <> "") then
%>
<%
dim db, dsn, sql, rs
dim sexo,apelido,nome,nascimento,e_civil,cidade,uf,icq,MSN,yahoo,email,homepage,celular,telefone,sobre,titulo,nivel,senha,login,expedicao
set db = server.createobject("adodb.connection")
dsn="provider=microsoft.jet.oledb.4.0;data source="& server.mappath("dados.mdb")
db.Open dsn
'Replacing
If(Request.Form("sexo") = "H") then sexo = 1 else sexo = 0
apelido = trim(request.form("apelido"))
nome = trim(request.form("nome"))
nasc_dia = trim(request.form("nasc_dia"))
nasc_mes = trim(request.form("nasc_mes"))
nasc_ano = trim(request.form("nasc_ano"))
nascimento = nasc_dia&"/"&nasc_mes&"/"&nasc_ano
e_civil = trim(request.form("e_civil"))
cidade = trim(request.form("cidade"))
uf = trim(request.form("uf"))
icq = trim(request.form("icq"))
MSN = trim(Lcase(request.form("MSN")))
yahoo = trim(Lcase(request.form("yahoo")))
email = trim(Lcase(request.form("email")))
homepage = trim(Lcase(request.form("homepage")))
cel_ddd = trim(request.form("cel_ddd"))
cel_num = trim(request.form("cel_num"))
celular = cel_ddd & cel_num
fone_ddd = trim(request.form("fone_ddd"))
fone_num = trim(request.form("fone_num"))
telefone = fone_ddd & fone_num
sobre = trim(request.form("sobre"))
titulo = trim(request.form("titulo"))
nivel = "1"
senha = trim(Lcase(request.form("senha")))
login = now
expedicao = now
sql = "SELECT * FROM membros WHERE email='"&email&"' AND senha='"&senha&"'"
set rs = db.execute(sql)
if rs.eof then 'Novo membro, porque se chegar ateh o fim não existe
sql="INSERT INTO membros (sexo,apelido,nome,nascimento,e_civil,cidade,uf,icq,MSN,yahoo,email,homepage,celular,telefone,sobre,titulo,nivel,senha,login,expedicao) "
sql=sql&"VALUES("&sexo&",'"&apelido&"','"&nome&"','"&nascimento&"',"&e_civil&",'"&cidade&"','"&uf&"',"&icq&",'"&MSN&"','"&yahoo&"','"&email&"','"&homepage&"',"&celular&","&telefone&",'"&sobre&"','"&titulo&"',"&nivel&",'"&senha&"','"&login&"','"&expedicao&"')"
db.execute(sql)
response.write("<p align=center><font face=Verdana size=4 class=cor2><b>Cadastro efetuado com sucesso!</b></font><br>Aguarde confirmação.</p><p> </p><div align=center><a href=http://www.chatcanoas.pop.com.br/main.htm>Clique aqui para continuar</a></div>")
elseif (rs("senha") = senha) then 'Atualizacao de cadastro
sql = "update membros set " & _
"apelido = '" & apelido & "'," & _
"idade = '" & Idade & "'," & _
"icq = '" & icq & "'," & _
"email = '" & email & "'," & _
"sobre = '" & sobre & "'" & _
" where id = " & rs(("id"))
db.execute(sql)
response.write("<h3 align=center>Atualização efetuada com sucesso!</h3>")
else 'Senha incorreta
ErroMsg = "<p align=center><font face=Verdana size=4><b>Atualização cancelada.</b></font><br><font size=2 class=cor2>Senha incorreta.</font></p>"
Erro
end if
db.close
set db = nothing
%>
<% else %>
<%
ErroMsg = "Os dados não foram completados conforme necessitado...<br>" & _
"Certifique-se de que preencheu os campos <font class=cor2>Apelido</font> e <font class=cor2>E-mail</font>."
Erro
%>
<% end if %>
<%else%>
<p align="center"><font face="Verdana" size="4"><b>
<script language="JavaScript">
// Texto
var message="Área restrita!"
// Cor do texto apagado
var neonbasecolor="#666666"
// Cor do texto aceso
var neontextcolor="#FF0000"
// Velocidade do efeito
var flashspeed=100 //in milliseconds
///No need to edit below this line/////
var n=0
if (document.all){
document.write('<font color="'+neonbasecolor+'">')
for (m=0;m<message.length;m++)
document.write('<font id="neonlight">'+message.charAt(m)+'</font>')
document.write('</font>')
//cache reference to neonlight array
var tempref=document.all.neonlight
}
else
document.write(message)
function neon(){
//Change all letters to base color
if (n==0){
for (m=0;m<message.length;m++)
tempref[m].style.color=neonbasecolor
}
//cycle through and change individual letters to neon color
tempref[n].style.color=neontextcolor
if (n<tempref.length-1)
n++
else{
n=0
clearInterval(flashing)
setTimeout("beginneon()",1500)
return
}
}
function beginneon(){
if (document.all)
flashing=setInterval("neon()",flashspeed)
}
beginneon()
</script>
</b></font></p>
<p align="center"><a href="contato.asp">Clique aqui para se cadastrar</a><br>
ou<br>
<a href="javascript:history.back()"><img src="icons/seta_left.gif" width="10" height="9" border="0">Clique aqui para voltar.</a>
</p><%end if %>
<%Sub Erro() %>
<H3 align=center><%=ErroMsg %></H3>
<%end sub %>
</body>
</html>
Se alguém quiser ver o form pra cadastro, é só clicar aki
Pergunta
[ GuTo ]
tem algum erro nesta sql, não keria pedir ajuda, mas já faz um mês q eu procuro o erro não sei direito... me ajudem... por favorrrr ;) ;) ;) ;)
aki só a sql:
sql="INSERT INTO membros (sexo,apelido,nome,nascimento,e_civil,cidade,uf,icq,MSN,yahoo,email,homepage,celular,telefone,sobre,titulo,nivel,senha,login,expedicao) " sql=sql&"VALUES("&sexo&",'"&apelido&"','"&nome&"','"&nascimento&"',"&e_civil&",'"&cidade&"','"&uf&"',"&icq&",'"&MSN&"','"&yahoo&"','"&email&"','"&homepage&"',"&celular&","&telefone&",'"&sobre&"','"&titulo&"',"&nivel&",'"&senha&"','"&login&"','"&expedicao&"')"Agora o erro Agora pros interessados, o código todo...<html> <head> <title>Chat Canoas</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="styles.css" rel=stylesheet type=text/css> <link href="favicon.ico" rel="shortcut icon"> </head> <body topmargin="0"> <% dim ErroMsg if Request.Form("sexo") <> "" then if (Request.Form("apelido") <> "") and (Request.Form("email") <> "") then %> <% dim db, dsn, sql, rs dim sexo,apelido,nome,nascimento,e_civil,cidade,uf,icq,MSN,yahoo,email,homepage,celular,telefone,sobre,titulo,nivel,senha,login,expedicao set db = server.createobject("adodb.connection") dsn="provider=microsoft.jet.oledb.4.0;data source="& server.mappath("dados.mdb") db.Open dsn 'Replacing If(Request.Form("sexo") = "H") then sexo = 1 else sexo = 0 apelido = trim(request.form("apelido")) nome = trim(request.form("nome")) nasc_dia = trim(request.form("nasc_dia")) nasc_mes = trim(request.form("nasc_mes")) nasc_ano = trim(request.form("nasc_ano")) nascimento = nasc_dia&"/"&nasc_mes&"/"&nasc_ano e_civil = trim(request.form("e_civil")) cidade = trim(request.form("cidade")) uf = trim(request.form("uf")) icq = trim(request.form("icq")) MSN = trim(Lcase(request.form("MSN"))) yahoo = trim(Lcase(request.form("yahoo"))) email = trim(Lcase(request.form("email"))) homepage = trim(Lcase(request.form("homepage"))) cel_ddd = trim(request.form("cel_ddd")) cel_num = trim(request.form("cel_num")) celular = cel_ddd & cel_num fone_ddd = trim(request.form("fone_ddd")) fone_num = trim(request.form("fone_num")) telefone = fone_ddd & fone_num sobre = trim(request.form("sobre")) titulo = trim(request.form("titulo")) nivel = "1" senha = trim(Lcase(request.form("senha"))) login = now expedicao = now sql = "SELECT * FROM membros WHERE email='"&email&"' AND senha='"&senha&"'" set rs = db.execute(sql) if rs.eof then 'Novo membro, porque se chegar ateh o fim não existe sql="INSERT INTO membros (sexo,apelido,nome,nascimento,e_civil,cidade,uf,icq,MSN,yahoo,email,homepage,celular,telefone,sobre,titulo,nivel,senha,login,expedicao) " sql=sql&"VALUES("&sexo&",'"&apelido&"','"&nome&"','"&nascimento&"',"&e_civil&",'"&cidade&"','"&uf&"',"&icq&",'"&MSN&"','"&yahoo&"','"&email&"','"&homepage&"',"&celular&","&telefone&",'"&sobre&"','"&titulo&"',"&nivel&",'"&senha&"','"&login&"','"&expedicao&"')" db.execute(sql) response.write("<p align=center><font face=Verdana size=4 class=cor2><b>Cadastro efetuado com sucesso!</b></font><br>Aguarde confirmação.</p><p> </p><div align=center><a href=http://www.chatcanoas.pop.com.br/main.htm>Clique aqui para continuar</a></div>") elseif (rs("senha") = senha) then 'Atualizacao de cadastro sql = "update membros set " & _ "apelido = '" & apelido & "'," & _ "idade = '" & Idade & "'," & _ "icq = '" & icq & "'," & _ "email = '" & email & "'," & _ "sobre = '" & sobre & "'" & _ " where id = " & rs(("id")) db.execute(sql) response.write("<h3 align=center>Atualização efetuada com sucesso!</h3>") else 'Senha incorreta ErroMsg = "<p align=center><font face=Verdana size=4><b>Atualização cancelada.</b></font><br><font size=2 class=cor2>Senha incorreta.</font></p>" Erro end if db.close set db = nothing %> <% else %> <% ErroMsg = "Os dados não foram completados conforme necessitado...<br>" & _ "Certifique-se de que preencheu os campos <font class=cor2>Apelido</font> e <font class=cor2>E-mail</font>." Erro %> <% end if %> <%else%> <p align="center"><font face="Verdana" size="4"><b> <script language="JavaScript"> // Texto var message="Área restrita!" // Cor do texto apagado var neonbasecolor="#666666" // Cor do texto aceso var neontextcolor="#FF0000" // Velocidade do efeito var flashspeed=100 //in milliseconds ///No need to edit below this line///// var n=0 if (document.all){ document.write('<font color="'+neonbasecolor+'">') for (m=0;m<message.length;m++) document.write('<font id="neonlight">'+message.charAt(m)+'</font>') document.write('</font>') //cache reference to neonlight array var tempref=document.all.neonlight } else document.write(message) function neon(){ //Change all letters to base color if (n==0){ for (m=0;m<message.length;m++) tempref[m].style.color=neonbasecolor } //cycle through and change individual letters to neon color tempref[n].style.color=neontextcolor if (n<tempref.length-1) n++ else{ n=0 clearInterval(flashing) setTimeout("beginneon()",1500) return } } function beginneon(){ if (document.all) flashing=setInterval("neon()",flashspeed) } beginneon() </script> </b></font></p> <p align="center"><a href="contato.asp">Clique aqui para se cadastrar</a><br> ou<br> <a href="javascript:history.back()"><img src="icons/seta_left.gif" width="10" height="9" border="0">Clique aqui para voltar.</a> </p><%end if %> <%Sub Erro() %> <H3 align=center><%=ErroMsg %></H3> <%end sub %> </body> </html>Se alguém quiser ver o form pra cadastro, é só clicar aki
Link para o comentário
Compartilhar em outros sites
7 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.