<%@LANGUAGE="VBSCRIPT"%> <% Dim allProducts__MMColParam allProducts__MMColParam = "1" If (Request.QueryString("ID") <> "") Then allProducts__MMColParam = Request.QueryString("ID") End If %> <% Dim allProducts Dim allProducts_numRows Set allProducts = Server.CreateObject("ADODB.Recordset") allProducts.ActiveConnection = MM_gsale_STRING allProducts.Source = "SELECT * FROM products WHERE ID = " + Replace(allProducts__MMColParam, "'", "''") + "" allProducts.CursorType = 0 allProducts.CursorLocation = 2 allProducts.LockType = 3 allProducts.Open() allProducts_numRows = 0 %> Gray's [Datsun] Garage: Products
Gray's Garage • automotive parts 
• specialty tool rental 
 

<%=(allProducts.Fields.Item("Title").Value)%>

<%=(allProducts.Fields.Item("Description").Value)%>
"> "> "> "> $<%=(allProducts.Fields.Item("Price").Value)%>  

  <% If allProducts.Fields.Item("Caption").Value = "image" Then %> ">_sm.jpg" border="0">
larger image <% Else %> _sm.jpg" border="0">
  <%=(allProducts.Fields.Item("Caption").Value)%> <% End If %>
 
email me at:
+ ©2004 , Count:
www.graytechsoftware.com/garage/
<% allProducts.Close() Set allProducts = Nothing %>