<%Option Explicit%> <% 'Make Sure Site is secure If Request.ServerVariables("SERVER_PORT")=80 Then Dim strRedirURL strRedirURL = "https://" & "www.stretchtite.com" strRedirURL = strRedirURL & "/order.htm" Response.Redirect strRedirURL End If %> <% 'Create Product Object Dim objProd Set objProd = New Product Dim oRSProd Dim OrderBy orderby = trim(request("order")) Set oRSProd = Server.CreateObject("ADODB.RecordSet") Set oRSProd = objProd.LoadAll(OrderBy) %> Polyvinyl Films, Inc. - Stretchtite
<% Do until oRSProd.EOF 'Create Product Object Dim objProdItem Set objProdItem = New Product objProdItem.ID = trim(oRSProd("ProductID")) objProdItem.Load() 'Load Product Types Dim objProdTypes Dim oRSProdTypes Set oRSProdTypes = Server.CreateObject("ADODB.RecordSet") Set objProdTypes = New ProdTypes Set oRSProdTypes = objProdTypes.Load(trim(objProdItem.ID)) %>
<%if trim(ucase(objProdItem.Image)) <> "" then%> <%else%> <%End IF%>
<%=ucase(objProdItem.Name)%>
<% objProdItem.Description = replace(objProdItem.Description, vbcrlf, "
") Response.Write objProdItem.Description %>
<% if trim(oRSProdTypes("Name")) = "" then%> Price: <%=formatcurrency(trim(oRSProdTypes("Price")))%> <%Else%> Please Select:   <%End iF%>

Qty:  
<%oRSProd.MoveNext%> <% if oRSProd.EOF then%> <%Else%>
<%End if%> <%Loop%>
Copyright 2005. All Rights Reserved. Polyvinyl Films, Inc.
19 Depot Street, PO Box 753, Sutton, Massachusetts 01590-0753
1-800-343-6134 | (508) 865-3558 | (508) 865-1562 (fax)
email: custserv@pvfilms.com