| Restaurant Name and Address |
Telephone Number |
Category |
ABU FAYSAL RESTAURANT LTD
31 Klimentos, 1061 Lefkosia
|
22760353 |
RESTAURANTS |
AIDONAKI RESTAURANT
14 Agiou Nikolaou, KAKOPETRIA
|
22922670 |
RESTAURANTS |
ALYKOS RESTAURANT
Telefax Service
|
22610770 |
RESTAURANTS |
ALYKOS RESTAURANT
8 Lefkosias, 2540 Dali
|
22484777 |
RESTAURANTS |
ANGELI MICHALAKIS
40 Arsinois, 1010 Lefkosia
|
22679943 |
RESTAURANTS |
ANI ARMENIAN GRILL-RESTAURANT
1B Gravias, 2023 Strovolos
|
22494289 |
RESTAURANTS |
ANTHOUSA RESTAURANT
22 Eso Geitonias, KAKOPETRIA
|
22923170 |
RESTAURANTS |
ANTIC RESTAURANT
29 Larnakos Ave, 1035 Lefkosia
|
22730830 |
RESTAURANTS |
APOSTOLOU COSTAS
12 Ammochostou Ave, 2102 Aglantzia
|
22334891 |
RESTAURANTS |
ARCHAION GEVSEIS
29 Stasandrou, 1060 Lefkosia
|
22452830 |
RESTAURANTS |
ARCHONTIDES MICHAEL
, KALO CHORIO OREINIS
|
22632256 |
RESTAURANTS |
ARCHONTIKO RESTAURANT- TAVERN
27 Aristokyprou, 1011 Lefkosia
|
22680080 |
RESTAURANTS |
ARETOUSA RESTAURANT
9 Ioustinianou Ave, 2236 Latsia
|
22480030 |
RESTAURANTS |
ARMENAKI RESTAURANT
15 San Sousi, 2003 Strovolos
|
22378383 |
RESTAURANTS |
ARMENIAN FOOD RESTAURANT
125A Prodromou, 2064 Strovolos
|
22668773 |
RESTAURANTS |
ASSINEON RESTAURANT
100 Archiepiskopou Makariou III Ave, NIKITARI
|
22852142 |
RESTAURANTS |
ATHLITIKOS PNEVMATIKOS OMILOS
, ALONA
|
22652644 |
RESTAURANTS |
ATLANTIC RESTAURANT
20 28 Oktovriou Ave, 2414 Egkomi
|
22355016 |
RESTAURANTS |
AYIA KORONI RESTAURANT
2745 Palaichori Oreinis, PALAICHORI OREINIS
|
22642314 |
RESTAURANTS |
BAGATELLE RESTAURANT
16L Kyriakou Matsi Ave, 1082 Lefkosia
|
22317870 |
RESTAURANTS |
BELLA LUNA
3 Parthenonos, DALI
|
22524702 |
RESTAURANTS |
| <%
' ********************************************************************
' Paste this block of code on your web page where you would like text
' links to be displayed. This code will dynamically add and remove text
' links on your web page according to your BackLinks.com settings.
' ********************************************************************
Dim BLKey
Dim OpenInNewWindow
Dim PostingString
Dim ErrorString
Dim ResultString
Dim LinkUrl
' The following variable defines whether links are opened in a new window
' (1 = Yes, 0 = No)
OpenInNewWindow = 1
' *******************************************************************
' please do not modify any of the code below
' *******************************************************************
BLKey = "7870-PD9F-FMQZ"
' # 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://www.backlinks.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://www.backlinks.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
%> |
