
Dim usuario, password, oConn,RS
'Primero nos fijamos si ambos campos fueron completados.
'Si no se cumple, redireccionamos a pagina1.asp
If Request.Form("usuario") = "" OR Request.Form("pass") = "" then
%>
<script language="Javascript">
var pagina="javascript:history.go(-1)";
location.href=pagina;
alert ("Introduce el usuario y el password.")
</script>
<%
Else
'Guardamos los datos del Form en variables y evitamos la comilla simple
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("pass"))
usuario = Replace(usuario,"'","''")
password = Replace(password,"'","''")
'Conectamos a nuestra BD.
'on error resume next
dsn="dsn=partes"
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.open (dsn)
strsql = ("SELECT * FROM DATOSOFICIALES WHERE LOGIN = '"& usuario &"'")
oConn.Execute (strsql)
'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open strsql,"DSN=partes"
'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario.
If (RS.EOF = true) then
%>
<script language="Javascript">
var pagina="javascript:history.go(-1)";
location.href=pagina;
alert ("Este usuario no existe.")
</script>
<% ElseIf RS.Fields("password") = password then
'Si el campo de la tabla es igual a nuestra variable, estas logueado.
'Response.Write "Login aceptado ... Bienvenido <B>"& nomb &"</B>"
'?cl=" & password (cl:Es una variable donde le asignas password)
Response.Redirect "registrosincidencias.asp?cl=" & password
Else 'Otra cosa, seria cuando el password no es la que seleccionamos.
Código:
%>Información técnica (para personal de soporte técnico)
<script language="Javascript">
var pagina="javascript:history.go(-1)";
location.href=pagina;
alert ("Esa contraseña no concuerda con el login ingresado.")
</script>
<%End If
'Limpiamos y cerramos.
RS.CLOSE
SET RS=NOTHING
oConn.close
SET oConn=NOTHING
End If
%>
Cita:
como si no estubiera la db Información técnica (para personal de soporte técnico)
Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Administrador de controladores ODBC] No se encuentra el nombre del origen de datos y no se especificó ningún controlador predeterminado
/pagina2.asp, línea 43
Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
Página:
POST 21 bytes to /pagina2.asp
Datos de POST:
usuario=ana&pass=flor
Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Administrador de controladores ODBC] No se encuentra el nombre del origen de datos y no se especificó ningún controlador predeterminado
/pagina2.asp, línea 43
Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
Página:
POST 21 bytes to /pagina2.asp
Datos de POST:
usuario=ana&pass=flor
