Si es eso lo que queria saber, ya hago la consulta de los datos con la base de datos pero ahora lo que quiero es en que parte meteria la variable.
A continuacion mando el codigo:
Código HTML:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
http://www.terra.es/personal6/morenocerro2/manual/formularios/formularios_9.html
<title>Checando Usuario</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
public usuario, password, oConn, RS
'Primero nos fijamos si ambos campos fueron completados.
'Si no se cumple, redireccionamos a administrador.asp
If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.Redirect "administrador.asp"
If conexionUTHH.Errors.Count > 0 then
For each error in conexionUTHH.errors
Response.write Error.Number & " = "& Error.Description
next
End if
Else
'Guardamos los datos del Form en variables y evitamos la comilla simple
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
usuario = Replace(usuario,"'","''")
password = Replace(password,"'","''")
'Conectamos a nuestra BD.
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "DRIVER={SQL Server};SERVER=M07L01;UID=sa;PWD=sa;DATABASE=UTHH;"
'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
sql = "SELECT * FROM tblAdminServEscolares WHERE vchNombre = '"& usuario &"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, oConn
'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario.
If (RS.EOF = true) then
'Response.Write ("Ese usuario no existe")
Response.Write("<SCRIPT LANGUAGE=javascript>")
Response.Write("alert('Ese usuario no existe')")
Response.Write("</SCRIPT>")
'Response.Redirect ("administrador.asp")
ElseIf RS.Fields("vchClvTrabajador") = password then 'Si el campo de la tabla es igual a nuestra variable, estas logueado.
Response.Redirect "OpcionesAdministrar.asp?id=val"
'Response.Write "Te logueaste con exito... Bienvenido <B>"& usuario &"</B>"
'Response.Redirect "Muestra_x_Fecha.asp"
Else 'Otra cosa, seria cuando el password no es la que seleccionamos.
Response.Write "Esa contraseña no concuerda con el usuario ingresado"
End If
'Limpiamos y cerramos.
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End If
%>
</body>
</html>