Multiple select List
Crystal_Rouse Nov 7, 2011 11:23 AMI have a web form that I need to allow the users to select multiple items from a list. I have 'googled' and can not find an answer.
The query has 2 parameters.
<%
Dim HoursWorked_PP__varTI
HoursWorked_PP__varTI = "%"
If (Request.QueryString("TI") <> "") Then
HoursWorked_PP__varTI = Request.QueryString("TI")
End If
%>
<%
Dim HoursWorked_PP__varPP
HoursWorked_PP__varPP = "%"
If (Request.QueryString("PP") <> "") Then
HoursWorked_PP__varPP = Request.QueryString("PP")
End If
%>
<%
Dim HoursWorked_PP
Dim HoursWorked_PP_cmd
Dim HoursWorked_PP_numRows
Set HoursWorked_PP_cmd = Server.CreateObject ("ADODB.Command")
HoursWorked_PP_cmd.ActiveConnection = MM_Connection_STRING
HoursWorked_PP_cmd.CommandText = "SELECT * FROM dbo.vw_HoursWorked WHERE COLUMN_NAME = ? and PP = ?
HoursWorked_PP_cmd.Prepared = true
HoursWorked_PP_cmd.Parameters.Append HoursWorked_PP_cmd.CreateParameter("param1", 200, 1, 255, HoursWorked_PP__varTI) ' adVarChar
HoursWorked_PP_cmd.Parameters.Append HoursWorked_PP_cmd.CreateParameter("param2", 200, 1, 255, HoursWorked_PP__varPP) ' adVarChar
Set HoursWorked_PP = HoursWorked_PP_cmd.Execute
HoursWorked_PP_numRows = 0
%>
From my searches, I have tried:
<%
WorkedDate = Request.form("WorkedPP") ' Convert the info from the form to a string
MakeDate = Replace(WorkedDate, ", ", "' OR WorkedPP = '") 'Replace comma-space to a single quote - OR WorkedPP = -singlequote
%>
<%
Dim HoursWorked_PP
Dim HoursWorked_PP_cmd
Dim HoursWorked_PP_numRows
Set HoursWorked_PP_cmd = Server.CreateObject ("ADODB.Command")
HoursWorked_PP_cmd.ActiveConnection = MM_Connection_STRING
HoursWorked_PP_cmd.CommandText = "SELECT * FROM dbo.vw_HoursWorked_PP_Sum WHERE COLUMN_NAME = ? and PP = '"&MakeDate&"' "
HoursWorked_PP_cmd.Prepared = true
HoursWorked_PP_cmd.Parameters.Append HoursWorked_PP_cmd.CreateParameter("param1", 200, 1, 255, HoursWorked_PP__varTI) ' adVarChar
HoursWorked_PP_cmd.Parameters.Append HoursWorked_PP_cmd.CreateParameter("param2", 200, 1, 255, HoursWorked_PP__varPP) ' adVarChar
Set HoursWorked_PP = HoursWorked_PP_cmd.Execute
HoursWorked_PP_numRows = 0
%>
Any help or a point in the right direction? I'm not sure but I can't find a solution to allow multiple select lists. If I change the query to use IN, then the URL string still tried to use 'AND' so the results are null.
Thank You for any help!
Crystal


