Can anyone help me out on a problem I have with my coding?

I am trying to display two different sets of results using "Select Case". This is linked from a drop down box on another page.
The first "Case" statement works but the second "Case" statement does not. I have tried to manipulate the code and I can show one or the other results but not both.
Thanks for reading this problem.

The code I have is below:

<%
  varProductType = Request.Form("producttype")

  Select Case varProductType

    Case "Mains Drills"

  Dim objRS, objComm, objParam, strType
  Set objComm = Server.Createobject("ADODB.Command")

  objComm.ActiveConnection = strConnect
  objComm.CommandText = "qryMainsDrills"
  objComm.CommandType = adCmdStoredProc

  Set objParam = _
     objComm.CreateParameter("Required Type", adVarChar, adParamInput, 50)
  objComm.Parameters.Append objParam

  strType = "Mains"
  objComm.Parameters("Required Type") = strType

  Set objRS = objComm.Execute

  Set objComm = Nothing
  Set objParam = Nothing

Response.Write "<TABLE BORDER=""0"" CELLSPACING=""6"" CELLPADDING=""3"">" & _
"<tr>" & _
"<td WIDTH=80>" & "&nbsp;" & "</td>" & _
"<td WIDTH=100>" & "<B>Product ID</B>" & "</td>" & _
"<td WIDTH=120>" & "<B>Manufacturer</B>" & "</td>" & _
"<td WIDTH=170>" & "<B>Description</B>" & "</td>" & _
"<td WIDTH=150>" & "<B>Product Code</B>" & "</td>" & _
"<td WIDTH=70>" & "<B>Price</B>" & "</td>" & _
"</tr>"

  While Not objRS.EOF
    Response.Write _

  "<TR>" & _
    "<TD>" & objRS("Image") & "</TD>" & _
    "<TD ALIGN=CENTER>" & objRS("ProductID") & "</TD>" & _
    "<TD>" & objRS("Manufacturer") & "</TD>" & _
    "<TD>" & objRs("ProductDescription") & "</TD>" & _
    "<TD>" & objRS("ProductCode") & "</TD>" & _
    "<TD>" & FormatCurrency(objRS("UnitPrice")) & "</TD>" & _
  "</TR>" & _

    objRS.MoveNext
  Wend
Response.Write "</TABLE>"
  objRS.Close
  Set objRS = Nothing


    Case "Cordless Drills"

  objComm, objParam, strType
  Set objComm = Server.Createobject("ADODB.Command")

  objComm.ActiveConnection = strConnect
  objComm.CommandText = "qryCordlessDrills"
  objComm.CommandType = adCmdStoredProc

  Set objParam = _
     objComm.CreateParameter("Required Type", adVarChar, adParamInput, 50)
  objComm.Parameters.Append objParam

  strType = "Cordless"
  objComm.Parameters("Required Type") = strType

  Set objRS = objComm.Execute

  Set objComm = Nothing
  Set objParam = Nothing

Response.Write "<TABLE BORDER=""0"" CELLSPACING=""6"" CELLPADDING=""3"">" & _
"<tr>" & _
"<td WIDTH=80>" & "&nbsp;" & "</td>" & _
"<td WIDTH=100>" & "<B>Product ID</B>" & "</td>" & _
"<td WIDTH=120>" & "<B>Manufacturer</B>" & "</td>" & _
"<td WIDTH=170>" & "<B>Description</B>" & "</td>" & _
"<td WIDTH=150>" & "<B>Product Code</B>" & "</td>" & _
"<td WIDTH=70>" & "<B>Price</B>" & "</td>" & _
"</tr>"

  While Not objRS.EOF
    Response.Write _

  "<TR>" & _
    "<TD>" & objRS("Image") & "</TD>" & _
    "<TD ALIGN=CENTER>" & objRS("ProductID") & "</TD>" & _
    "<TD>" & objRS("Manufacturer") & "</TD>" & _
    "<TD>" & objRs("ProductDescription") & "</TD>" & _
    "<TD>" & objRS("ProductCode") & "</TD>" & _
    "<TD>" & FormatCurrency(objRS("UnitPrice")) & "</TD>" & _
  "</TR>" & _

    objRS.MoveNext
  Wend
Response.Write "</TABLE>"
  objRS.Close
  Set objRS = Nothing

End Select
%>

Andy, I can't see anything obviously wrong except for a stray line-continuation character in your loop, but that doesn't explain why one Case works when the other doesn't.

I think it would help to figure out what's going wrong if you re-organise the code to make it much simpler. You are doing essentially the same thing in both Cases so try using this version instead and see if that helps.

hth
Phil

Are both values passed through the Form collection in the same case? If I am not mistaken, the Case statement is Case sensitive....

    won't work when you pass "cordless drills"

HtH

Imar


---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

The Case Else which I added will be trigerred if this is the problem.

In hindsight its better to change to

Thanks for your help, I will try out your suggestions and post a reply to tell you if it works.
Thanks

Imar. In answer to your question, the answer is yes, no problems there.
pgtips. Tried your suggestion and everything is now OK.

Thanks for your help. Unlike me you must be a bit of a whizz on ASP, but I'm getting there.