<%
Option Explicit
Dim conn
Dim RSProduct
If IsEmpty(Request.QueryString("ProductID")) Then
  Response.Redirect "./product_catalog.asp"
End If
set conn = server.createobject ("adodb.connection")
conn.open "ASPBook", "sa", "nep2tune"
conn.execute "insert into ASPSessionPages (SessionID, PageName) values (" _
  & Session("SessionID") & ", " _
  & "'ProductPicture" & Request.QueryString("ProductID") & "')"
set RSProduct = conn.execute("select Path2Image from ASPProducts where " _
  & "ProductID = " & Request.QueryString("ProductID"))
Response.Redirect "../products/" & RSProduct("Path2Image")
%>
