Crea una base de datos access con una tabla llamada USUARIOS y que tenga los campos WEB, USUARIO y PASSWORD. En WEB deberás poner la página a la que irá el usuario que ha puesto bien sus datos. Si tienes alguna duda dímelo.
<%else
usuario=replace(request.form("usuario"), "'","")
password=replace(request.form("password" ),"'","")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bdlogincastroweb.mdb"))
set rs = CreateObject("ADODB.Recordset")
sqltxt="Select * from usuarios where usuario='"&usuario&"' and password= '"&password&"'"
'response.write sqltxt
rs.Open sqltxt, conn
if not rs.eof then
if rs("usuario")=usuario and rs("password")=password then
session("autorizacion")=1
Web= Rs("Web")
Response.Redirect rs("Web")
end if
else
session("autorizacion")=-1
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
if session("autorizacion")=-1 or session("autorizacion")="" then
' no hemos encontrado el registro
' eso indica que el usuario y/o la password son erroneos
response.redirect "login.asp?msg=Usuario%20o%20password%20incor recta"
end if
end if%>
<font size="4">________________________
<a href="http://www.ommadawn.es.vg" target="_top">Ommadawn.es.vg</a><br>Tu Web de
Mike Oldfield[/CODE]