Sistema de login

[wolfphw 60]

Tipo to precisando de um sistema de login simples, onde o cara soh coloca o login e senha e ele procura na base e manda pra outra página, to achnado umas coisas aki na net mas nuam to conseguindo fazer funciona

[wolfphw 60]

To tentando utilizar esse aki mas naum esta dando certo.

 

 

index.asp

ASP

 @= = <!--#include = -->    =    useraction  conn,dsn,rs,sql   = () select case useraction 	case  		 = () 		 = () 		  = ()  		  = () 		 dsn 		 = 

 

Quando eu tento logar ele me dah o seguinte erro

 

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

 

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

 

/admin_n/noticias/index.asp, line 17

 

 

E dah uma olhada se essa página esta certo tb pra verifica se esta logado

 

lista.asp

ASP

@= =<!--#include = --> ()= 	  

[wolfphw 60]

Naum precisa mais, eu fucei uns negocios aki, soh naum sei oke eu fucei e deu certo heheheheSoh mudei o asp do index.asp pra esse modo aki<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="../../Connections/todimo2.asp" --><%response.buffer = true'declerationdim useractiondim conexao,rs,sql'if the user submit the formuseraction = request("action")select case useraction case "login" user = request.form("login") pass = request.form("senha") Set conexao = Server.CreateObject("ADODB.Connection")' Set Rs = Server.CreateObject("ADODB.Recordset") conexao.Open(MM_todimo_STRING) SQL = "SELECT * FROM usuarios where senha='"& pass &"' and login='"& user & "'" ' rs.open(sql,conexao) Set Rs = conexao.execute(sql) if rs.eof and rs.bof then response.write "<center>Senha incorreta</center>" else session("auth") = pass response.redirect "lista.asp" end if end select%>