Zulander
Jan 12th, 2001, 04:38 PM
Helllo
i get this error :
No value given for one or more required parameters.
/login.asp, line 26
> Set RSlogin = oConn.Execute(sqlLogin)
But i don't know how to resolv it !
the connction work any idea ?
My code :
------------------------------------------------------------
<html>
<Title>Téléchager: Carnet d'addresses 1.0.60</TITLE>
<body text="#66FFFF" bgcolor="#000066" link="#FFFF00" vlink="#551A8B" alink="#FF0000">
<%
<!-- #include virtual="adovbs.inc" -->
Dim oConn, sConnString
Dim RSlogin
Dim UserName
Dim UserPass
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.provider="Microsoft.Jet.OLEDB.4.0"
oConn.open Server.Mappath("/User1.mdb")
Set RSlogin = Server.CreateObject("ADODB.Recordset")
UserName = Request.Form("uSERName")
UserPass = Request.Form("uSERPass")
sqlLogin = "SELECT * FROM Userlogin WHERE " & _
"Username = '" & UserName & "' AND " & _
"Password = '" & UserPass & "';"
Set RSlogin = oConn.Execute(sqlLogin)
If RSlogin.EOF Then
Response.Redirect("Login.asp")
Else
UserID = RSlogin("UserID")
End If
Set RS = Nothing
%>
</html>
i get this error :
No value given for one or more required parameters.
/login.asp, line 26
> Set RSlogin = oConn.Execute(sqlLogin)
But i don't know how to resolv it !
the connction work any idea ?
My code :
------------------------------------------------------------
<html>
<Title>Téléchager: Carnet d'addresses 1.0.60</TITLE>
<body text="#66FFFF" bgcolor="#000066" link="#FFFF00" vlink="#551A8B" alink="#FF0000">
<%
<!-- #include virtual="adovbs.inc" -->
Dim oConn, sConnString
Dim RSlogin
Dim UserName
Dim UserPass
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.provider="Microsoft.Jet.OLEDB.4.0"
oConn.open Server.Mappath("/User1.mdb")
Set RSlogin = Server.CreateObject("ADODB.Recordset")
UserName = Request.Form("uSERName")
UserPass = Request.Form("uSERPass")
sqlLogin = "SELECT * FROM Userlogin WHERE " & _
"Username = '" & UserName & "' AND " & _
"Password = '" & UserPass & "';"
Set RSlogin = oConn.Execute(sqlLogin)
If RSlogin.EOF Then
Response.Redirect("Login.asp")
Else
UserID = RSlogin("UserID")
End If
Set RS = Nothing
%>
</html>