já autorizei os bancos e as pastas mas continua dando o erro.
Meu codigo é:
<%response.buffer=true%>
<html>
<body background = "\Imagens\fundo.jpg">
<meta http-equiv="Content-Language" content="pt-br">
<title>Central de Assessoria ao Usuario de Informatica</title>
</head>
<body>
<% dim c1,r1,cadast
RESENHA=request.form("RESENHA")
LOGIN=request.form("LOGIN")
SENHA=request.form("SENHA")
NOME=request.form("NOME")
SOBRENOME=request.form("SOBRENOME")
SEXO=request.form("SEXO")
ENDERECO=request.form("ENDERECO")
CIDADE=request.form("CIDADE")
CEP=request.form("CEP")
ESTADO=request.form("ESTADO")
EMAIL=request.form("MAIL")
PAIS=request.form("PAIS")
set c1=server.createObject("adodb.connection")
set r1=server.createobject("adodb.recordset")
c1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(".") & "\Dados\Usuarios.mdb;"
set r1=c1.execute("select * from usuario where login = '" & Login & "'")
if not r1.eof then
cadast = true
else
SQL = "INSERT INTO USUARIO (LOGIN,SENHA,NOME,SOBRENOME,MAIL,SEXO,ENDERECO,CIDADE,CEP,ESTADO,PAIS) VALUES('"& LOGIN &"','"& SENHA &"','"& NOME &"','"& SOBRENOME &"','"& EMAIL &"','"& SEXO &"','"& ENDERECO &"','"& CIDADE &"','"& CEP &"','"& ESTADO &"','"& PAIS &"')"
c1.execute SQL
cadast = false
end if
r1.close
c1.close
set r1=nothing
set c1=nothing
%>
<% if cadast then%>
<font color="#FF3300">Usuário Existente</font><p><center>
<input type="submit" value="Voltar" ONCLICK="history.back(-1)" ></center>
<%else%>
<font color="#FF3300"> Bem vindo <% =LOGIN %> </font>
<p>
<p align="center"><img border="0" src="\Imagens\banner.jpg" width="564" height="60"></p>
<p align="center"> </p>
<p align="center">
<input type="submit" value="Entrar e logar" name="A" onclick="window.open('principal.asp','principal')"></p>
<%end if%>
<p align="center"> </p>
</form>
<p align="center"> </p>
</body>
</html>
Não precisem mas me ajudar nesse problema já resolvi tinha autorizado todos os codigos asp mas n tinha autorizado os banco de dados por isso dava o erro.Obrigado pela atenção...
Pergunta
Super_Zica_Man
já autorizei os bancos e as pastas mas continua dando o erro.
Meu codigo é:
<%response.buffer=true%> <html> <body background = "\Imagens\fundo.jpg"> <meta http-equiv="Content-Language" content="pt-br"> <title>Central de Assessoria ao Usuario de Informatica</title> </head> <body> <% dim c1,r1,cadast RESENHA=request.form("RESENHA") LOGIN=request.form("LOGIN") SENHA=request.form("SENHA") NOME=request.form("NOME") SOBRENOME=request.form("SOBRENOME") SEXO=request.form("SEXO") ENDERECO=request.form("ENDERECO") CIDADE=request.form("CIDADE") CEP=request.form("CEP") ESTADO=request.form("ESTADO") EMAIL=request.form("MAIL") PAIS=request.form("PAIS") set c1=server.createObject("adodb.connection") set r1=server.createobject("adodb.recordset") c1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(".") & "\Dados\Usuarios.mdb;" set r1=c1.execute("select * from usuario where login = '" & Login & "'") if not r1.eof then cadast = true else SQL = "INSERT INTO USUARIO (LOGIN,SENHA,NOME,SOBRENOME,MAIL,SEXO,ENDERECO,CIDADE,CEP,ESTADO,PAIS) VALUES('"& LOGIN &"','"& SENHA &"','"& NOME &"','"& SOBRENOME &"','"& EMAIL &"','"& SEXO &"','"& ENDERECO &"','"& CIDADE &"','"& CEP &"','"& ESTADO &"','"& PAIS &"')" c1.execute SQL cadast = false end if r1.close c1.close set r1=nothing set c1=nothing %> <% if cadast then%> <font color="#FF3300">Usuário Existente</font><p><center> <input type="submit" value="Voltar" ONCLICK="history.back(-1)" ></center> <%else%> <font color="#FF3300"> Bem vindo <% =LOGIN %> </font> <p> <p align="center"><img border="0" src="\Imagens\banner.jpg" width="564" height="60"></p> <p align="center"> </p> <p align="center"> <input type="submit" value="Entrar e logar" name="A" onclick="window.open('principal.asp','principal')"></p> <%end if%> <p align="center"> </p> </form> <p align="center"> </p> </body> </html>Não precisem mas me ajudar nesse problema já resolvi tinha autorizado todos os codigos asp mas n tinha autorizado os banco de dados por isso dava o erro.Obrigado pela atenção...
Editado por Super_Zica_ManLink 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.