erro de inserção

webdibula · Agosto 14, 2007

estou com problema de inserção.meu erro é esse...

Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query. /novo/cad_usuarios/oposto.asp, line 43

oposto.asp

<!--#include file="db.asp"--><% AbreConexaoIf request.form("enviado") = "sim" ThenCadastrado =Falseset Dicionario = CreateObject("scripting.dictionary")i = 0Sql = "SELECT nome FROM users WHERE nome = '"&Request.form("nome")&"'"set Rs =Conexao.Execute(Sql)If not Rs.Eof thenDicionario.add i, "Nome de Site já cadastrado!"i= i+1end ifSql = "SELECT email FROM users WHERE email = '"&Request.form("email")&"'"set Rs =Conexao.Execute(Sql)If not Rs.Eof thenDicionario.add i, "Email já cadastrado!"i= i+1end ifSql = "SELECT login FROM users WHERE login = '"&Request.form("users")&"'"set Rs =Conexao.Execute(Sql)If not Rs.Eof thenDicionario.add i, "Login já cadastrado!"i= i+1end ifVet = Dicionario.itemsif Dicionario.Count<>0 thenResponse.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 - 1Response.Write vet(i) & "<BR><br>"nextresponse.write "<BR><br>"ElseSql = "INSERT INTO users (nome, email, login, senha, senha2, data) "Sql1 = 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") & "')" 'response.write(sql1)[b]Conexao.Execute(Sql1)[/b]Cadastrado = TrueEnd IfEnd IfIf Cadastrado = False Then ElseSet 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">ClicandoAqui! </font></a></font><% End If %>

Mário Monteiro · Agosto 14, 2007

Nao precisa criar varios topicos para o mesmo problema tiozinho

webdibula · Agosto 14, 2007

peço desculpa a todos por isso, estou com um problema e estou procurando ajuda aqui no forum e se possivel gostaria disso.aguardo uma resposta sobre o problema se poderem me ajudar.valeu

Mário Monteiro · Agosto 14, 2007

como ja disse em outros topicos basta voce dar as permissoes adequadas... aparentemente seu codigo nao tem erros e se tiver está depois de onte esta parando por causa das permissoes

Ted k' · Agosto 14, 2007

Vou permanecer o tópico por para que o Membro e o Administrador não saiam do contexto atual

webdibula · Agosto 14, 2007

se tiro Conexao.Execute(Sql1)ai ele prossegue, mas nao atualiza... o q faço, sorry... estou desde ontem nisso e nao enchergo erro... ajudem por favor... e preciso disso para ontem

GF - Design Studio · Agosto 14, 2007

se tiro Conexao.Execute(Sql1)

ai ele prossegue, mas nao atualiza... o q faço, sorry... estou desde ontem nisso e nao enchergo erro... ajudem por favor... e preciso disso para ontem

Já que você disse que remove a linha Conexao.Execute(Sql1), experimenta colocar isso e veja o que dá:

Set Conn = Server.CreateObject("ADODB.Connection")Set rs = Server.CreateObject("ADODB.Recordset")Sql="SELECT * FROM ........"[b]rs.Open Sql,Conn[/b]

Abraços!

webdibula · Agosto 14, 2007

nao deu certo...

agora da esse erro.

Microsoft JET Database Engine error '80004005'

Could not find installable ISAM.

/novo/cad_usuarios/db.asp, line 10

não sei mais o q fazer????

esse é o meu db.asp

<% 'Set Conexao = CreateObject("ADODB.CONNECTION")Set Conexao = Server.CreateObject("ADODB.Connection")conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("bd/acesso.mdb")ConexaoAberta = FALSESub AbreConexao()	if not ConexaoAberta then	Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & conStr & ";"	'Conexao.Open ConStr	ConexaoAberta = True	end ifend subSub FechaConexao()	if ConexaoAberta then	Conexao.close	ConexaoAberta = False	end ifend sub %>arquivo_principal.asp<!--#include file="db.asp"--><% AbreConexaoIf request.form("enviado") = "sim" ThenCadastrado =Falseset Dicionario = CreateObject("scripting.dictionary")i = 0Sql = "SELECT nome FROM users WHERE nome = '"&Request.form("nome")&"'"set Rs =Conexao.Execute(Sql)If not Rs.Eof thenDicionario.add i, "Nome de Site já cadastrado!"i= i+1end ifSql = "SELECT email FROM users WHERE email = '"&Request.form("email")&"'"set Rs =Conexao.Execute(Sql)If not Rs.Eof thenDicionario.add i, "Email já cadastrado!"i= i+1end ifSql = "SELECT login FROM users WHERE login = '"&Request.form("users")&"'"set Rs =Conexao.Execute(Sql)If not Rs.Eof thenDicionario.add i, "Login já cadastrado!"i= i+1end ifVet = Dicionario.itemsif Dicionario.Count<>0 thenResponse.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 - 1Response.Write vet(i) & "<BR><br>"nextresponse.write "<BR><br>"ElseSql = "INSERT INTO users (nome, email, login, senha, senha2, data) "Sql1 = 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") & "')" 'response.write(sql1)Conexao.Execute(Sql1)Cadastrado = TrueEnd IfEnd IfIf Cadastrado = False Then ElseSet 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">ClicandoAqui! </font></a></font><% End If %>

