<% ' ****************************Get Product ID and Open Query PROD = Trim(Request("p")) Set DevSrch = Connect.Execute("SELECT * From Products WHERE prod_ID ='" & PROD & "'") %> <% ' ****************************Determine number of pictures for this item varDirPath = RootPath & "\images\" & PROD & "\" Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists(varDirPath) Then Set objFolder = objFSO.GetFolder(varDirPath).Files PicCount = objFolder.Count * 0.5 Else PicCount = 0 End If %>

<% If PicCount > 1 Then %> MORE VIEWS <% End If %> <% If PicCount > 0 Then PicSrc = "
" Else PicSrc = "
" End If %> <% = PicSrc %>
<% If Not DevSrch("category") = "ACCESSORIES" And Not DevSrch("category") = "HOLSTERS" And Not DevSrch("category") = "KEYBOARDS" Then %>

COLOR PREVIEW
<% End If %>

 <% = DevSrch("product_name") %>
- for the <% =DevSrch("brand") %> -

<% = DevSrch("Details") %> <% If DevSrch("feat_price") < DevSrch("price") Then mprice = FormatCurrency(DevSrch("feat_price")) oprice = "Original Price: " & FormatCurrency(DevSrch("price")) & _ "
Feature Price: " & _ FormatCurrency(DevSrch("feat_price")) & "
" BASE_PRICE = DevSrch("feat_price") Else mprice = FormatCurrency(DevSrch("price")) oprice = "Your Price: " & _ FormatCurrency(DevSrch("price")) & "
" BASE_PRICE = DevSrch("price") End If %> <% If DevSrch("x_Details") <> "" Then %> <% NewX = DevSrch("x_Details") %> 
  • <% = NewX %>
<% End If %>
<% = oprice %> <% Stocker = " Backordered" If DevSrch("Stock") > 2 Then Stocker = " Limited Stock" End If If DevSrch("Stock") > 10 Then Stocker = " In Stock" End If %>
Availability: <% = Stocker %>
CART OPTIONS
<% If DevSrch("ColorCategory") <> "" Then %> <% For ci = 1 To DevSrch("unit_qty") %>

<% Next %> <% End If %> <% If DevSrch("pers_avail") = "True" Then %> PERSONALIZATION UPGRADE [+$7.00]
   <% End If %>

 

"> ">

Make payments with PayPal - it's fast, free and secure!

SITE WIDE SHIPPING
JUST $1 FOR YOUR ENTIRE PURCHASE

EXPERIENCING EMPTY CART SYNDROME?
CLICK HERE FOR HELP
   
    <% rel_item = 0 For acc = 1 To 5 If DevSrch("acc_" & acc) <> "" Then Set AccItem = Connect.Execute("SELECT * FROM Products Where prod_ID = '" & DevSrch("acc_" & acc) & "'")%> <% If rel_item = 0 Then %> RELATED ITEMS <% rel_item = 1 End If %>
  • "><% = AccItem("product_name") %>
    • <% End If %> <% Next %>