Search form asp multiple fields access database

Question

Hello everyone:
I do really need help guys. Using ASPVBScript on Dreamweaver CS3
It’s all about search and results page.
Search Form
This form contains 6 list/menus:
Ref, New_resale, Town, Type_English, Bedrooms, Bathrooms.
In all of them I have an option “All”, the idea is if you choose “All” the results page displays all the records of the DB. I don’t know how to do this.
The way I have it now is if you choose from the list/menus data matching the data on the DB it will display it on the results page with no problem.
Example of what I need the "All" for.
I choose “All” from Ref list/menu.
Then if I choose matching data from DB for the rest of list/menus. The desire result should be the results page displaying all the records matching all list/menu data exept Ref. Basically is searching the DB for matching data independently of  Ref  if you choose “All” from the list/menu.
This is the code for the results page:
<%
Dim Search_properties__varRef
Search_properties__varRef = "%"
If (Request.Form("Ref") <> "") Then
  Search_properties__varRef = Request.Form("Ref")
End If
%>
<%
Dim Search_properties__varNew_resale
Search_properties__varNew_resale = "%"
If (Request.Form("New_resale") <> "") Then
  Search_properties__varNew_resale = Request.Form("New_resale")
End If
%>
<%
Dim Search_properties__varTown
Search_properties__varTown = "%"
If (Request.Form("Town") <> "") Then
  Search_properties__varTown = Request.Form("Town")
End If
%>
<%
Dim Search_properties__varType_English
Search_properties__varType_English = "%"
If (Request.Form("Type_English") <> "") Then
  Search_properties__varType_English = Request.Form("Type_English")
End If
%>
<%
Dim Search_properties__varBedrooms
Search_properties__varBedrooms = "%"
If (Request.Form("Bedrooms") <> "") Then
  Search_properties__varBedrooms = Request.Form("Bedrooms")
End If
%>
<%
Dim Search_properties__varBathrooms
Search_properties__varBathrooms = "%"
If (Request.Form("Bathrooms") <> "") Then
  Search_properties__varBathrooms = Request.Form("Bathrooms")
End If
%>
<%
Dim Search_properties
Dim Search_properties_cmd
Dim Search_properties_numRows
Set Search_properties_cmd = Server.CreateObject ("ADODB.Command")
Search_properties_cmd.ActiveConnection = MM_amanda_STRING
Search_properties_cmd.CommandText = "SELECT * FROM [Resale Properties] WHERE Ref = ? AND ? = New_resale AND ? = Town AND ? = Type_English AND ? = Bedrooms AND ? = Bathrooms ORDER BY [Ref] ASC"
Search_properties_cmd.Prepared = true
Search_properties_cmd.Parameters.Append Search_properties_cmd.CreateParameter("param1", 200, 1, 255, Search_properties__varRef) ' adVarChar
Search_properties_cmd.Parameters.Append Search_properties_cmd.CreateParameter("param2", 200, 1, 255, Search_properties__varNew_resale) ' adVarChar
Search_properties_cmd.Parameters.Append Search_properties_cmd.CreateParameter("param3", 200, 1, 255, Search_properties__varTown) ' adVarChar
Search_properties_cmd.Parameters.Append Search_properties_cmd.CreateParameter("param4", 200, 1, 255, Search_properties__varType_English) ' adVarChar
Search_properties_cmd.Parameters.Append Search_properties_cmd.CreateParameter("param5", 200, 1, 255, Search_properties__varBedrooms) ' adVarChar
Search_properties_cmd.Parameters.Append Search_properties_cmd.CreateParameter("param6", 200, 1, 255, Search_properties__varBathrooms) ' adVarChar
Set Search_properties = Search_properties_cmd.Execute
Search_properties_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
Search_properties_numRows = Search_properties_numRows + Repeat1__numRows
%>
<%
Dim MM_paramName
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth
Dim MM_removeList
Dim MM_item
Dim MM_nextItem
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
  MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If
MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  End If
Next
' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  End If
Next
' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
  MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "")  Then
  MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
  MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
Thanks a lot for your help. I hope you can give and hand.
Cheers,
Johnny

Answer 1

The best method would be to construct the SQL statement dynamically, removing conditions from the WHERE clause if value 'ALL' is contained in the form field. You'll need to compare each form field value and then append the WHERE clause accordingly. Of course, you will need to have reasonable SQL and VBScript skills to accomplish this.
Also, I see you table name has a space in it. Tables and column names should never contain spaces - it leads to problems.