<% ProductID = Request("ProductID") StockID = Request("StockID") ListenLink = Request("ListenLink") ' Open Database Connection Set cn = Server.CreateObject("ADODB.Connection") openStr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/ifunklive.mdb") cn.open openStr SQL = "SELECT * FROM Products WHERE ProductID = " & Request("ProductID") Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, cn, 2, 2 %>

< Go Back
     
" width="113" height="112">
 
<% =rs("Title") %>
<% =rs("Description") %>
Sorry, item no longer available for purchase.
<% rs.Close Set rs = Nothing Set cn = Nothing %>