<% ' ' Get the product id passed from shopping.asp ' intProductID = Request.QueryString("pid") intSectionID = Request.QueryString("sid") intSubSectionID = Request.QueryString("ssid") Session("SkuID") = UseID %> <% ' open database connection ' create ado connection component to connect with database set dbconn = server.createobject("adodb.connection") dbconn.connectiontimeout = application("dbconn_connectiontimeout") dbconn.commandtimeout = application("dbconn_commandtimeout") dbconn.open application("dbconn_connectionstring"), application("dbconn_runtimeusername"), application("dbconn_runtimepassword") ' Get Section and SubSection Names txtSectionName = "" txtSubSectionName = "" sql = "" sql = sql & "SELECT tblSection.SectionName, " sql = sql & "tblSubSection.SubSectionName " sql = sql & "FROM tblSubSection INNER JOIN " sql = sql & "tblMapSection_to_SubSection ON " sql = sql & "tblSubSection.SubSectionID = tblMapSection_to_SubSection.SubSectionID " sql = sql & "INNER JOIN " sql = sql & "tblSection ON " sql = sql & "tblMapSection_to_SubSection.SectionID = tblSection.SectionID " sql = sql & "WHERE (tblSubSection.SubSectionID = '" & intSubSectionID & "');" Set cmdSection = Server.CreateObject("ADODB.Command") Set rsSection = Server.CreateObject("ADODB.Recordset") cmdSection.CommandText = sql cmdSection.CommandType = 1 Set cmdSection.ActiveConnection = DBConn rsSection.Open cmdSection, , 0, 1 txtSectionName = rsSection("SectionName") txtSubSectionName = rsSection("SubSectionName") rsSection.Close Set cmdSection = nothing Set rsSection = nothing set cmdtemp = server.createobject("adodb.command") set rsProduct = server.createobject("adodb.recordset") cmdtemp.commandtext = " select * from tblProducts where ProductID =" & intProductID cmdtemp.commandtype = 1 set cmdtemp.activeconnection = dbconn rsProduct.open cmdtemp, , 1, 3 Dim ProductDesc if len(rsProduct("ProductImage2")) then ProductImage = rsProduct("ProductImage2") else ProductImage = "nophoto.gif" end if sql = "SELECT " sql = sql & "tblMapProduct_to_ProductSKU.ProductID, tblProductSKU.SKU_ID, tblProductSKU.SKU_No, tblProductSKU.SKU_Name, tblProductSKU.SKU_Desc, tblProductSKU.SKU_Price, tblProductSKU.Active " sql = sql & "FROM tblMapProduct_to_ProductSKU INNER JOIN tblProductSKU ON tblMapProduct_to_ProductSKU.SKU_ID = tblProductSKU.SKU_ID " sql = sql & "WHERE tblMapProduct_to_ProductSKU.ProductID = '" & intProductID & "' AND tblProductSKU.Active <> 0 ;" Set cmdTemp2 = Server.CreateObject("ADODB.Command") Set rsProductSKU = Server.CreateObject("ADODB.Recordset") cmdTemp2.CommandText = sql cmdTemp2.CommandType = 1 Set cmdTemp2.ActiveConnection = DBConn rsProductSKU.Open cmdTemp2, , 1, 3 Dim skuID() Dim skuNo() Dim skuName() Dim skuDesc() Dim skuActive() Dim skuPrice() Dim skuCount skuCount = 0 DisplayLine = 0 While Not rsProductSKU.EOF skuCount = skuCount + 1 ReDim Preserve skuID(skuCount) ReDim Preserve skuNo(skuCount) ReDim Preserve skuName(skuCount) ReDim Preserve skuDesc(skuCount) ReDim Preserve skuPrice(skuCount) ReDim Preserve skuActive(skuCount) skuID(skuCount) = rsProductSKU("SKU_ID") skuNo(skuCount) = Trim(rsProductSKU("SKU_No")) skuName(skuCount) = Trim(rsProductSKU("SKU_Name")) skuDesc(skuCount) = rsProductSKU("SKU_Desc") skuPrice(skuCount) = rsProductSKU("SKU_Price") skuActive(skuCount) = rsProductSKU("Active") rsProductSKU.MoveNext Wend %> [an error occurred while processing this directive]

PRODUCTS • <%= ucase(txtSectionName) %> • <%= ucase(txtSubSectionName) %> <%= rsProduct("ProductName") %> <%= rsProduct("ProductDesc2") %> <% If skuCount Then %> <% For PrintLoop = 1 To skuCount %> <% else %> "> <% end if %> <% Next %> Item Price Quantity <%=skuNO(PrintLoop)%> - <%=SKUDesc(PrintLoop)%> <%=Num2Dollars(SKUPrice(PrintLoop))%> ">"> <% if skuCount = 1 then %> "> [ add to cart ]   <% end if %>

<% '******************************************************************************************** '* end of content area '******************************************************************************************** %> [an error occurred while processing this directive]