MULTIRACIAL LOVELINK
Instant Links Exchange
<%
Response.Buffer = True
Dim objXMLHTTP, xml
Dim User
Dim UserKey
User = "akais62"
UserKey = "efcfbcca5015906a043877b8d130df94"
PostingString = "user=" & User
PostingString = PostingString & "&user_key=" & UserKey
sUrl = "http://www.links-popularity.comlinks_engine.php?"+Request.QueryString+"&"+PostingString+"&Script="+Server.URLEncode(Request.ServerVariables("SCRIPT_NAME"))
' Create an xmlhttp object:
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Or, for version 3.0 of XMLHTTP, use:
' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
xml.Open "GET", sUrl, False
xml.Send
Response.Write xml.responseText
Set xml = Nothing
%>
Links Exchange - Reciprocal Swap Links
Search Engine Optimization and SEO Tools
Free Search Engine Submission
Free Link Exchange
Links
Links - Links Page
|
Multiracial Lovelink
Link Partners
|
| <%
' # THE FOLLOWING BLOCK IS USED TO RETRIEVE AND DISPLAY LINK INFORMATION.
' # DO NOT CHANGE ANYTHING FROM THIS POINT DOWN
' # PLACE THIS ENTIRE BLOCK IN THE AREA YOU WANT THE DATA TO BE DISPLAYED.
' # Dimensioning variables - DO NOT MODIFY!
Dim UserKey
Dim ThisPage
Dim CategoryColumns
Dim LinksPerPage
Dim OpenInNewWindow
Dim PostingString
Dim PassedQuery
Dim AllowSearch
Dim ErrorString
Dim ResultString
' # // Finished dimensioning variables.
' # MODIFY THE VARIABLES BELOW:
' # Enter your user key below (provided to you by www.increasesitehits.com):
UserKey = "20070221055811"
' # The following variable defines how many columns are used to display categories
CategoryColumns = 2
' # The following variable defines how many links to display per page
LinksPerPage = 25
' # The following variable defines whether links are opened in a new window
' # (1 = Yes, 0 = No)
OpenInNewWindow = 1
' # The following variable determines whether the search function is enabled
' # for your links page (1 = Yes, 0 = No)
AllowSearch = 1
' # DO NOT MODIFY ANYTHING IN THIS BLOCK!!
' ---------------------------------------------------------------------------------
' # The following variable is sent to the www.increasesitehits.com server in order to
' # generate working links on your page:
ThisPage = Request.ServerVariables("SCRIPT_NAME")
' # Generate the data to post to the www.increasesitehits.com server
PostingString = "UserKey=" & UserKey
PostingString = PostingString & "&ScriptName=" & ThisPage
PostingString = PostingString & "&CatCols=" & CategoryColumns
PostingString = PostingString & "&LinksPerPage=" & LinksPerPage
PostingString = PostingString & "&OpenInNewWindow=" & OpenInNewWindow
PostingString = PostingString & "&AllowSearch=" & AllowSearch
' # pass through any querystring data to www.increasesitehits.com to allow paging
PassedQuery = Request.QueryString
' ---------------------------------------------------------------------------------
If GetLinksData(PassedQuery, PostingString, ResultString, ErrorString) Then
Response.Write ResultString
Else
' here we are just dumping error info to the page. You can clean this up to
' fit your site
Response.Write ErrorString
End If
Function GetLinksData(strQuery, strPost, ByRef strResponse, ByRef strError)
Dim hObj
Dim ComponentString
Set hObj = Nothing
On Error Resume Next
Set hObj = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
ComponentString = "" & vbCrLf
On Error Resume Next
If hObj Is Nothing Then
Set hObj = Server.CreateObject("WinHttp.WinHttpRequest.5")
ComponentString = "" & vbCrLf
End If
On Error Resume Next
If hObj Is Nothing Then
If TryMSXML(strQuery, strPost, strResponse, strError) Then
' the MSXML function will return the data
GetLinksData = True
Else
' we don't need to supply error information, since the error string
' is passed ByRef, the MSXML function will supply the data
GetLinksData = False
End If
Else
hObj.Open "POST", "http://www.increasesitehits.com/link/scripts/link.asp?" & strQuery, False
hObj.SetRequestHeader "Content-type", "application/x-www-form-urlencoded"
hObj.Send strPost
If hObj.Status <> 200 Then
strError = "Error: Status=" & hObj.Status & " Text=" & hObj.ResponseText
GetLinksData = False
Else
strResponse = ComponentString & hObj.responseText
GetLinksData = True
End If
End If
End Function
Function TryMSXML(strQuery, strPost, ByRef strResponse, ByRef strError)
Dim hObj
Set hObj = Nothing
' let's see if the server supports the XMLHTTP component, various versions
On Error Resume Next
Set hObj = Server.CreateObject("Msxml2.ServerXMLHTTP")
ComponentString = "" & vbCrLf
On Error Resume Next
If hObj Is Nothing Then
Set hObj = Server.CreateObject("Msxml2.ServerXMLHTTP.4.0")
ComponentString = "" & vbCrLf
End If
On Error Resume Next
If hObj Is Nothing Then
Set hObj = Server.CreateObject("Microsoft.XMLHTTP")
ComponentString = "" & vbCrLf
End If
On Error Resume Next
If hObj Is Nothing Then
strError = "No support for HTTP requests found."
TryMSXML = False
Else
' # Open connection to www.increasesitehits.com server, sending the UserKey information via POST
' # Also, pass through the querystring information (contains category, link information)
hObj.open "POST", "http://www.increasesitehits.com/link/scripts/link.asp?" & strQuery, false
hObj.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
hObj.Send strPost
If hObj.status <> 200 Then
' # error!
strError = "Error: Status=" & hObj.status & " Text='" & hObj.responseText & "'"
TryMSXML = False
Else
' # We should have received the links information from the server,
' # the following line will return the data by reference:
strResponse = ComponentString & hObj.responseText
TryMSXML = True
End If
Set hObj = Nothing
End If
End Function
' # //FINSIHED IncreseSiteHits.com SCRIPT BLOCK
%> |
Resources
fruit machines
AddMe - Search Engine Optimization
Free Url Submission
Traffic Exchange - SurfCash Is A Unique System For Site Owners Wanting High Exposure. We have combined a Traffic Exchange, Banner Exchange and a Text Ad Exchange, all on the same credit system.
Search Engine Optimization and SEO Tools
