<%
Dim qbook__xloop
qbook__xloop = "XX"
If (Request.Form("chkColor") <> "") Then
Dim chkVol
For Each chkVol in Request.Form("chkColor")
qbook__xloop = Request.Form("chkColor")
Next
End If
%>
<%
Dim qbook
Dim qbook_cmd
Dim qbook_numRows
Set qbook_cmd = Server.CreateObject ("ADODB.Command")
qbook_cmd.ActiveConnection = MM_dbQBRD_STRING
qbook_cmd.CommandText = "SELECT * FROM dbo.v_qcardprint WHERE truck_q in (?) ORDER BY truck_q"
qbook_cmd.Prepared = true
qbook_cmd.Parameters.Append qbook_cmd.CreateParameter("param1", 200, 1, 255, qbook__xloop) ' adVarChar
Set qbook = qbook_cmd.Execute
qbook_numRows = 0
%>