<% Dim relprods__MMColParam3 relprods__MMColParam3 = "discontinued" If (Request("MM_EmptyValue") <> "") Then relprods__MMColParam3 = Request("MM_EmptyValue") End If %> <% Dim prodinfo__MMColParam prodinfo__MMColParam = "1" If (Request.QueryString("ProdCode") <> "") Then prodinfo__MMColParam = Request.QueryString("ProdCode") End If %> <% Dim prodinfo Dim prodinfo_numRows Set prodinfo = Server.CreateObject("ADODB.Recordset") prodinfo.ActiveConnection = MM_prodfeat_STRING prodinfo.Source = "SELECT * FROM Product WHERE ProdCode = '" + Replace(prodinfo__MMColParam, "'", "''") + "'" prodinfo.CursorType = 0 prodinfo.CursorLocation = 2 prodinfo.LockType = 1 prodinfo.Open() prodinfo_numRows = 0 %> <% Dim category__MMColParam category__MMColParam = "1" If (Request.QueryString("CatID") <> "") Then category__MMColParam = Request.QueryString("CatID") End If %> <% Dim category Dim category_numRows Set category = Server.CreateObject("ADODB.Recordset") category.ActiveConnection = MM_prodfeat_STRING category.Source = "SELECT * FROM Categories WHERE CatID = '" + Replace(category__MMColParam, "'", "''") + "'" category.CursorType = 0 category.CursorLocation = 2 category.LockType = 1 category.Open() category_numRows = 0 %> <% Dim relprods__MMColParam relprods__MMColParam = "1" If (Request.QueryString("ProdCode") <> "") Then relprods__MMColParam = Request.QueryString("ProdCode") End If %> <% Dim relprods Dim relprods_numRows Set relprods = Server.CreateObject("ADODB.Recordset") relprods.ActiveConnection = MM_prodfeat_STRING relprods.Source = "SELECT * FROM Product WHERE RelProds LIKE '%" + Replace(relprods__MMColParam, "'", "''") + "%' and Status not like '%" + Replace(relprods__MMColParam3, "'", "''") + "%' ORDER BY ProductName ASC" relprods.CursorType = 0 relprods.CursorLocation = 2 relprods.LockType = 1 relprods.Open() relprods_numRows = 0 %> <% Dim testimonials__MMColParam testimonials__MMColParam = "1" If (Request.QueryString("ProdCode") <> "") Then testimonials__MMColParam = Request.QueryString("ProdCode") End If %> <% Dim testimonials Dim testimonials_numRows Set testimonials = Server.CreateObject("ADODB.Recordset") testimonials.ActiveConnection = MM_testimonials_STRING testimonials.Source = "SELECT * FROM testimonials WHERE ProdCode = '" + Replace(testimonials__MMColParam, "'", "''") + "' ORDER BY Rank ASC" testimonials.CursorType = 0 testimonials.CursorLocation = 2 testimonials.LockType = 1 testimonials.Open() testimonials_numRows = 0 %> <% Randomize RandomTest = Int(Rnd * 7) + 1 Dim testimonials2__MMColParam testimonials2__MMColParam = RandomTest If (Request("MM_EmptyValue") <> "") Then testimonials2__MMColParam = Request("MM_EmptyValue") End If %> <% Dim testimonials2 Dim testimonials2_numRows Set testimonials2 = Server.CreateObject("ADODB.Recordset") testimonials2.ActiveConnection = MM_testimonials_STRING testimonials2.Source = "SELECT * FROM service WHERE TestNum = " + Replace(testimonials2__MMColParam, "'", "''") + "" testimonials2.CursorType = 0 testimonials2.CursorLocation = 2 testimonials2.LockType = 1 testimonials2.Open() testimonials2_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 relprods_numRows = relprods_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 5 Repeat2__index = 0 testimonials_numRows = testimonials_numRows + Repeat2__numRows %> <%=(prodinfo.Fields.Item("ProductName").Value)%> - $<%=(prodinfo.Fields.Item("OurPrice").Value)%> " /> " />

