<%@LANGUAGE="VBSCRIPT" CODEPAGE="1250"%> <% Option Explicit Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" If Session("blnGood") <> True OR Session("blnGood") = NULL Then Response.Redirect("../") Response.End() End If %> Cigarettes at CigarettesOn.com- Basket <% Dim strProduct strProduct = Replace(Session("ProductName"), ";", "
") %>
CigarettesOn - Online Shop
 Catalogue of Cigarettes
Home | Terms&Conditions | Contact Us | About Us | View Basket
 
Dear Customers,

Check twice providing information before submiting.
Please note, we deliver only to following countries:
United States, Portugal, Japan, Iceland, Argentina,
Denmark, Bulgaria, Romania, South Korea.
Your order will be approved and shipped within 48 hours.
For countries such as Austria, France, Greece, Ireland, Spain, United Kingdom, please visit our site www.online-cigarettes-shop.com.

 

Your Shopping Cart.     VISA

<% Dim iTotalCuantity Dim iCartonsCost Dim ProductName Dim blnNo Dim adoCon Dim strSQL Dim rsBasket Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("admin/db/db.mdb") & ";Jet OLEDB:Database Password=" & strP Dim cookieKey If Request.Cookies("Shop").HasKeys Then For each cookieKey in Request.Cookies("Shop") blnNo = True If Request.Cookies("Shop")(cookieKey) <> "" Then Set rsBasket = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM [catalog] WHERE id LIKE '" & cookieKey & "';" rsBasket.Open strSQL, adoCon Dim iCuantity, iCost iCuantity = Request.Cookies("Shop")(cookieKey) iCost = FormatNumber(iCuantity * rsBasket("Price"),2) iCartonsCost = FormatNumber(iCartonsCost + rsBasket("Price") * iCuantity,2) iTotalCuantity = INT(iTotalCuantity) + iCuantity ProductName = ProductName & rsBasket("Name") & " x" & iCuantity & "; " Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") rsBasket.Close Set rsBasket = Nothing End If Next Else blnNo = False End If If Request.Cookies("Shop") = "" OR iTotalCuantity = 0 Then Response.Write("") iTotalCuantity = 0 iCartonsCost = 0 %> <% Else %> <% End If Session("iItems") = iTotalCuantity Session("Shipping") = 6.4 * iTotalCuantity Session("iTotalCost") = Session("Shipping") + iCartonsCost %>
Item Details Price Per Caton Quantity Total cost Action
" & rsBasket("Name") & "" & rsBasket("Price") & " $" & iCost & " $
Your basket is empty.
 If you have changed quantities click here :  ');return document.MM_returnValue" value="Continue Shopping">
Sub-Total: $ <%=FormatNumber(iCartonsCost,2)%>
Shipping and Handling: Air mail - $ 6.40 per carton $ <%=FormatNumber(Session("Shipping"),2)%>  
Total     $ <%=FormatNumber(Session("iTotalCost"),2)%>  
<% Dim Cost Cost = Replace(Session("iTotalCost"),",","") Cost = FormatNumber(cost,2) If Session("URL") = "" Or IsNull(Session("URL")) Then Session("URL") = Request.ServerVariables("HTTP_REFERER") End If If Request.Cookies("Shop") <> "" OR iTotalCuantity <> 0 Then 'https://secure.chronopay.com/index_shop.cgi %>
Choose Payment method (Not available)
Shipping information
* - required fields
*First Name:  
*Last Name:  
*E-mail:  
*Address:  
*City:  
*Country:  
State:  
*ZIP (Postal Code):  
*Tel. number:
 
     
Billing information
if shipping information is the same as billing check here
*First Name:  
*Last Name:  
*E-mail:  
*Address:  
*City:  
*Country:  
State:  
*ZIP (Postal Code):  
*Tel. number:
 
<% Dim cookie Dim strCS3 Dim iC Dim strCookieCode If Request.Cookies("Shop").HasKeys Then For each cookie in Request.Cookies("Shop") If Request.Cookies("Shop")(cookie) <> "" Then iC = Request.Cookies("Shop")(cookie) strCS3 = strCS3 & Mid(cookie, 11, 16) & " x" & iC & "; " strCookieCode = "001553-000" & strCookieCode & Mid(cookie, 11, 16) & "=" & iC & "; " End If Next End If Dim nTotal, nSuma Dim nIntr, nDec nTotal = Session("iTotalCost") If Instr(nTotal, ",") Then nTotal = Replace(nTotal, ",", ".") nIntr = Instr(nTotal, ".") nIntr = Left(nTotal, nIntr-1) nDec = Mid(nTotal, Instr(nTotal, ".")+1, Len(nTotal)) nSuma = nIntr & "." & nDec Session("iTotalCost") = nSuma 'Response.Write(Suma & "
") End If Dim strCookie, strCookieKey If Request.Cookies("Shop").HasKeys Then For each strCookieKey in Request.Cookies("Shop") If Request.Cookies("Shop")(strCookieKey) <> "" Then strCookie = strCookie & strCookieKey & "=" & Request.Cookies("Shop")(strCookieKey) & "&" End If Next If strCookie <> "" OR strCookie <> NULL Then strCookie = Mid(strCookie, 1, Len(strCookie)-1) End If End If %> "> I read & agree with Terms & Conditions
">
<%End If%>
 
Warning : You must be 18 years or older to shop at Cigaretteson.Com
Copyright © 2004 - 2007 Cigaretteson.com. All Rights Reserved.