<% Response.Buffer = True %>
<% ShowHeader "Search Results" %>
<%
Dim Connect, MyClass, WhereClause, Query, Item
Dim Descript, Category, State, PriceFrom, PriceTo
Dim NoResults
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Classifieds"
' Get the form information in local variables
Item = Trim(Request("Item"))
Descript = Trim(Request("Description"))
Category = Trim(Request("Category"))
State = Trim(Request("State"))
PriceFrom = Trim(Request("PriceFrom"))
PriceTo = Trim(Request("PriceTo"))
' If they only entered a category, go to the category page
If Item = "" And Descript = "" And Category <> "" And _
State = "" And PriceFrom = "" And PriceTo = "" Then
Response.Redirect "category.asp?Category=" & Category
End If
WhereClause = "WHERE "
If Item <> "" Then
WhereClause = WhereClause & "InStr(Item,'" & _
Item & "')>0 AND "
End If
If Descript <> "" Then
WhereClause = WhereClause & "InStr(Description,'" & _
Descript & "')>0 AND "
End If
If Category <> "" Then
WhereClause = WhereClause & "Category = '" & _
Category & "' AND "
End If
If State <> "" Then
WhereClause = WhereClause & "State = '" &_
State & "' AND "
End If
If PriceFrom = "" And PriceTo <> "" Then
PriceFrom = "0"
ElseIf PriceFrom <> "" And PriceTo = "" Then
PriceTo = "9999999"
End If
If PriceFrom <> "" And PriceTo <> "" Then
WhereClause = WhereClause & "Price >= " & _
PriceFrom & " AND Price <= " & _
PriceTo & " AND "
End If
If Right(WhereClause,4) = "AND " Then
WhereClause = Left(WhereClause, Len(WhereClause) -4)
Query = "SELECT * FROM Items " & WhereClause
Set MyClass = Connect.Execute(Query) %>
<%
NoResults = True
Do While Not MyClass.EOF
NoResults = False%>
| "><%=MyClass("Item")%> |
<%=MyClass("Price")%>
|
<%=MyClass("State")%>
|
<%
MyClass.MoveNext
Loop
%>
<%
If NoResults = True Then %>
Sorry, no records in the database matched your search parameters. Click Back and try
again.
<%
End If
Else
' They didn't enter any selection criteria
Response.Write "You didn't enter any search parameters. "
Response.Write "Please click the Back button and try "
Response.Write "again."
End If
%>