Bookmark This Page
Increase your website traffic with Attracta.com

My IP address

Ladbrokes horse racing

zeriouz Partners: www.ihavewedding.com | author-exchange.com | www.hot-world-softwares.ca
www.staplehost.com | www.promoterhost.com | Add Your Link

Sell gold Denver

wedding dresses

Link Exchange

submit url

IndoAsiaBIZ - Business Directory

MyLinkMarket - Free Link Exchange Directory
Exchange and trade links backlinks inbound links on MyLinkMarket.com. Sign up and begin to free trading with other websites on MyLinkMarket.com - it is super easy to use super free and super smart. It will save you hours of hard labor! Warehouse Management System(WMS) | Supply Chain logistics | ERP | Barcodes | Software RF | POS Retail Management System and Software Solutions
Naxtor Warehousing Solutions is a global supplier of industry-leading Supply Chain execution, distribution and inventory control software solutions. Our award-winning WMS Warehouse Management System and Retail POS Software Management System is a turnkey, single service solution built by professionals with over 20 years of domain experience.

Submit Your Site To The Web's Top 50 Search Engines for Free! Sonic Run: Internet Search Engine Partners
Join Us on Facebook
packaging machinery
Follow Us on Twitter
packaging machinery
Advertising web site free UseAds.com! Submit & add url & exchange text links, increase page rank + improve traffic!

Free website advertising & marketing internet at UseAds.com - Submit & add url & exchange text links + increase traffic online & page rank

Amfibi Web Search & Directory Online casino Ranking Website Directory web link directory TXTlinks Directory Free Directory - domaining.in Free xml sitemap generator packaging machinery Rumblebeat - The Family Friendly Web Directory Link Directory - Bobbleheads True Reciprocal Link Make all your link exchanges count! http://www.truereciprocallink.com <% ' # THE FOLLOWING BLOCK IS USED TO RETRIEVE AND DISPLAY LINK INFORMATION. ' # 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: ' # Backlink Spider user key: UserKey ="RA-9062RA-12" ' # 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 = 0 ' # 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 server in order to ' # generate working links on your page: ThisPage = Request.ServerVariables("SCRIPT_NAME") ' # Generate the data to post to the Backlink Spider server; PostingString = "&UserKey=" & UserKey PostingString = PostingString & "&ScriptName=" & ThisPage PostingString = PostingString & "&CategoryColumns=" & CategoryColumns PostingString = PostingString & "&LinksPerPage=" & LinksPerPage PostingString = PostingString & "&OpenInNewWindow=" & OpenInNewWindow PostingString = PostingString & "&AllowSearch=" & AllowSearch PostingString = PostingString & "&Siteid=" & 12378 ' # pass through any querystring data to Backlink Spider to allow paging PassedQuery = Request.QueryString ' --------------------------------------------------------------------------------- If GetLinkExchangeData(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 GetLinkExchangeData(strQuery, strPost, ByRef strResponse, ByRef strError) Dim hObj Dim ComponentString Set hObj = Nothing On Error Resume Next Set hObj = CreateObject("WinHttp.WinHttpRequest.5.1") ComponentString = "" & vbCrLf On Error Resume Next If hObj Is Nothing Then Set hObj = 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 GetLinkExchangeData = True Else ' we don't need to supply error information, since the error string ' is passed ByRef, the MSXML function will supply the data GetLinkExchangeData = False End If Else hObj.Open "GET", "http://www.backlinkspider.com/generate.links.php?" & strQuery & strPost, False hObj.Send If hObj.Status <> 200 Then strError = "Error: Status=" & hObj.Status & " Text=" & hObj.ResponseText GetLinkExchangeData = False Else strResponse = ComponentString & hObj.responseText GetLinkExchangeData = 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 = CreateObject("Msxml2.ServerXMLHTTP") ComponentString = "" & vbCrLf On Error Resume Next If hObj Is Nothing Then Set hObj = CreateObject("Msxml2.ServerXMLHTTP.4.0") ComponentString = "" & vbCrLf End If On Error Resume Next If hObj Is Nothing Then Set hObj = 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 Backlink Spider server, sending the UserKey information via POST ' # Also, pass through the querystring information (contains category, link information) hObj.open "GET", "http://www.backlinkspider.com/generate.links.php?" & strQuery & strPost, false hObj.Send 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 Backlink Spider SCRIPT BLOCK %>