Pepsi Collectables Pepsi Collectables Pepsi Collectables

MAIN MENU
pepsi collectables Pepsi Forums
pepsi collectables Pepsi Chat
pepsi collectables Pepsi Classifieds
pepsi collectables Pepsi Directory
pepsi collectables Pepsi Auctions
pepsi collectables Pepsi Books

 

Home :

<%=(prodinfo.Fields.Item("ProductName").Value)%>

.gif" alt="<%=(prodinfo.Fields.Item("ProductName").Value)%>" name="<%=(prodinfo.Fields.Item("WebName").Value)%>" border="1" id="<%=(prodinfo.Fields.Item("WebName").Value)%>" />
.jpg')" border="0">Enlarge Picture

 

<% Function Calculate (A,B, Op) Select Case op Case "+" Calculate = A + B Case "-" Calculate = A - B Case "*" Calculate = A * B Case "/" Calculate = A / B End Select End Function %> List Price: $<%=(prodinfo.Fields.Item("RetailPrice").Value)%>   
Our Price: $<%=(prodinfo.Fields.Item("OurPrice").Value)%>  (Save: <%If (prodinfo.Fields.Item("RetailPrice").Value) = "na" or (prodinfo.Fields.Item("RetailPrice").Value) = "NA" or (prodinfo.Fields.Item("OurPrice").Value) = "call for pricing" Then %> NA
<%Else%> <%= FormatCurrency(Calculate((prodinfo.Fields.Item("RetailPrice").Value),(prodinfo.Fields.Item("OurPrice").Value), "-"), 2,-2,-2,-2)%>)
<%End If%> Availability: <%=(prodinfo.Fields.Item("Status").Value)%>
Product Code: <%=(prodinfo.Fields.Item("ProdCode").Value)%>

" /> " /> Qty: " /> " /> " />
Description: <%=(prodinfo.Fields.Item("Description - webpage").Value)%>

" /> " /> Qty: " /> " /> " />

<% If Not testimonials.EOF Or Not testimonials.BOF Then %>

Testimonials:

<% While ((Repeat2__numRows <> 0) AND (NOT testimonials.EOF)) %> "<%=(testimonials.Fields.Item("Testimonial").Value)%>"
<%=(testimonials.Fields.Item("FirstName").Value)%> <%=(testimonials.Fields.Item("LastName").Value)%> from <%=(testimonials.Fields.Item("City").Value)%>, <%=(testimonials.Fields.Item("State").Value)%>

 <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 testimonials.MoveNext() Wend %>

" /> " /> Qty: " /> " /> " />

<% End If ' end Not testimonials.EOF Or NOT testimonials.BOF %> <% If Not relprods.EOF Or Not relprods.BOF Then %>

Related products:

<% While ((Repeat1__numRows <> 0) AND (NOT relprods.EOF)) %>
">.gif" alt="" name="image" border="0" id="image" />

"><%=(relprods.Fields.Item("ProductName").Value)%> - $<%=(relprods.Fields.Item("OurPrice").Value)%>
<%=(relprods.Fields.Item("Description - Search").Value)%>


<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 relprods.MoveNext() Wend %> <% End If ' end Not relprods.EOF Or NOT relprods.BOF %>

 
   

Contact Us | Privacy Policy | Link Directory
Pepsi Logo and brand are registered trademarks of Pepsico.
© 2000-2022, PepsiCollectables.com or its affiliates.
76 Mott Street South - Alburgh, Vermont 05440
Phone: (802) 735-2149

Web Design Vermont & Web Hosting Vermont by Advantage Creations, of Alburgh, Vermont.

     
Pepsi Collectables Classifieds Pepsi Collectables Links Directory Pepsi Collectables Chat Pepsi Collectables Forums <% prodinfo.Close() Set prodinfo = Nothing %> <% category.Close() Set category = Nothing %> <% relprods.Close() Set relprods = Nothing %> <% testimonials.Close() Set testimonials = Nothing %>