|
 |
asp_web_howto thread: Parameter Query
Message #1 by "Phil Bradwell" <p.bradwell@b...> on Sun, 21 Apr 2002 18:53:07 +0100
|
|
I have a page which reads in the cookies then should look up the database
to check authentication but for some reason I get an error
..No value given for one or more required parameters ?
here is my code..
Dim RsMem__User
RsMem__User = "1"
if (StrUsername <> "") then RsMem__User = StrUsername
%>
<%
Dim RsMem__Pass
RsMem__Pass = "1"
if (StrPassword <> "") then RsMem__Pass = StrPassword
%>
<%
set RsMem = Server.CreateObject("ADODB.Recordset")
RsMem.ActiveConnection = MM_SITE_STRING
RsMem.Source = "SELECT Mem_ID, Mem_Password, mem_Site_acc FROM Members
WHERE (((Members.Mem_Username)=[" + Replace(RsMem__User, "'", "''") + "])
AND ((Members.Mem_Password)=[" + Replace(RsMem__Pass, "'", "''") + "]));"
Further up the code I have read in cookie via..
StrUsername=request.cookies("Site")("Username")
StrPassword=request.cookies("Site")("Password")
Sorry if its ugly that the UD4
thanks in anticipation
Message #2 by "Ken Schaefer" <ken@a...> on Mon, 22 Apr 2002 12:33:26 +1000
|
|
Change your code to look like this:
<%
set RsMem = Server.CreateObject("ADODB.Recordset")
RsMem.ActiveConnection = MM_SITE_STRING
RsMem.Source = "SELECT Mem_ID, Mem_Password, mem_Site_acc FROM Members
WHERE (((Members.Mem_Username)=[" + Replace(RsMem__User, "'", "''") + "])
AND ((Members.Mem_Password)=[" + Replace(RsMem__Pass, "'", "''") + "]));"
Response.Write(rsMem.Source)
Response.End
%>
If you still can't see what's wrong, post the output of the Response.Write()
to the list.
Cheers
Ken
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
From: "Phil Bradwell" <p.bradwell@b...>
Subject: [asp_web_howto] Parameter Query
: I have a page which reads in the cookies then should look up the database
: to check authentication but for some reason I get an error
: ..No value given for one or more required parameters ?
:
: here is my code..
:
: Dim RsMem__User
: RsMem__User = "1"
: if (StrUsername <> "") then RsMem__User = StrUsername
: %>
: <%
: Dim RsMem__Pass
: RsMem__Pass = "1"
: if (StrPassword <> "") then RsMem__Pass = StrPassword
: %>
: <%
: set RsMem = Server.CreateObject("ADODB.Recordset")
: RsMem.ActiveConnection = MM_SITE_STRING
: RsMem.Source = "SELECT Mem_ID, Mem_Password, mem_Site_acc FROM Members
: WHERE (((Members.Mem_Username)=[" + Replace(RsMem__User, "'", "''") + "])
: AND ((Members.Mem_Password)=[" + Replace(RsMem__Pass, "'", "''") + "]));"
:
: Further up the code I have read in cookie via..
: StrUsername=request.cookies("Site")("Username")
: StrPassword=request.cookies("Site")("Password")
:
: Sorry if its ugly that the UD4
:
: thanks in anticipation
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
 |