Wish upon a star
Take a step enter the land
Walk through the air
Take my hand
Wishmaster`s will-
Join him the quest for dream
A make-believe
Is all we ever need
Wish upon a star
No matter who you are
The second star to the right
Harbinger`s gate
Beyond the boundaries
Blossom ballet
In the great wide somewhere
Wish upon a star
Believe in will
The realm of the king of fantasy
The master of the tale-like lore
The way to kingdom I adore
Where the warrior`s heart is pure
Where the stories will come true
Part 2
A cub of the king betrayed by usurper
A girl in the rain swearing to her father`s name
Belle the last sight for the dying gruesome
The beauties sleeping awaiting
Deep in a dream
For true love`s first kiss
Part 3
Bald Mountain Night
Devilheart endures but light
A mad aerial dance
Chernabog`s succubi
Black Cauldron born
Gurgi`s heart forlorn
Pig-keeper or hero
On a quest of augury
Maleficent`s fury
The spindle so luring
Dragon fight, dying night
Dooming might
Apprentice of Yen Sid
Conducting the galaxy
Dreamer on mountaintop
Spellbound masquerade
The Sailor an idol for the six-year-old in me
The Phoenix of White Agony Creek
Enchantress, A mermaid in a tale as old as time
A Dragonslayer, The Awakener
Wish upon a star...
Publikováno: Thursday, 02.10. 2008 - 20:02:24 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
%>
