<%
Option Explicit
If IsEmpty(Request.QueryString("ProductID")) Then
  Response.Redirect "./product_catalog.asp"
End If
Dim conn
Dim RSProduct
Dim LongDescription
Dim ShortDescription
Dim RSSelects
Dim RSSelectItems
Dim RSComments
set conn = server.createobject ("adodb.connection")
conn.open "ASPBook", "sa", "nep2tune"
conn.execute "insert into ASPSessionPages (SessionID, PageName) values (" _
  & Session("SessionID") & ", " _
  & "'Product" & Request.QueryString("ProductID") & "')"
set RSProduct = conn.execute("SELECT ASPProducts.LongDescription, " _
  & "ASPProducts.ProductID, ASPProducts.ProductName, " _
  & "ASPProducts.ShortDescription, ASPProducts.Path2Icon, ASPProducts.Price, " _
  & "ASPProducts.OnClearance, ASPProducts.ClearancePrice " _
  & "FROM ASPProducts " _
  & "WHERE ProductID = " & Request.QueryString("ProductID"))
LongDescription = RSProduct("LongDescription")
ShortDescription = RSProduct("ShortDescription")
set RSSelects = conn.execute("SELECT ASPSelectLists.SelectListID, " _
  & "ASPSelectLists.SelectListName FROM ASPProductSelectLists " _
  & "INNER JOIN ASPSelectLists ON ASPProductSelectLists.SelectListID = " _
  & "ASPSelectLists.SelectListID WHERE " _
  & "ASPProductSelectLists.ProductID = " & Request.QueryString("ProductID"))
set RSComments = conn.execute("select CommentName, CommentFrom, Comment from " _
  & "ASPProductComments where ProductID = " & Request.QueryString("ProductID"))
%>   
