galeta to com uma bronca simples mais en fim que esta me complicando.
este e um fomulario de login e senha mais de cadastro mais quando se preenche o cadastro e na hora de enviar para o banco de dados,, informa que essa não e atualizavel
Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável.
<!--#include file="db.asp"-->
<% AbreConexao
If request.form("enviado") = "sim" Then
Cadastrado =False
set Dicionario = CreateObject("scripting.dictionary")
i = 0
Sql = "SELECT nome FROM users WHERE nome = '"&Request.form("nome")&"'"
set Rs =Conexao.Execute(Sql)
If not Rs.Eof then
Dicionario.add i, "Nome de Site já cadastrado!"
i= i+1
end if
Sql = "SELECT email FROM users WHERE email = '"&Request.form("email")&"'"
set Rs =Conexao.Execute(Sql)
If not Rs.Eof then
Dicionario.add i, "Email já cadastrado!"
i= i+1
end if
Sql = "SELECT login FROM users WHERE login = '"&Request.form("users")&"'"
set Rs =Conexao.Execute(Sql)
If not Rs.Eof then
Dicionario.add i, "Login já cadastrado!"
i= i+1
end if
Vet = Dicionario.items
if Dicionario.Count<>0 then
Response.Write "<b><center><font face=verdana size=1>"
Response.Write "O(s) seguintes dado(s) está(ão) incorreto(s)<BR><br>"
for i = 0 to Dicionario.Count - 1
Response.Write vet(i) & "<BR><br>"
next
response.write "<BR><br>"
Else
Sql = "INSERT INTO users (nome, email, login, senha, senha2, data) "
Sql = Sql & "VALUES('" & Request.Form("nome") & "', '" & Request.Form("email") & "', '" & Request.Form("login") & "', '" & Request.Form("senha") & "', '" & Request.Form("senha2") & "', '" & Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano") & "')"
Conexao.Execute(Sql)
Cadastrado = True
End If
End If
If Cadastrado = False Then
Else
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""FFFFFF"">"
HTML = HTML & "<b>Você acabou de se cadastrar no Sistema Cadastro e Login</b><br><br>"
HTML = HTML & "Lembre sempre de seus dados.<br><br>"
HTML = HTML & "Login: "& login &"<br>Senha: "& senha &"<br><br>"
HTML = HTML & "Visite nosso Site: <a href=""www.sitedozanelati.com"">www.sitedozanelati.com</a>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"
MyCDONTSMail.From="zane.juli@ig.com.br"
MyCDONTSMail.To=email
MyCDONTSMail.Subject="Cadastro no Sistema de Cadastro e Login - Site do Zanelati"
MyCDONTSMail.BodyFormat=0
MyCDONTSMail.MailFormat=0
MyCDONTSMail.Body=HTML
MyCDONTSMail.Send
set MyCDONTSMail=nothing
%>
<p align="center">
<font face="Verdana" size="1">
Cadastrado com sucesso!<BR>
Entre na administração <font color="#FF0000"><a href="sair.asp"><font face="Verdana" size="1" color="#FF0000">Clicando
Aqui! </font></a></font>
<% End If %>
Editado por andreia_sp Utilize tags para código, facilitam a visualização. Andreia_Sp
Pergunta
Guest luis bilar
galeta to com uma bronca simples mais en fim que esta me complicando.
este e um fomulario de login e senha mais de cadastro mais quando se preenche o cadastro e na hora de enviar para o banco de dados,, informa que essa não e atualizavel
Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável.
/teste/oposto.asp, line 42
que que eu faço to lascado alguém pode me ajudar.
em baixo ta a pagina que e direcionada. Editado por andreia_spUtilize tags para código, facilitam a visualização. Andreia_Sp
Link para o comentário
Compartilhar em outros sites
2 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.