I am expanding an existing form to include more search options. Instead of using a verbose set of nested If/Then statements I am trying to use a single Case statement.
When I post the code I created I get a Server 500 error. Can someone help me straighten out my code?
The idea is: a user can search for a person by name, location, specialty, or age group. The form posts to a 'results' page, and the 'results' page displays their choices.
Here is my 'results' page code:
Quote:
Response.Write "<p>You searched for: <b>"
Do While Request("Name") <> "" Or Request("Specialty") <> "" Or Request("AgeGroup") <> "" Or Request("Clinic") <> ""
Select Case Request
Case when ("Specialty") <> ""
SpecialtiesRS.Filter = "Id=" & Request("Specialty") & ""
SpecialtySearch = SpecialtiesRS("Specialty")
Case when ("AgeGroup") <> ""
AgeGroupRS.Filter = "Id=" & Request("AgeGroup") & ""
AgegroupSearch = AgeGroupRS("AgeGroup")
Case when ("Clinic") <> ""
ClinicsRS.Filter = "Id=" & Request("Clinic") & ""
ClinicSearch = ClinicsRS("Name")
End Select
Loop
Response.Write "<br>" & Request("Name") & SpecialtySearch & AgegroupSearch & ClinicSearch & "</b>.</p>"
|
Thanks for any suggestions!
|