<% 'Display Product Specific Includes Include_TellAFriend = True Include_Specials = False Include_Best_Sellers = False Dim strProduct_InfoOptions strProduct_InfoOptions = "" Dim intProduct_Info_i Dim strProduct_InfoChosenOptions if Request.form("action") <> "" then select case LCase(Request.Form("action")) case "add_product" if request("pid") <> "" then if request("POCount") <> "" then For intProduct_Info_i = 1 to Int(request("POCount")) if strProduct_InfoOptions <> "" then strProduct_InfoOptions = strProduct_InfoOptions & "," & CLng(request("PO" & intProduct_Info_i)) else strProduct_InfoOptions = CLng(request("PO" & intProduct_Info_i)) end if strProduct_InfoChosenOptions = strProduct_InfoChosenOptions & "|" & CLng(request("PO" & intProduct_Info_i)) & "|" Next 'intProduct_Info_i end if sAddItemToShoppingCart request("pid"), strProduct_InfoOptions end if end select end if 'Update our Counter for this product sUpdateProductViewed (request("pid")) Dim objProduct_InfoRS Set objProduct_InfoRS = fRetrieveProductInfo(request("pid")) Dim objProduct_Options Set objProduct_Options = fRetrieveProductAttributes(request("pid")) Dim mnyProduct_Price Dim mnyProduct_SpecialPrice Dim strProduct_Image With objProduct_InfoRS if .eof = false then if .fields("products_pagetitle").value <> "" then strPageTitle = .fields("products_pagetitle").value if .fields("products_pagedescription").value <> "" then strPageDescription = .fields("products_pagedescription").value if .fields("products_pagekeywords").value <> "" then strPageKeywords = .fields("products_pagekeywords").value end if %>
<% if .eof = false then 'Set our Current Manufacturer intCurrManufacturer = .fields("fkmanufacturers").value Include_manufacturer_info = True if .fields("products_image").value <> "" then strProduct_Image = .fields("products_image").value else strProduct_Image = Application("PRODUCT_BLANK_IMAGE") end if %>
<% Dim intProduct_InfoReviewCount intProduct_InfoReviewCount = fRetrieveProductReviewCount(.fields("pk").value) if intProduct_InfoReviewCount > 0 then %> <% end if %> <% if .fields("products_url").value <> "" then %> <% end if %> <% if (.fields("products_date_available").value) > Now() then %> <% end if %> <% if (.fields("products_status").value) <> "1" then %> <% end if %>
<% if .fields("products_model").value <> "" and LCase(APPLICATION("PRODUCT_LIST_MODEL")) = "true" then %> <% else %> <% end if %> <% else %> <%= strCurrencySymbol %><%= mnyProduct_Price %><% if LCase(Application("DISPLAY_PRICE_WITH_TAX")) = "false" then response.write "+VAT" %> <%= strCurrencySymbol %><%= mnyProduct_SpecialPrice %><% if LCase(Application("DISPLAY_PRICE_WITH_TAX")) = "false" then response.write "+VAT" %> <% end if %>
<%= .fields("products_name").value %>
[<%= .fields("products_model").value %>]		<%= .fields("products_name").value %> <% mnyProduct_Price = fRetrieveProductOriginalPrice(.fields("pk").value) mnyProduct_SpecialPrice = fRetrieveProductPrice(.fields("pk").value) if mnyProduct_Price = mnyProduct_SpecialPrice then %> <%= strCurrencySymbol %><%= mnyProduct_Price %><% if LCase(Application("DISPLAY_PRICE_WITH_TAX")) = "false" then response.write "+VAT" %>
<% if .fields("products_image").value <> "" then %>
')"><%= .fields(" title=" <%= .fields("products_name").value %> " width="200">

Click to view all images
<% else %>
<%= .fields(" title=" <%= .fields("products_name").value %> " width="<%= Application("SMALL_IMAGE_WIDTH") %>" height="<%= Application("SMALL_IMAGE_HEIGHT") %>">
<% end if %>

<%= .fields("products_description").value %> <% if .fields("products_popup").value <> "" and (APPLICATION("PRODUCT_POPUP_DISPLAY") = "Text" or APPLICATION("PRODUCT_POPUP_DISPLAY") = "Button") then %>
<% Select Case APPLICATION("PRODUCT_POPUP_DISPLAY") Case "Button" %> ')">" border="0"> <% Case "Text" %> ')"><%= APPLICATION("PRODUCT_POPUP_TEXT") %> <% End Select end if %>
<% sOutputProductLinks .fields("pk").value %>
<% sOutputProductDownloads .fields("pk").value %>

<% if objProduct_Options.eof = false then 'Have the Product Options already been set? if strProduct_InfoChosenOptions = "" then 'Have we been passed the product options? if request("poids") <> "" then strProduct_InfoChosenOptions = request("poids") end if end if %> <% Dim intPOCount intPOCount = 0 while not objProduct_Options.eof intPOCount = intPOCount + 1 %> <% objProduct_Options.movenext wend %>
Available Options:
<%= objProduct_Options.fields("products_options_name").value %>
<% end if %>
Current Reviews » <%= intProduct_InfoReviewCount %>
For more information, please visit this products ">webpage.
*** PRE-SALE ITEM ***

This product will be in stock on <%= fDisplayNiceDate(.fields("products_date_available").value) %>.

You can still place an order for this item and it will be shipped as soon as it is in stock
*** PRE-SALE ITEM ***
*** OUT OF STOCK ***

This product is currently out of stock.

You can still place an order for this item and it will be shipped as soon as it is back in stock
*** OUT OF STOCK ***
This product was added to our catalog on <%= fDisplayNiceDate(.fields("products_date_added").value) %>. Product Reference Number » <%= .fields("products_model").value %>.
<% if request("burl") <> "" then %> <% end if %>
">Reviews">Back
"> "> ">
<% End If End With Set objProduct_Options = Nothing Set objProduct_InfoRS = Nothing %>