<%@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
 
   
Discount Cheap Online Bond Cigarettes Bond
Discount Cheap Online Camel Cigarettes Camel
Discount Cheap Online Chesterfield Cigarettes Chesterfield
Discount Cigarettes Cigaronne Cigaronne
Discount Cigarettes Classic Classic
Discount Cheap Online Davidoff Cigarettes Davidoff
Discount Cheap Online George Karelias Cigarettes George Karelias
Discount Glamour Cigarettes Glamour
Discount Hilton Cigarettes Hilton
Discount Cheap Online Karelia Cigarettes Karelia
Discount Cheap Online Kent Cigarettes Kent
Discount Cheap Online L&M Cigarettes L&M
Discount Lady Cigarettes Lady
Discount Cheap Online Lucky Strike Cigarettes Lucky Strike
Discount Cheap Online Marlboro Cigarettes Marlboro
Discount Cheap Online Monte Carlo Cigarettes Monte Carlo
Discount More Cigarettes More
Discount Cheap Online Pall Mall Cigarettes Pall Mall
Discount Cheap Online Parliament Cigarettes Parliament
Discount Cheap Online R1 Cigarettes R1
Discount Cheap Online Sobranie Cigarettes Red White
Discount Saint George Cigarettes Saint George
Discount Cheap Online Sobranie Cigarettes Sobranie
Discount Cheap Online Sovereign Cigarettes Sovereign
Discount Cigarettes Online Viceroy Viceroy
Discount Cheap Online Virginia Slims Cigarettes Virginia Slims
Discount Cheap Online Vogue Cigarettes Vogue
Discount Cheap Online West Cigarettes West
Discount Cheap Online Winston Cigarettes Winston
Discount Zevs Cigarettes Zevs
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.