swordfishsoup
asked on
Too few parametersin RS
Hi
I have spenat ages putting together this query string in Access. Now I have it in the Recordset window in Dreamweaver I keep getting the good old:
Too few parameters expected one - response. I've tried various ways of rearranging it, taking out some of accesses brackets that I have done before. But can't solve this one.
Any Ideas please?
Thanks
I have spenat ages putting together this query string in Access. Now I have it in the Recordset window in Dreamweaver I keep getting the good old:
Too few parameters expected one - response. I've tried various ways of rearranging it, taking out some of accesses brackets that I have done before. But can't solve this one.
Any Ideas please?
Thanks
<%
Dim RsProdsGen__ParamAgeFrom
RsProdsGen__ParamAgeFrom = "1"
If (Request.Form("frmagefrm") <> "") Then
RsProdsGen__ParamAgeFrom = Request.Form("frmagefrm")
End If
%>
<%
Dim RsProdsGen__ParamAgeTo
RsProdsGen__ParamAgeTo = "100"
If (Request.Form("frmageto") <> "") Then
RsProdsGen__ParamAgeTo = Request.Form("frmageto")
End If
%>
<%
Dim RsProdsGen__ParamGen
RsProdsGen__ParamGen = "b"
If (Request.Form("frmgen") <> "") Then
RsProdsGen__ParamGen = Request.Form("frmgen")
End If
%>
<%
Dim RsProdsGen__ParamPriceFrom
RsProdsGen__ParamPriceFrom = "10"
If (Request.Form("frmpricefrm") <> "") Then
RsProdsGen__ParamPriceFrom = Request.Form("frmpricefrm")
End If
%>
<%
Dim RsProdsGen__ParamPriceTo
RsProdsGen__ParamPriceTo = "30"
If (Request.Form("frmpriceto") <> "") Then
RsProdsGen__ParamPriceTo = Request.Form("frmpriceto")
End If
%>
<%
Dim RsProdsGen
Dim RsProdsGen_cmd
Dim RsProdsGen_numRows
Set RsProdsGen_cmd = Server.CreateObject ("ADODB.Command")
RsProdsGen_cmd.ActiveConnection = MM_MagicalRooms_STRING
RsProdsGen_cmd.CommandText = "SELECT tblProducts.ProdID, tblProducts.ProdName, Min(tblPrice.Price) AS MinOfPrice, Min(tblPrice.Price) AS MinOfPrice1, Count(tblPrice.Price) AS CountOfPrice, tblImages.Image FROM (tblProducts LEFT JOIN tblImages ON tblProducts.ProdID = tblImages.ProdID) LEFT JOIN tblPrice ON tblProducts.ProdID = tblPrice.PriceProdID WHERE tblProducts.ProdAgeFrom <= ? AND tblProducts.ProdAgeTo<= ? AND tblProducts.ProdGender = ? Or tblProducts.ProdGender ="u" AND tblImages.Featured=True GROUP BY tblProducts.ProdID, tblProducts.ProdName, tblImages.Image HAVING (Min (tblPrice.Price)) >= ? AND (Min (tblPrice.Price))<= ?"
RsProdsGen_cmd.Prepared = true
RsProdsGen_cmd.Parameters.Append RsProdsGen_cmd.CreateParameter("param1", 5, 1, -1, RsProdsGen__ParamAgeFrom) ' adDouble
RsProdsGen_cmd.Parameters.Append RsProdsGen_cmd.CreateParameter("param2", 5, 1, -1, RsProdsGen__ParamAgeTo) ' adDouble
RsProdsGen_cmd.Parameters.Append RsProdsGen_cmd.CreateParameter("param3", 200, 1, 255, RsProdsGen__ParamGen) ' adVarChar
RsProdsGen_cmd.Parameters.Append RsProdsGen_cmd.CreateParameter("param4", 5, 1, -1, RsProdsGen__ParamPriceFrom) ' adDouble
RsProdsGen_cmd.Parameters.Append RsProdsGen_cmd.CreateParameter("param5", 5, 1, -1, RsProdsGen__ParamPriceTo) ' adDouble
Set RsProdsGen = RsProdsGen_cmd.Execute
RsProdsGen_numRows = 0
%>
This error is more often than not caused by a misspelling of a field or table name
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Closed, 500 points refunded.
Computer101
EE Admin
Computer101
EE Admin