GF - Design Studio · Agosto 14, 2007

nao deu certo...

agora da esse erro.

Microsoft JET Database Engine error '80004005'

Could not find installable ISAM.

/novo/cad_usuarios/db.asp, line 10

não sei mais o q fazer????

esse é o meu db.asp

<%

'Set Conexao = CreateObject("ADODB.CONNECTION")

Set Conexao = Server.CreateObject("ADODB.Connection")

conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("bd/acesso.mdb")

ConexaoAberta = FALSE

Sub AbreConexao()

if not ConexaoAberta then

Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & conStr & ";"

'Conexao.Open ConStr

ConexaoAberta = True

end if

end sub

Sub FechaConexao()

if ConexaoAberta then

Conexao.close

ConexaoAberta = False

end if

end sub %>

arquivo_principal.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 "<center>"

Response.Write "O(s) seguintes dado(s) está(ão) incorreto(s) "

for i = 0 to Dicionario.Count - 1

Response.Write vet(i) & " "

next

response.write " "

Else

Sql = "INSERT INTO users (nome, email, login, senha, senha2, data) "

Sql1 = 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") & "')"

'response.write(sql1)

Conexao.Execute(Sql1)

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 & "Você acabou de se cadastrar no Sistema Cadastro e Login "

HTML = HTML & "Lembre sempre de seus dados. "

HTML = HTML & "Login: "& login &" Senha: "& senha &" "

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

%>





Cadastrado com sucesso! 

Entre na administração <a href="sair.asp">Clicando

Aqui! </a>

<% End If %>

Opa,

Seguinte faz um teste ai:

Coloque o o caminho "físico" da sua conexão com o BD e veja o que acontece!

Obs.: Verifica se esse seu BD tem senha!

Se tiver senha faça isso:

Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & conStr & ";Jet OLEDB:Database Password="senha";

Caso o erro permaneça:

Instale o MDAC e JET

Ted k' · Agosto 14, 2007

substitua:

Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & conStr & ";"

por:

Conexao.Open ConStr

webdibula · Agosto 14, 2007

minha necessidade em resolver o meu problema não me dei conta do qto estou atrapalhando a todos, então estarei postando novamente aqui meus arquivos e caso os moderadores ou maiores conhecedores de ASP não consigam me ajudar gostaria que postassem isso...

peço desculpas se estou sendo inoportuno, mas estou atras de uma solução para o meu problem e penso q poderei resolver isso aqui.

erro

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

/novo/cad_usuarios/oposto.asp, line 43

arquivos abaixo para analise de vcs - agradeço a todos desde já

db.asp

<% 'Set Conexao = CreateObject("ADODB.CONNECTION")Set Conexao = Server.CreateObject("ADODB.Connection")conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("bd/acesso")ConexaoAberta = FALSESub AbreConexao()	if not ConexaoAberta then	'Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & conStr & ";"	Conexao.Open ConStr	ConexaoAberta = True	end ifend subSub FechaConexao()	if ConexaoAberta then	Conexao.close	ConexaoAberta = False	end ifend sub %>oposto.asp<!--#include file="db.asp"--><% AbreConexaoIf request.form("enviado") = "sim" ThenCadastrado =Falseset Dicionario = CreateObject("scripting.dictionary")i = 0Sql = "SELECT nome FROM users WHERE nome = '"&Request.form("nome")&"'"set Rs =Conexao.Execute(Sql)If not Rs.Eof thenDicionario.add i, "Nome de Site já cadastrado!"i= i+1end ifSql = "SELECT email FROM users WHERE email = '"&Request.form("email")&"'"set Rs =Conexao.Execute(Sql)If not Rs.Eof thenDicionario.add i, "Email já cadastrado!"i= i+1end ifSql = "SELECT login FROM users WHERE login = '"&Request.form("users")&"'"set Rs =Conexao.Execute(Sql)If not Rs.Eof thenDicionario.add i, "Login já cadastrado!"i= i+1end ifVet = Dicionario.itemsif Dicionario.Count<>0 thenResponse.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 - 1Response.Write vet(i) & "<BR><br>"nextresponse.write "<BR><br>"ElseSql = "INSERT INTO users (nome, email, login, senha, senha2, data) "Sql1 = 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") & "')" 'response.write(sql1)Conexao.Execute(Sql1)Cadastrado = TrueEnd IfEnd IfIf Cadastrado = False Then ElseSet 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">ClicandoAqui! </font></a></font><% End If %>

