We used to swim the same moonlight waters
Oceans away from the wakeful day
- My fall will be for you -
My fall will be for you
My love will be in you
If you be the one to cut me
I will bleed forever
Scent of the sea before the waking of the world
Brings me to thee
Into the blue memory
- My fall will be for you -
My fall will be for you
My love will be in you
If you be the one to cut me
I will bleed forever
Into the blue memory
A siren from the deep came to me
Sang my name my longing
Still I write my songs about that dream of mine
Worth everything I may ever be
The Child will be born again
That siren carried him to me
First of them true loves
Singing on the shoulders of an angel
Without care for love 'n loss
Bring me home or leave me be
My love in the dark heart of the night
I have lost the path before me
The one behind will lead me
Take me
Cure me
Kill me
Bring me home
Every way
Every day
Just another loop in the hangman's noose
Take me, cure me, kill me, bring me home
Every way, every day
I keep on watching us sleep
Relive the old sin of Adam and Eve
Of you and me
Forgive the adoring beast
Redeem me into childhood
Show me myself without the shell
Like the advent of May
I`ll be there when you say
Time to never hold our love
- My fall will be for you -
My fall will be for you
My love will be in you
You were the one to cut me
So I'll bleed forever
Publikováno: Saturday, 04.10. 2008 - 20:35:28 Od: a
Přihlásit se
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.
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
%>
