|
<%
' 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)
|
|