GF - Design Studio · Agosto 14, 2007

minha necessidade em resolver o meu problema não me dei conta do qto estou atrapalhando a todos, então estarei postando novamente aqui meus arquivos e caso os moderadores ou maiores conhecedores de ASP não consigam me ajudar gostaria que postassem isso...

peço desculpas se estou sendo inoportuno, mas estou atras de uma solução para o meu problem e penso q poderei resolver isso aqui.

erro

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

/novo/cad_usuarios/oposto.asp, line 43

arquivos abaixo para analise de vcs - agradeço a todos desde já

db.asp

<%

'Set Conexao = CreateObject("ADODB.CONNECTION")

Set Conexao = Server.CreateObject("ADODB.Connection")

conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("bd/acesso")

ConexaoAberta = FALSE

Sub AbreConexao()

if not ConexaoAberta then

'Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & conStr & ";"

Conexao.Open ConStr

ConexaoAberta = True

end if

end sub

Sub FechaConexao()

if ConexaoAberta then

Conexao.close

ConexaoAberta = False

end if

end sub %>

oposto.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 "<center>"

Response.Write "O(s) seguintes dado(s) está(ão) incorreto(s) "

for i = 0 to Dicionario.Count - 1

Response.Write vet(i) & " "

next

response.write " "

Else

Sql = "INSERT INTO users (nome, email, login, senha, senha2, data) "

Sql1 = 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") & "')"

'response.write(sql1)

Conexao.Execute(Sql1)

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 & "Você acabou de se cadastrar no Sistema Cadastro e Login "

HTML = HTML & "Lembre sempre de seus dados. "

HTML = HTML & "Login: "& login &" Senha: "& senha &" "

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

%>





Cadastrado com sucesso! 

Entre na administração <a href="sair.asp">Clicando

Aqui! </a>

<% End If %>

Opa,

Seguinte faz um teste ai:

Coloque o o caminho "físico" da sua conexão com o BD e veja o que acontece!

Obs.: Verifica se esse seu BD tem senha!

Se tiver senha faça isso:

Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & conStr & ";Jet OLEDB:Database Password="senha";

Caso o erro permaneça:

Instale o MDAC e JET

minha necessidade em resolver o meu problema não me dei conta do qto estou atrapalhando a todos, então estarei postando novamente aqui meus arquivos e caso os moderadores ou maiores conhecedores de ASP não consigam me ajudar gostaria que postassem isso...

peço desculpas se estou sendo inoportuno, mas estou atras de uma solução para o meu problem e penso q poderei resolver isso aqui.

erro

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

/novo/cad_usuarios/oposto.asp, line 43

arquivos abaixo para analise de vcs - agradeço a todos desde já

db.asp

<%

'Set Conexao = CreateObject("ADODB.CONNECTION")

Set Conexao = Server.CreateObject("ADODB.Connection")

conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("bd/acesso")

ConexaoAberta = FALSE

Sub AbreConexao()

if not ConexaoAberta then

'Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & conStr & ";"

Conexao.Open ConStr

ConexaoAberta = True

end if

end sub

Sub FechaConexao()

if ConexaoAberta then

Conexao.close

ConexaoAberta = False

end if

end sub %>

oposto.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 "<center>"

Response.Write "O(s) seguintes dado(s) está(ão) incorreto(s) "

for i = 0 to Dicionario.Count - 1

Response.Write vet(i) & " "

next

response.write " "

Else

Sql = "INSERT INTO users (nome, email, login, senha, senha2, data) "

Sql1 = 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") & "')"

'response.write(sql1)

Conexao.Execute(Sql1)

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 & "Você acabou de se cadastrar no Sistema Cadastro e Login "

HTML = HTML & "Lembre sempre de seus dados. "

HTML = HTML & "Login: "& login &" Senha: "& senha &" "

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

%>





Cadastrado com sucesso! 

Entre na administração <a href="sair.asp">Clicando

Aqui! </a>

<% End If %>

Opa,

Seguinte faz um teste ai:

Coloque o o caminho "físico" da sua conexão com o BD e veja o que acontece!

Obs.: Verifica se esse seu BD tem senha!

Se tiver senha faça isso:

Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & conStr & ";Jet OLEDB:Database Password="senha";

Caso o erro permaneça:

Instale o MDAC e JET

Erro: Microsoft OLE DB Provider for ODBC Drivers error ’80004005’ [Microsoft][ODBC Microsoft Access Driver] Operation must use

an updateable query.

Este erro ocorre quando o diretório ou o arquivo não tem permissão de escrita.

Arquivado

erro de inserção

Recommended Posts

webdibula 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

webdibula 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

webdibula 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

GF - Design Studio 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

webdibula 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

GF - Design Studio 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

webdibula 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

GF - Design Studio 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante