Home PageOutside AustraliaShipping CostsContact UsWithin AustraliaView CartSearch

Automania

 

Automania

Product Categories
Computer Cut Stickers
Stickers Full Colour
Clothing & Caps
Badges
Patches
Belt Buckles
Keyrings
Drink Coolers
Number Plate Frames
Videos - Movies - DVD

<% Dim bAcceptInternational : bAcceptInternational = true Dim bShowExTax : bShowExTax = false Dim bShowIncTax : bShowIncTax = true Dim bShowTaxAmount : bShowTaxAmount = false Dim bShowTaxPercent : bShowTaxPercent = false Dim iCols : iCols = 0 If bShowExTax Then iCols = iCols + 1 If bShowIncTax Then iCols = iCols + 1 If bShowTaxAmount Or bShowTaxPercent Then iCols = iCols + 1 If InStr(1, Request.ServerVariables("HTTP_USER_AGENT"), "MSIE") Then bIE = True Else bIE = False End If %> <% If bIE Then %> <% End If %>

<% If IsNull(Session("ProductCount")) Or Not IsNumeric(Session("ProductCount")) Or Session("ProductCount") = "" Then Session("ProductCount") = 0 End if if Request.ServerVariables("REQUEST_METHOD") = "POST" then 'The user has posted information from a product or catalog page 'Update the contents of the shopping cart to display the new product list pc = Session("ProductCount") If IsNull(pc) Or Not IsNumeric(pc) Or pc = "" Then pc = 0 End If If Right(Request.ServerVariables("HTTP_REFERER"), 12) = "viewcart.asp" Then For counter = 1 to pc If IsNumeric(Request.Form("quantity" & (counter - 1))) And Request.Form("quantity" & (counter-1)) <> "" And Len(Request.Form("quantity" & (counter - 1))) <8 Then Session("Products_" & counter & "_qty") = CLng(Request.Form("quantity" & (counter - 1))) Else Session("Products_" & counter & "_qty") = 0 End If Next Else 'See if the product already exists in the users shopping selection UpdateProductNumber = -1 for counter = 1 to pc if Session("Products_" & counter & "_pid") = Request.Form("pid") then if CInt(Request.Form("CF_FieldCount")) = 0 then UpdateProductNumber = counter Exit For else 'Make sure that all the custom fields match before assigning matched = true fc = CInt(Session("Products_" & counter & "_CF_FieldCount")) for fieldcounter = 0 to fc - 1 matched = matched and (Session("Products_" & counter & "_CF_Field" & fieldcounter & "Name") = _ Request.Form("CF_Field" & fieldcounter & "Name")) and _ (Session("Products_" & counter & "_CF_Field" & fieldcounter & "Value") = _ Request.Form("CF_Field" & fieldcounter & "Value")) next if matched = true then UpdateProductNumber = counter Exit For end if end if end if next if UpdateProductNumber = -1 then pc = pc + 1 UpdateProductNumber = pc Session("ProductCount") = pc end if 'Add the details of the current Product addition to the shopping cart for each Item in Request.Form Session("Products_" & UpdateProductNumber & "_" & Item) = Request.Form(Item) next If Not IsNumeric(Session("Products_" & UpdateProductNumber & "_qty")) Or Session("Products_" & UpdateProductNumber & "_qty") = "" Or Len(Session("Products_" & UpdateProductNumber & "_qty") ) > 8 Then Session("Products_" & UpdateProductNumber & "_qty") = 0 End If End If counter = 1 while counter <= pc If Session("Products_" & counter & "_qty") <= 0 Then for delcount = counter to pc Session("Products_" & delcount & "_qty") = Session("Products_" & delcount + 1 & "_qty") Session("Products_" & delcount & "_pid") = Session("Products_" & delcount + 1 & "_pid") Session("Products_" & delcount & "_pcd") = Session("Products_" & delcount + 1 & "_pcd") Session("Products_" & delcount & "_pde") = Session("Products_" & delcount + 1 & "_pde") Session("Products_" & delcount & "_pdp") = Session("Products_" & delcount + 1 & "_pdp") Session("Products_" & delcount & "_fpi1") = Session("Products_" & delcount + 1 & "_fpi1") Session("Products_" & delcount & "_fpi2") = Session("Products_" & delcount + 1 & "_fpi2") Session("Products_" & delcount & "_fpi3") = Session("Products_" & delcount + 1 & "_fpi3") Session("Products_" & delcount & "_mid") = Session("Products_" & delcount + 1 & "_mid") Session("Products_" & delcount & "_dtax") = Session("Products_" & delcount + 1 & "_dtax") Session("Products_" & delcount & "_itax") = Session("Products_" & delcount + 1 & "_itax") Session("Products_" & delcount & "_puw") = Session("Products_" & delcount + 1 & "_puw") fc = Session("Products_" & delcount + 1 & "_CF_FieldCount") If Not IsNumeric(fc) Or fc = "" Or Len(fc) > 8 Then fc = 0 End If Session("Products_" & delcount & "_CF_FieldCount") = fc for fieldcounter = 0 to fc Session("Products_" & delcount & "_CF_Field" & fieldcounter & "Name") = _ Session("Products_" & delcount + 1 & "_CF_Field" & fieldcounter & "Name") Session("Products_" & delcount & "_CF_Field" & fieldcounter & "value") = _ Session("Products_" & delcount + 1 & "_CF_Field" & fieldcounter & "value") next next counter = counter - 1 pc = pc - 1 Session("ProductCount") = pc End If counter = counter + 1 wend Session("MerchantID") = 666 end if 'Display the contents of the shopping cart by using a generic data table SubTotal = 0 RowPosition = 0 %>

