RSV CONSULTING LINKS
<% ' # 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 OpenInNewWindow Dim PostingString Dim PassedQuery Dim AllowSearch Dim ErrorString Dim ResultString Dim Category ' # // Finished dimensioning variables. ' # .com user key: UserKey = "1207" ' # YOU MAY MODIFY THE VARIABLES BELOW: ' # 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 server in order to ' # generate working links on your page: ThisPage = Request.ServerVariables("SCRIPT_NAME") ' # Generate the data to post to the .com server PostingString = "&UserKey=" & UserKey PostingString = PostingString & "&ScriptName=" & ThisPage PostingString = PostingString & "&OpenInNewWindow=" & OpenInNewWindow PostingString = PostingString & "&AllowSearch=" & AllowSearch ' # pass through any querystring data to to allow paging PassedQuery = Request.QueryString Category = Request.QueryString("cn") ' --------------------------------------------------------------------------------- Function GetLinksData(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 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 "GET", "http://www.linktradeexchange.com/get_pages.php?" & strQuery & strPost, False hObj.Send 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 = 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 .com server, sending the UserKey information via POST ' # Also, pass through the querystring information (contains category, link information) hObj.open "GET", "http://www.linktradeexchange.com/get_pages.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 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 ' # //FINSIHED .COM SCRIPT BLOCK %>
1 Local Classified Ads - Web cosmo offers free classified posts in all categories. Post your ad for Jobs, Housing, For Sale, Community, Personals, Service,s Resumes, and Gigs for FREE. Post what you want offer or search for what you need all FREE.
affiliate programme
Join a recurring affiliate marketing programme found in Affiliate Rankers directory. Search for a free online affiliate program in any niche and any affiliate commission model. Pay per sale, pay per click, pay per lead or pay per impression programmeFree Consulting Resource
The Most Important Things to Know When Choosing a consulting.Gifts For Mom
Our gifts for mom will always remind her that her greatest reward is you. And while you can never truly say enough, if the gift is from the heart, it will be treasured forever. Our online store provides a large selection of unique gifts for mom.Link2Me Link Exchange Directory - The Professional SEO Link Exchange
Quality directory of webmasters actively seeking link exchange. Improve your search engine rankings and link popularity the easy way. Work clever not hard.Dental Care
Search, compare and choose from more than 30 national and regional money-saving discount dental plans. Take the first step toward a healthier smile and start saving today!Website Promotion
Free Webmaster Resources . Create backlinks for your website. Submit Link To Search Engine, Directory List. Tools IncreaseOnline Dating
Who Else Wants To Know How To Find A Girlfriend Or Boyfriend - FAST?Free Travel Guide
Discover how to fly for free & travel on a shoestring budget...LowPriceBroker.com
Low Price Brokerhigh heels
high heels are available at discount prices on houseofheels. Houseofheels offers a wide variety of high heel shoes for a wide range of peopleActualSavings.com
Your place for great savings.Network Installation Los angeles
Intercore provides Network Installation and desktop management and Outsourcing services for clients in Los Angeles
Travel - Real Estate - Great Life Style - Faxts is about travel, real estate and a great life style.
Search Top Sites & Directories
Add up to 3 websites to our Directory for Free - HToshmatov.com
