%@ Language=VBScript %> <%Option Explicit%> <% Dim PageName PageName = "Catalogue" %> <% Dim Category, SubCategory, ProductID, ProductName, ItemDescription, Keyword, PageCategory, PageSubCategory If Request.Cookies("SessionID") = "" Then Response.Cookies("SessionID") = Session.SessionID If Not IsNumeric(Trim(Request("ProductID"))) Then Set Conn = Nothing Response.Redirect "catalogue.asp" End If Keyword = Trim(Request("SearchThis")) Conn.open strConn strSQL = "SELECT Category.Category, Product.ProductID, Product.ProductName " strSQL = strSQL & "FROM Category INNER JOIN Product ON Category.Category = Product.Category " strSQL = strSQL & "WHERE Product.ProductID = " & Trim(Request("ProductID")) & " " strSQL = strSQL & "AND Product.Published <> 0" Set RS = Server.CreateObject("ADODB.Recordset") Set RS.ActiveConnection = Conn RS.Open strSQL If Not RS.EOF Then Category = RS("Category") Category = RS("Category") ProductID = RS("ProductID") ProductName = RS("ProductName") Else Set RS = Nothing Set Conn = Nothing Response.Redirect "catalogue.asp" End If Set RS = Nothing PageCategory = Split(Category, " - ")(0) If Ubound(Split(Category, " - ")) = 1 Then PageSubCategory = Split(Category, " - ")(1) Else PageSubCategory = "" End If %>
|