<% If bShowExTax Then %> <% End If %> <% If bShowTaxAmount Or bShowTaxPercent Then %> <% End If %> <% If bShowIncTax Then %> <% End If %> <% if Session("ProductCount") <> 0 then for counter = 1 to Session("ProductCount") %> <% If bShowExTax Then %> <% End If %> <% If bShowTaxAmount Or bShowTaxPercent Then %> <% End If %> <% If bShowIncTax Then %> <% End If %> <% end if %> <% DomSubTotal = DomSubTotal + (Session("Products_" & counter & "_pdp") * (1 + Session("Products_" & counter & "_dtax"))) * Session("Products_" & counter & "_qty") 'Increase by the product price IntSubTotal = IntSubTotal + (Session("Products_" & counter & "_pdp") * (1 + Session("Products_" & counter & "_itax"))) * Session("Products_" & counter & "_qty") 'Increase by the product price next else %> <% end if %> " NAME="ProductCount">
Shopping Cart Contents

Listed below are the contents of your shopping cart.To process your order, click the Proceed to Check out button.




To remove a product simply enter zero (0) for quantity.

Quantity Product
Name
Product
ID
Price
(ex. tax)
Tax
Amount
<% If bAcceptInternational Then %>(domestic)
(international)
<% End If %>
Price
(inc. tax)
<% If bAcceptInternational Then %>(domestic)
(international)
<% End If %>
Sub Total
(inc. tax)
<% If bAcceptInternational Then %>(domestic)
(international)
<% End If %>
" NAME="quantity<%=(counter-1)%>"> " NAME="prodweight<%=(counter-1)%>"> " NAME="domestictax<%=(counter-1)%>"> " NAME="internationaltax<%=(counter-1)%>"> " NAME="localdelivery<%=(counter - 1)%>"> " NAME="interstatedelivery<%=(counter - 1)%>"> " NAME="internationaldelivery<%=(counter - 1)%>"> " NAME="unitprice<%=(counter-1)%>"> " NAME="prodname<%=(counter-1)%>"><%=Session("Products_" & counter & "_pde")%> " NAME="prodcode<%=(counter-1)%>"><%=Session("Products_" & counter & "_pcd")%>$<%=FormatNumber(Session("Products_" & counter & "_pdp"), 2)%> <% If bAcceptInternational Then %>
onmouseover="ToggleDisplay(disp_dtax<%=counter%>);" onmouseout="ToggleDisplay(disp_dtax<%=counter%>);" <% End If %>> <% If bShowTaxAmount Then %> $<%=FormatNumber(Session("Products_" & counter & "_pdp") * Session("Products_" & counter & "_dtax"), 2)%> <% End If %> <% If bShowTaxPercent Then %> (<%=FormatPercent(Session("Products_" & counter & "_dtax"))%>) <% End If %>
onmouseover="ToggleDisplay(disp_itax<%=counter%>);" onmouseout="ToggleDisplay(disp_itax<%=counter%>);" <% End If %>> <% If bShowTaxAmount Then %> $<%=FormatNumber(Session("Products_" & counter & "_pdp") * Session("Products_" & counter & "_itax"), 2)%> <% End If %> <% If bShowTaxPercent Then %> (<%=FormatPercent(Session("Products_" & counter & "_itax"))%>) <% End If %>
<% If bIE Then %> width=300 style="position : absolute; display : none;" border=1 cellpadding=2 cellspacing=1 bgcolor=#000000>
This is the domestic tax rate it will be applied when your order is delivered within Australia
width=300 style="position : absolute; display : none;" border=1 cellpadding=2 cellspacing=1 bgcolor=#000000>
This is the international tax rate it will be applied when your order is delivered outside of Australia
<% End If %> <% Else %> <% If bShowTaxAmount Then %> $<%=FormatNumber(Session("Products_" & counter & "_pdp") * Session("Products_" & counter & "_dtax"), 2)%> <% End If %> <% If bShowTaxPercent Then %> (<%=FormatPercent(Session("Products_" & counter & "_dtax"))%>) <% End If %> <% End If %>
<% If bAcceptInternational Then %>
onmouseover="ToggleDisplay(disp_dinc<%=counter%>);" onmouseout="ToggleDisplay(disp_dinc<%=counter%>);" <% End If %>> $<%=FormatNumber(Session("Products_" & counter & "_pdp") * (1 + Session("Products_" & counter & "_dtax")), 2)%>
onmouseover="ToggleDisplay(disp_iinc<%=counter%>);" onmouseout="ToggleDisplay(disp_iinc<%=counter%>);" <% End If %>> $<%=FormatNumber(Session("Products_" & counter & "_pdp") * (1 + Session("Products_" & counter & "_itax")), 2)%>
<% If bIE Then %> width=300 style="position : absolute; display : none;" border=1 cellpadding=2 cellspacing=1 bgcolor=#000000>
This is the domestic tax inclusive price. It is the price per unit that will be charged when the order is delivered within Australia
width=300 style="position : absolute; display : none;" border=1 cellpadding=2 cellspacing=1 bgcolor=#000000>
This is the international tax inclusive price. It is the price per unit that will be charged when the order is delivered outside of Australia
<% End If %> <% Else %> $<%=FormatNumber(Session("Products_" & counter & "_pdp") * (1 + Session("Products_" & counter & "_dtax")), 2)%> <% End If %>
<% If bAcceptInternational Then %>
onmouseover="ToggleDisplay(disp_dsubtot<%=counter%>);" onmouseout="ToggleDisplay(disp_dsubtot<%=counter%>);" <% End If %>> $<%=FormatNumber(Session("Products_" & counter & "_pdp") * (1 + Session("Products_" & counter & "_dtax")) * Session("Products_" & counter & "_qty") , 2)%>
onmouseover="ToggleDisplay(disp_isubtot<%=counter%>);" onmouseout="ToggleDisplay(disp_isubtot<%=counter%>);" <% End If %>> $<%=FormatNumber(Session("Products_" & counter & "_pdp") * (1 + Session("Products_" & counter & "_itax")) * Session("Products_" & counter & "_qty"), 2)%>
<% If bIE Then %> width=200 style="position : absolute; display : none;" border=1 cellpadding=2 cellspacing=1 bgcolor=#000000>
This is the domestic tax inclusive price. It is the total for this order line that will be charged when the order is delivered within Australia
width=200 style="position : absolute; display : none;" border=1 cellpadding=2 cellspacing=1 bgcolor=#000000>
This is the international tax inclusive price. It is the total for this order line that will be charged when the order is delivered outside of Australia
<% End If %> <% Else %> $<%=FormatNumber(Session("Products_" & counter & "_pdp") * (1 + Session("Products_" & counter & "_dtax")) * Session("Products_" & counter & "_qty"), 2)%> <% End If %> " NAME="MerchantID<%=(counter-1)%>">
<% 'Draw the Custom Fields and their corresponding values if they exists if not IsNull(Session("Products_" & counter & "_CF_FieldCount")) then 'We have custom fields %> <% fieldcount = CInt(Session("Products_" & counter & "_CF_FieldCount")) cfpos = 0 for fieldcounter = 0 to fieldcount if Len(Session("Products_" & counter & "_CF_Field" & fieldcounter & "Name")) > 0 then %> "> <%=Session("Products_" & counter & "_CF_Field" & fieldcounter & "Name")%>: ">  <%=Session("Products_" & counter & "_CF_Field" & fieldcounter & "Value")%> <% cfpos = cfpos + 1 end if next %>
>
no products in the shopping cart
Freight charges not included nowrap> <% If bAcceptInternational Then %>
Domestic Sub-Total
International Sub-Total
<% Else %> Sub-Total <% End If %>
<% If bAcceptInternational Then %>
onmouseover="ToggleDisplay(disp_dtot);" onmouseout="ToggleDisplay(disp_dtot);" <% End If %>> $<%=FormatNumber(DomSubTotal, 2)%>
onmouseover="ToggleDisplay(disp_itot);" onmouseout="ToggleDisplay(disp_itot);" <% End If %>> $<%=FormatNumber(IntSubTotal, 2)%>
<% If bIE Then %> <% End If %> <% Else %> $<%=FormatNumber(DomSubTotal, 2)%> <% End If %>


 


Generated by AWP ezimerchant Professional