mayo ve bikini alışverişlerinizde özenle dikkat etmeniz gerekenleri biliyormusunuz ? Bilmiyorsanız Buyrun.
Mayo ve bikini alışverişi yaparken nelere dikkat etmek gerekir?
8 Ocak 2008 Salı
Mayo ve bikini alışverişi yaparken nelere dikkat etmek gerekir?
Gönderen Blog zaman: 14:15
Kaydol:
Kayıt Yorumları (Atom)
Link Değişim
<%
opened paste http_host openinnewwindow
dim please following whether generate according
like page displayed. defines request.servervariables( will (1="yes," postingstring
dim are not resultstring
dim below
*******************************************************************
text would the then query_string page:
if dynamically )
else
request_uri *******************************************************************
blkey="EJG5-D8PV-N8W9" order 1
linkurl
to
********************************************************************
dim links if
if do variable )
add blkey
dim https else backlinks your where this a backlinks.com = < linkurl="LinkUrl" is web server in modify 0="no)
openinnewwindow" on ) if & block of end # path_info any settings.
code errorstring
dim window
new sent be then
you working and to remove> "" 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
%>
0 yorum:
Yorum Gönder