<% Set Conn = Server.CreateObject("ADODB.Connection") %> <% Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mariah.mdb") %> <% SQL = "SELECT DISTINCT m_make FROM search ORDER By m_make" %> <% Set make_rst = Conn.Execute(SQL) %> <% action = Request("action") %> <% if action = "Search Make" then %> <% m_make = Request("m_make") %> <% SQL = "SELECT * FROM search WHERE m_make = '"&m_make&"' ORDER By m_year" %> <% Set search_rst = Conn.Execute(SQL) %> <% desc = m_make %> <% column = "Year" %> <% field = "m_year" %> <% elseif action = "Search Year" then %> <% m_year = Request("m_year") %> <% SQL = "SELECT * FROM search WHERE m_year = '"&m_year&"' ORDER By m_make" %> <% Set search_rst = Conn.Execute(SQL) %> <% desc = m_year & " year" %> <% column = "Make" %> <% field = "m_make" %> <% end if %> Archives - Mariah Motor Classics
Motorcycle Make and Year Search Page
 
Search for Make
(click arrow to open list)

 OR Search for Year
Enter 4-digit year i.e. 1956
("?" to view unknown years)
<% if action = "Search Make" OR action = "Search Year" then %>
<% On Error Resume Next %> <% search_rst.MoveFirst %> <% Do While Not search_rst.EOF %> <% search_rst.MoveNext %> <% Loop %>
Scroll down to see the Search Results for - <%= desc %>
 
Model <%= column %> Cond Price Mariah List
<%= search_rst("m_model") %> <%= search_rst(field) %> <%= search_rst("m_cond") %> <%= search_rst("m_price") %> <%= search_rst("m_cmonth") %>, <%= search_rst("m_cyear") %> Col #<%= search_rst("m_column") %>
<% search_rst.Close %> <% end if %>

Joe Overmyer can be reached at:

P.O. Box 460, Riverside, CT 06878-0460, USA

Phone: (203) 661-3141.   Fax: (203) 661-3922.
Email: infommc@hotmail.com
Website: www.mariahmotorclassics.com

If you request info, please send a self-addressed, stamped envelope.

 
Go to MMC Home Page
<% make_rst.Close %> <% Conn.Close %>