<% @ Language = VBScript %> Products <% Else Set DBConn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") DBConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/(dbs)/pdb.mdb") Set Rs = DBConn.Execute("SELECT * FROM eng WHERE PID = " & Request("pid")) %>
 
<% If Request("pid") = "" Then %>
  
   Carbon Fiber  Classic Shiny  Classic Luminous
   Classic Emboss  Classic Enamel  Classic Etching
   Classic Pattern  Classic Plastic  Classic Brush
   Chrono Eyes  Chrono MOP  Chrono MirrorSeal
   Chrono Sport  Chrono Pattern  Chrono Double
border=0 alt='<% = Rs("Name") %>'>
 <% = Rs("Background") %>
 <% = Rs("Color") %>
<% If Rs("Function") <> "" Then Response.Write(" " & Rs("Function") & "
")%> <% If Rs("Luminous") <> "" Then Response.Write(" " & Rs("Luminous") & "
")%> <% If Rs("Luminous-HT") <> "" Then Response.Write(" " & Rs("Luminous-HT") & "
")%> <% If Rs("Emboss-IH") <> "" Then Response.Write(" " & Rs("Emboss-IH") & "
")%> <% If Rs("PIndex") <> "" Then Response.Write(" " & Rs("PIndex") & "
")%> <% If Rs("TopRing") <> "" Then Response.Write(" " & Rs("TopRing") & "
")%>
<% = Rs("Name") %>
<% Rs.Close DBConn.Close Set DBConn = Nothing End If %>