The Finest Cigar Links
On The Web







Cigar History
Aging Cigars
About Humidors
Bill Cosby On Cigars
Personal Cigar Pages




<% ' THE FOLLOWING BLOCK IS USED TO RETRIEVE AND DISPLAY LINK INFORMATION. ' PLACE THIS ENTIRE BLOCK IN THE AREA YOU WANT THE DATA TO BE DISPLAYED. ' Dimensioning variables - DO NOT MODIFY! Dim BLKey Dim OpenInNewWindow Dim PostingString Dim ErrorString Dim ResultString Dim LinkUrl ' Finished dimensioning variables. ' MODIFY THE VARIABLES BELOW: ' The following variable defines whether links are opened in a new window ' (1 = Yes, 0 = No) OpenInNewWindow = 1 ' ********************************************************************************* ' DO NOT MODIFY ANYTHING IN THIS BLOCK!! *************************************** ' ********************************************************************************* BLKey = "8X2R-501R-80T9" ' # The following variable is sent to the BackLinks server in order to ' # generate working links on your page: If Request.ServerVariables("HTTPS") = "on" Then LinkUrl="https://" Else LinkUrl="http://" End If If Request.ServerVariables("REQUEST_URI") Then LinkUrl = LinkUrl & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("REQUEST_URI") Else LinkUrl = LinkUrl & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO") If Request.ServerVariables("QUERY_STRING") <> "" Then LinkUrl = LinkUrl & "?" & Request.ServerVariables("QUERY_STRING") End If End If LinkUrl = server.URLencode(LinkUrl) ' # Generate the data to post to the BackLinks.com server PostingString = "&Key=" & BLKey PostingString = PostingString & "&OpenInNewWindow=" & OpenInNewWindow & "&LinkUrl=" & LinkUrl Function GetBackLinksData(HTTPQuery, ByRef Resp, ByRef Er) Dim HttpReqObj Set HttpReqObj = Nothing On Error Resume Next Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5.1") On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5") End If On Error Resume Next If HttpReqObj Is Nothing Then On Error Resume Next Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP") On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP.4.0") End If On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("Microsoft.XMLHTTP") End If On Error Resume Next If HttpReqObj Is Nothing Then Er = "HTTP requests not supported." GetBackLinksData = False Else HttpReqObj.open "GET", "http://brokerage.linkadage.com/engine.php?" & HTTPQuery, false HttpReqObj.Send If HttpReqObj.status <> 200 Then Er = "Error: Status=" & HttpReqObj.status & " Text='" & HttpReqObj.responseText & "'" GetBackLinksData = False Else Resp = HttpReqObj.responseText GetBackLinksData = True End If Set HttpReqObj = Nothing End If Else HttpReqObj.Open "GET", "http://brokerage.linkadage.com/engine.php?" & HTTPQuery, False HttpReqObj.Send If HttpReqObj.Status <> 200 Then Er = "Error: Status=" & HttpReqObj.Status & " Text=" & HttpReqObj.ResponseText GetBackLinksData = False Else Resp = HttpReqObj.responseText GetBackLinksData = True End If End If End Function If GetBackLinksData(PostingString, ResultString, ErrorString) Then Response.Write ResultString Else Response.Write ErrorString End If ' FINSIHED BackLinks.COM SCRIPT BLOCK %>
The ABC Cigar Store

A E Lloyd & Son Ltd (UK)

Adorini Humidors

Akron Cigar Club

Anthony's Little Cigar Company

AroTobacco.com - Great Cigars At Excellant Prices

Arturo Fuente: Cigars International

Authentic Cuban Cigars From Switzerland
(Free Worldwide Delivery)

Baranow's (Australia)

BestCigarPrices

Best Value Cigars

BigChiefCigars.com

Black Cat Cigar Co.

Bonita Smoke Shop

Broadweighs Cigar Store

BuyMyCigars.com

Calgary Cigar Company

Camino Viejo Tabacos

Casa del Puro (Spain)

Cascade Cigar & Tobacco

Castro's Cuban Cigar Store

C.GARS Ltd. (UK)

Cheap Cigar Retailer Online

Cheap Cigarettes

Cigar Accessories (UK)

Cigar Chief

The Cigar 800 List!

Cigar Aficionado

Cigar Ashtrays

CigarBid.com

The Cigarbox (Framingham, Ma)

Cigar.Com

The Cigar Club (Mail Orders)

Cigar Exchange International

Cigar Export (Spain)

Cigar Express (New Castle, PA)

Cigar Finder's Warehouse

CigarFriendly.Com

Cigar-Humidor.Net

Cigar Life

Cigar Light

CigarOne (Switzerland)

CigarsOnline.jp

Cigar Puros (Spain)

CigarsDirect.com

Cigars International

Cigars Of Cuba
The Internet Cuban Cigars Club

CigarSampler.com

Cigar-Smoke.com

Cigars Unlimited

CigarSupply.Com

CigarTrends.com

Club Cohiba Cigar Shop

Club Humidor

Columbus Cigars

Corona Cigar Company Online Store

CubaMall

Cuban Cigars

Cuban Cigar House (Spain)

Cuban Connection (Canada)

Daniel's Ultimative Humidorguide

Davidus Cigars and Pipes

De La Concha Tobacconist

DiscountCigarDepot.com

Don Tuto Cigars (Costa Rica)

Durango Smoke Shop

Famous Smoke Shop (New York)

Finck Cigar Company

Fuji Publishing Group Cigar Page

Fullers Pullers

Garo Habano Fine Cigars

Georgetown Tobacco

Gotham Cigars

The Grand Havana
Harrison & Simmonds (UK)

Heros & Legacies

Hiland Trading Company

Holts Cigar Co.

Holy Smoke

Humidor Discount

Internet Cigar Group

The Island Smoke Shop

Iwan Ries & Co.

JR Cigars

Jack Schwartz Importer

James Barber Tobacconist (UK)

Jenuwine Quality Fresh Cigars

Key West Havana Cigar Co.

The Knoxville Cigar Co.

L. Lynn Cigars

LabelYourCigar.com - Personalized Cigar Labels/Bands

La Casa De Puros Cuban Cigars

La Perla Habana Cigars

Las Vegas Cigar Company

Lido Cigar Room

Lighters Galore Plus

Maxwell's Fine Cigars and Tobaccos

Mom's Cigars

Nat Sherman International

Neptune Cigars

Nick's Cigar World

Northern Lites Cigar Co. (Canada)

Online Exclusive Cigar Store

Payless Cigars

Peterson of Dublin

Phoenix Cigar Company

PipesAndCigars.com

Premier 1492 (wholesale)

Randy's Tabacco Shop

Regal Cigars & Tobacco (UK)

Ricardo's Cigar Shop

Rocky's Online Cigars

Rollie's Pipes & Accessories

Simply Cigars

Smokewire Headshop

Sol Levy Pty Ltd. (Australia)

Specialty Cigars International

TBS-Cigars.com

Three Little Indians (NY)

Tinderbox International (retail chain)

Tobacco Cigar

Tobacco Depot

Tower Pipes and Cigars

Two Guys Smoke Shop

Uptown Cigar Company

Vancouver Cigar Company (Canada)

White Ash Cigar Co.

Yitz`s Humidor (Canada)


Primo Cigar T-Shirts | Personal Cigar Sites

Copyright 1998-2010
Cosmosmith
All rights reserved.