<%
DIM mySQL, objRS, strItemNum
strItemNum = Request("ItemNum")
Set objRS = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT * FROM Products Where ItemNumber='"& strItemNum &"'"
objRS.Open mySQL, objConn
If objRS.EOF Then
Response.Redirect "error.asp?Error=
Sorry, that Item was not found in the database."
Response.End
Else
End If
Dim strOpt1Id
Dim strOpt2Id
Dim strOpt3Id
Dim oRs2
Dim Sql2
Dim oRs3
Dim Sql3
Dim oRs4
Dim Sql4
Call AddToCart()
Dim strPrice, strSalePrice
strPrice = FormatNumber(objRS("Price"),2)
strSalePrice = FormatNumber(objRS("SalePrice"),2)
%>
Product Details
text="#<%= strText %>" link="#<%= strLink %>" vlink="#<%= strVLink %>" alink="#<%= strALink %>">