Our Link partners - Showcase Main Partner 1 Partner 2 Partner 3 partner 4 Partner 5
	<% ' # 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: ' # Enter your user key below (provided to you by LinksMaster.com): UserKey = "304814222006-IPOK833VWM" ' # 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 LinksMaster server in order to ' # generate working links on your page: ThisPage = Request.ServerVariables("SCRIPT_NAME") ' # Generate the data to post to the LinksMaster.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 LinksMaster to allow paging PassedQuery = Request.QueryString ' --------------------------------------------------------------------------------- If GetLinksMasterData(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 GetLinksMasterData(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 GetLinksMasterData = True Else ' we don't need to supply error information, since the error string ' is passed ByRef, the MSXML function will supply the data GetLinksMasterData = False End If Else hObj.Open "POST", "http://www.LinksMaster.com/bin/dumplinks.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 GetLinksMasterData = False Else strResponse = ComponentString & hObj.responseText GetLinksMasterData = 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 LinksMaster.com server, sending the UserKey information via POST ' # Also, pass through the querystring information (contains category, link information) hObj.open "POST", "http://www.LinksMaster.com/bin/dumplinks.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 LinksMaster.COM SCRIPT BLOCK %>
	Home Equity Loans Offering home equity loans to all 50 states. Finding you the lowest home equity loan rates guaranteed! URL: http://www.loanratebusters.com/home-equity/ - Added: 05.28.2006 America's Free Auto Classifieds Advertise your auto products, business, website and more. Get the results you have been searching for! Come buy and sell with us today! Featured ads, bolding, better placement, upload up to 6 photos. Make your ad stand out from the rest! URL: http://www.motoclassifieds.us/ - Added: 05.28.2006 Neteller Neteller bonus belgium beloffre plus des chemins finance votre compte que quelqu'autre neteller. Com système de paiement connecté des options locales et universelles à l'amérique du nord l'europe et l'asie des options en neteller. Com travers du globe URL: http://www.netellerbonus.be/ - Added: 05.28.2006 Home Equity Loan The best online home equity loan offers URL: http://www.home-equity-loan-s.com/ - Added: 05.28.2006 Miami Florida Real Estate And Lenders Miami florida real estate resource guide. Links to posted homes, land and condos. A lender and loan applications are just a few clicks away. Also find out more about schools, weather, shopping, classified and more. URL: http://www.myproservice.com/miami_real_estate/ - Added: 05.28.2006 San Jose Real Estate And Lenders San jose california real estate resource guide. Links to posted homes, land and condos. A lender and loan applications are just a few clicks away. Also find out more about schools, weather, shopping, classified and more. URL: http://www.myproservice.com/san_jose_real_estate/ - Added: 05.28.2006 Powellfurnitur Powell furniture coffee tables dinning room table office furniture wine racks URL: http://www.powellfurniturestore.com/ - Added: 05.28.2006 Cash Advance Online short term loan service. URL: http://www.payday-loan-cash-advances.net/ - Added: 05.28.2006 Bathroomfurniture Functional and elegant, our bathroom furniture collection offer convenience to store your bath accessories neatly. URL: http://www.bathroomfurnitureexpress.com/ - Added: 05.28.2006 Rolex Watches Bebimi selld rolex,rolex submariner,used rolex watches,rolex daytona,used rolex,new rolex watches,mens rolex watches,lady rolex,rolex dealer,3525 rolex,rolex watch prices,pre owned rolex,swiss rolex,lady rolex watches,bezel diamond rolex watches URL: http://rolex.bebimi.com/ - Added: 05.28.2006
	Movado Watches Bebimi enables you to buy watches from major designers and brand names. We have breitling, cartier, casio, citizen, fossil, gucci, invicta, movado, omega, rolex, seiko, swiss army, tag heuer, timex, aire traveler and jacob watches URL: http://movado.bebimi.com/ - Added: 05.28.2006 Watches Watches,watch,rolex,gucci,movado,kenneth cole,tag heuer,seiko,citizen,mens watches,concord,dkny,suunto,polar,burberry,cartier,coach,diesel,puma,boss,roxy,armani,fendi,concord,ecko,omega,casio, URL: http://www.bebi.com/ - Added: 05.28.2006