Menu
 
 
 
 
Deep Silent Complete
 

In your creation heaven did decree
That in your arms sweet death should dwell

Deep Silent Complete
Black velvet sea
The sirens are calling for me



Saved my soul thinking "This song`s a lie"
Sand on the shore is so dry

Deep Silent Complete
Black velvet sea
Brave day sinking in endless night

The age will say "This poet lies"
Heaven never touched earthly face
The age will say "This night was ours"
Blessed with the Deep
The Silent the Complete




 
Publikováno: Thursday, 02.10. 2008 - 19:48:00 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
 
   
 
 
 
"Deep Silent Complete" | 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 %>