Login Temperamental

[galindox]

sjam7, Modifique el script, segui tu consejo, trbaja en mi maquina pero no en el web server arroja el mismo bendito error

Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 2.


El escript modificado para que lo vean es
<%@ 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 ACA ME DA EL ERROR HACIENDO ESTA INSTRUCCION O UN OPEN ES QUE SIEMPRE DA EL ERROR
msql = ("SELECT USERNAME, PASSWORD FROM USERS WHERE USERNAME='" & XUSERNAME & "'")
rem msql = ("SELECT USERNAME, PASSWORD FROM USERS WHERE USERNAME='" & XUSERNAME & "' AND PASSWORD='" & XPASSWORD & "'")

Set RS = Conn.Execute(msql)
If RS.EOF Then
call close_rs
Response.redirect Request.ServerVariables("http_referer")
Else
if XPASSWORD = RS("PASSWORD") then
Session("SecurityID") = "ÄÏÍÅÓÁ"
call close_rs
Response.redirect session("actual")
else
call close_rs
Response.redirect Request.ServerVariables("http_referer")
end if
End If
End If
sub close_rs
RS.Close
Conn.Close
Set RS = Nothing
Set Conn = Nothing
end sub
%>