<%@LANGUAGE="VBSCRIPT"%> <% Dim allListings__MMColParam allListings__MMColParam = "1" If (Request.QueryString("ID") <> "") Then allListings__MMColParam = Request.QueryString("ID") End If %> <% Dim allListings Dim allListings_numRows Set allListings = Server.CreateObject("ADODB.Recordset") allListings.ActiveConnection = MM_gsale_STRING allListings.Source = "SELECT * FROM listing WHERE ID = " + Replace(allListings__MMColParam, "'", "''") + "" allListings.CursorType = 0 allListings.CursorLocation = 2 allListings.LockType = 3 allListings.Open() allListings_numRows = 0 %> Gray's [Datsun] Garage

	• automotive parts • specialty tool rental

<% If allListings.Fields.Item("Main_Pic").Value <> "none" Then %>

.jpg" width="200" border=0>

larger image

<%End If%>

<%=(allListings.Fields.Item("Title").Value)%><% If allListings.Fields.Item("Sale_Type").Value = "1" Then%> ON EBAY<%End If%>

<%=(allListings.Fields.Item("Description").Value)%>

<%If allListings.Fields.Item("Sale_Type").Value = "1" Then%> ">http://cgi.ebay.com/ebaymotors/ws/eBayISAPI.dll?
ViewItem&item=<%=(allListings.Fields.Item("Ebay_ID").Value)%> <%ElseIf allListings.Fields.Item("Sale_Type").Value = "2" Then%>

<%ElseIf allListings.Fields.Item("Sale_Type").Value = "3" Then Response.Write("

") End If%> <% If allListings.Fields.Item("Main_Pic").Value <> "none" Then %>

.jpg">

<% For picIndex = 1 To allListings.Fields.Item("Detail_Pics").Value%>

.jpg">

<% Next Set picIndex = nothing %>
<%End If%>

email me at:

www.graytechsoftware.com/garage/

<% allListings.Close() Set allListings = Nothing %>