07/02/2002, 13:21
|
| | | Fecha de Ingreso: enero-2002
Mensajes: 141
Antigüedad: 23 años, 4 meses Puntos: 0 | |
| Re: Login Temperamental
Caramba legolas, te hice caso y lo probe trabaja sin parametros pero sigo sin ver que esta mal, te mando el codigo a ver si vemos luz
<%@ Language="VbScript"%>
<%
Set Conn = Server.CreateObject("Adodb.Connection")
Dim DSNtemp
DSNtemp="Provider=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\web\users\v013u25gam\db\domesa\asp gpasswords.mdb;"
Conn.open DSNtemp
Dim XUSERNAME
Dim XPASSWORD
XUSERNAME = Request.Form("XUSERNAME")
XPASSWORD = Request.Form("XPASSWORD")
If Len(XUSERNAME) > 0 Then
rem msql = ("SELECT USERNAME, PASSWORD FROM USERS")
msql = ("SELECT USERNAME, PASSWORD FROM USERS WHERE USERNAME='" & XUSERNAME & "' AND PASSWORD='" & XPASSWORD & "'")
Set RS = Conn.Execute(msql)
REM HACIENDO ESTA INSTRUCCION O LA OPEN ES QUE SIEMPRE DA EL ERROR
If RS.EOF Then
response.write "<html><body>"& XUSERNAME & ","&XPASSWORD &" msql="&msql&"</body></html>"
RS.Close
Conn.Close
Set RS = Nothing
Set Conn = Nothing
Else
Session("SecurityID") = "ÄÏÍÅÓÁ"
Response.redirect session("actual")
End If
End If
%> |