<%@ Language=VBScript %>
<%
On Error Resume Next
Dim objCommerce 'AldaT Commerce Object
Dim locADORecords, locADORecords2 'locRecordsets
Dim ErrorFlag 'Flag if string error occurs
Dim ErrorNumber 'Err.number to error.asp
Dim ErrorDescription 'Err.description to error.asp
Dim ErrorSource 'Err.source to error.asp
Dim ErrorPage 'Error source page
Dim ErrorUser 'Error source user
Dim locProductline 'store productline name
Dim arrProductID 'list of products to be associated on this page; each grouping of products should be referenced by one master product on this page
Dim iArrSize 'size of arrProductID
Dim sProductContent, sImagePath
Dim TitleContent 'populated via parker_params case selection
Dim locProductID
Dim sDescription, iTrucStr
arrProductID = Array(12001,12002,12220,12003,12207,12016)
'arrProductID = Array(12001,12002,12220,12000,12004,12003,12207,12016) 'POPULATE with related products per page
'arrProductID = Array(12000, 12004, 12003, 12002, 12001, 12016, 12207)
iArrSize = UBound(arrProductID)
sProductContent = ""
If Session("OrderID") <> "" Then
'redirect to last page visited in check out process if applicable
Select Case True
Case (InStr(1, Session("Submitted"), "ship_misc", 1) > 0)
Response.Redirect("../commerce/receipt.asp?urlmessage=" & Server.URLEncode("Order already in progress"))
Case (InStr(1, Session("Submitted"), "payment", 1) > 0)
Response.Redirect("../commerce/ship_misc.asp?urlmessage=" & Server.URLEncode("Order already in progress"))
Case (InStr(1, Session("Submitted"), "addresses", 1) > 0)
Response.Redirect("../commerce/payment.asp?urlmessage=" & Server.URLEncode("Order already in progress"))
End Select
End If
Session("Submitted") = ""
Set objCommerce = Server.CreateObject("aldatCommerce.Product")
For iCount = 0 to iArrSize
locProductID = arrProductID(iCount)
Set locADORecords = objCommerce.getProduct(Application("Company"),locProductID)
If Err.number > 0 Then
Err.Clear
Else
%>
<%
sDescription = locADORecords("Description")
If Len(sDescription) > 350 Then
iTruncStr = (InStr(345, sDescription, " ") - 1)
If iTruncStr > 0 Then
sDescription = Left(sDescription, iTruncStr) & "..."
End If
End If
Set locADORecords2 = objCommerce.getContent(Application("Company"),,1,arrProductID(iCount))
If Err.number > 0 Then
sImagePath = "clear_pixel.gif"
Else
sImagePath = locADORecords2("ContentValue")
End If
sProductContent = sProductContent & "
" & Chr(13)
End If
Next
strFlashPath = "final_movie"
%>
<%=Application("CompanyDisplay")%> Products
Intubation Technology: <%If Session("AcctType") <> "" Or Session("AcctType") = "Unassigned" Then%><%=Session("AcctType")%>
<%Else%> Log-in or register for an account to access discounted prices<%End If%>
<%
If Request.QueryString("urlmessage") <> "" Then
%>