Problemas Para Submeter Formulário

Rafael Portal · Março 23, 2005

Olá gente,

É o seguinte, como sou principiante estou tentando criar um login (básico) para teste... Então usei este HTML:

<html>
<head>
<title>Página TESTE</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<center><form name="FrmLogin" method="post" action="Teste.asp">
  <input type="text" name="TxtLogin"> <br>
  <input type="text" name="TxtSenha"> <br><br>
  <input type="submit" value="Enviar">  
</form></center>
</body>
</html>

E a página "Teste.asp" tem este código:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%>
	<%  Dim Login
  Dim Senha
  Login = request.form("TxtLogin")
  Senha = request.form("TxtSenha")
  Set Conn = Server.CreateObject("ADODB.Connection")
  BD = Server.MapPath("Teste.mdb")
  Conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&BD
  SQL = "SELECT * FROM Login"
  Set Rs = Conn.Execute(SQL)
  if Login = Rs("Login") and Senha = Rs("Senha") 
  	
  else	
         %> <meta http-equiv="refresh" content="0; url="ErroLogin.html">   <%	
	%>

Mas o que acontece é o seguinte... Quando eu vou enviar os dados para a página asp (no momento em que eu clico no botão), o IE me retorna a minha página "Teste.asp" para download !!!! Aqui está a imagem:

Obs.: O IIS está funcionando perfeitamente pois fiz outros testes e não tive problemas... Abraço a todos espero q me ajudem.

Oks,

Rafael Portal

DELPHI-Man32 · Março 23, 2005

tenta assim:

<%

Dim Login

Dim Senha

Login = request.form("TxtLogin")

Senha = request.form("TxtSenha")

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

BD = Server.MapPath("Teste.mdb")

Conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&BD

SQL = "SELECT * FROM Login where Login='"&Login&"' and Senha='"&Senha&"'"

Set Rs = Conn.Execute(SQL)

if RS.eof then

response.redirect "erro.asp"

else

response.redirect "logado.asp"

end if

%>

Março 23, 2005

Cara você pode Usar Assim

<%

Dim Login

Dim Senha

Login = request.form("TxtLogin")

Senha = request.form("TxtSenha")

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

BD = Server.MapPath("Teste.mdb")

Conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&BD

SQL = "SELECT * FROM Login where Login='"&Login&"' and Senha='"&Senha&"'"

Set Rs = Conn.Execute(SQL)

If RS.EOF Then

Response.Write "usuário ou senha inválida!"

Response.End

End If

Session ("Logado") = RS ("LogadoUser")

Response.redirect "logado.asp"

%>

Na pagina seguinte você coloca uma Session para verificar se o usuario está logado!

Falo!!!!!!!!!!!!!!

explore · Março 23, 2005

Cara você pode Usar Assim
<%
Dim Login
Dim Senha
Login = request.form("TxtLogin")
Senha = request.form("TxtSenha")
Set Conn = Server.CreateObject("ADODB.Connection")
BD = Server.MapPath("Teste.mdb")
Conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&BD
SQL = "SELECT * FROM Login where Login='"&Login&"' and Senha='"&Senha&"'"
Set Rs = Conn.Execute(SQL)
If RS.EOF Then
Response.Write "usuário ou senha inválida!"
Response.End
End If
Session ("Logado") = RS ("LogadoUser")
Response.redirect "logado.asp"
%>
Na pagina seguinte você coloca uma Session para verificar se o usuario está logado!
Falo!!!!!!!!!!!!!!

Desculpe esqueci de me logar!!!!!!!!!

Entrar

Problemas Para Submeter Formulário

Pergunta

Rafael Portal

Link para o comentário

Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

DELPHI-Man32

Link para o comentário

Compartilhar em outros sites

Guest Guest

Link para o comentário

Compartilhar em outros sites

explore

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades