12/11/2002, 17:23
|
 | | | Fecha de Ingreso: noviembre-2002 Ubicación: Lima - Limon
Mensajes: 207
Antigüedad: 22 años, 1 mes Puntos: 0 | |
| Te mando como puedes hacer tu pagina de ingreso....saludos
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=unicode" http-equiv=Content-Type>
<%@ Language=VBScript %>
<%
If Request.Form("Buscar")<>"" Then 'Formulario enviado
Dim oConn
Dim oRS
Dim sSQL
Dim sColor
DIM usuario
DIM clave
usuario=Request.Form("usuario")
clave=Request.Form("clave")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("tabla.mdb"))
sSQL = "SELECT * from seguri where usuario='" & usuario & "' and clave='" & clave & "'"
Set oRS = oConn.Execute(sSQL)
If oRS.EOF then ' si no encuentra el usuario
server.transfer("yy.asp")
else
' muestra las variables del objeto server
server.transfer("xxl.html")
end if
' Carga el formulario primero
Else
'Formulario no enviado
'Recogemos cookies para rellenar el formulario
en dif
%> |