% Option Explicit Response.Expires = 60 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" ' Declare our variables... always good practice! on error resume next Dim strURL ' The URL of this page so the form will work ' no matter what this file is named. Dim Total Dim cnnSearch ' ADO connection Dim rstSearch ' ADO recordset Dim strDBPath ' path to our Access database (*.mdb) file Dim strSQL ' The SQL Query we build on the fly Dim strSearch ' The text being looked for ' Retreive the URL of this page from Server Variables strURL = Request.ServerVariables("URL") ' Retreive the term being searched for. I'm doing it on ' the QS since that allows people to bookmark results. ' You could just as easily have used the form collection. strSearch = Request.QueryString("search") strSearch = Replace(strSearch, "'", "''") ' Since I'm doing this all in one page I need to see if anyone ' has searched for something. If they have we hit the DB. ' O/W I just show the search form and quit. %>
'Search' The Owner's List
by Name, City, State and Color & VIN (% returns all)
Beta Ver. 1.2 (By founder Dave Wagner - 03Mach1)
QUICK SEARCH BY
COLOR (Click on Color)
( Blue,
Zinc Yellow,
Screamin' Yellow,
Torch Red,
BLACK,
Dark Shadow Grey - DSG,
White,
Comp. Orange)
Example: Type in 'Azure Blue%' for
Color, 'OH' for OHIO, 5-Speed, Auto, etc...,
USE '%' for Wildcards, LA% = anything that starts with LA... %Z1%, Find
'Z1' anywhere...etc
NOTE: It may give you More than you are looking for, just narrow
your search.
Member ID |
Name | City | State | Year | Color | Trans | vin |
---|---|---|---|---|---|---|---|
<%= rstSearch.Fields("ID").Value %> | <%= rstSearch.Fields("Name").Value %> | <%= rstSearch.Fields("city").Value %> | <%= rstSearch.Fields("state").Value %> | <%= rstSearch.Fields("year").Value %> | <%= rstSearch.Fields("Exterior_Color").Value %> | <%= rstSearch.Fields("Transmission").Value %> | <%= rstSearch.Fields("vin").Value %> |
Total: <%Response.write Total%>
Back to
Owner's Page
ORDER MACH 1 PARTS ONLINE:
<% ' Close our recordset and connection and dispose of the objects rstSearch.Close Set rstSearch = Nothing cnnSearch.Close Set cnnSearch = Nothing End If %>