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:
Agora o erro Agora pros interessados, o código todo...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.