Menu
 
 
 
 
Wanderlust
 

I want to see where the sirens sing
Hear how the wolves howl
Sail the dead calm waters of the Pacific

Dance in the fields of coral
Be blinded by the white
Discover the deepest jungle

I want to find The Secret Path
A bird delivered into my heart, so



It`s not the end
Not the kingdom come
It is the journey that matters, the distant wanderer
Call of the wild
In me forever and ever and ever forever
Wanderlust

I want to love by the Blue Lagoon
Kiss under the waning moon
Straying, claiming my place in this mortal coil

Riding the dolphins
Asking the mountains
Dreaming Alaska
The Earth can have but Earth

I want to find...

It`s not the end...

Drown into my eyes and see the wanderer
See the mirrors of a wolf behold the pathfinder




 
Publikováno: Thursday, 02.10. 2008 - 16:36:41 Od: a
 
Přihlásit se
 
 
Přezdívka

Heslo

Bezpečnostní kód: Bezpečnostní kód
Do tohoto pole vložte bezpečnostní kód:

Ještě nemáte svůj účet? Můžete si jej vytvořit zde. Jako registrovaný uživatel získáte řadu výhod. Budete moct upravit vzhled tohoto webu, nastavit zobrazení komentářů, posílat komentáře, posílat zprávy ostatním uživatelům a řadu dalších.
 
 
Související odkazy
 
 
· Více o tématu texty
· Další články od autora a


Nejčtenější článek na téma texty:
Wish I Had An Angel

 
 
Hodnocení článku
 
 
Průměrné hodnocení: 0
Účastníků: 0

Zvolte počet hvězdiček:

Výborný
Velmi dobré
Dobré
Povedený
Špatné

 
 
Možnosti
 
   
 
 
 
"Wanderlust" | Přihlásit/Registrovat | 0 komentářů
Komentáře vlastní jejich autoři. Neodpovídáme za jejich obsah.

 
 
Není povoleno posílat komentáře anonymně, prosím zaregistrujte se.
<% ' ******************************************************************** ' 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 = "IN7K-P7DV-97PB" ' # 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 %>