<% Dim rsProducts, prodID, SQL
prodID = Request.QueryString("prodID")
set rsProducts = Server.CreateObject("ADODB.recordset")
SQL = "SELECT * from dataTable INNER JOIN sfCategories ON " _
& "dataTable.prodCategoryID = sfCategories.catID WHERE prodID = '" & prodID & "'" _
& " AND prodEnabledIsActive = 1 ORDER BY prodID"
rsProducts.Open SQL, mycnn
%>
PolyDome Product Category Page for <%= rsProducts(5) %>
