<%@ Language=VBScript %> [an error occurred while processing this directive] <%'Option Explicit 'created by: PSC - Rik Ebbesen 'create date: 20020919 'purpose: to replace the static product popup pages... this page should be able to handle the display of any record in the product table %> [an error occurred while processing this directive] <% on error resume next dim adoCmd, adoRs, intProductID 'need to retrieve the product ID from the query string... intProductID = Clean(Request.QueryString("ProductID")) set adoCmd = CommonCmd("spGetProductDetails") if err then Response.Write "Error opening Product: " & err.Description Response.End end if ' Bind the Parameters located above. adoCmd.parameters("@ProductID").value = intProductID adoCmd.parameters("@PromotionCode").value = Clean(Session("PromotionCode")) if err then Response.Write "
Bind Parameters Error: " & err.Source & " " & err.number & " " & err.Description Response.End end if err.Clear set adoRs = adoCmd.Execute() if adoRs is nothing or err then Response.Write "
Command Error: " & err.Description Response.Write "

Database Error Description: " Dim j For j = 0 to adocmd.activeconnection.errors.count response.write "
     " & adocmd.activeconnection.errors(j).description Next set adoCmd = nothing set adoRs = nothing Response.End end if set adors.activeconnection = nothing %> >

" border="0"> &Quantity=1';" WIDTH="181" HEIGHT="60">

Click here to close this window <%=adoRs("ItemName")%> <%=adoRs("ItemDescription")%> Color: <%=Clean(adoRs("Color"))%> Dimensions: <%=Clean(adoRs("Dimensions"))%> Weight: <%=Clean(adoRs("Weight"))%> Item #: <%=Clean(adoRs("ItemNumber"))%> Regular Price: <%=formatcurrency(Clean(adoRs("ItemPrice")),2)%> Internet Price: <%=formatcurrency(Clean(adoRs("Price")),2)%>

<%'clean up set adors = nothing set adocmd = nothing %>