<% ' # 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 Dim Category ' # // Finished dimensioning variables. ' # MODIFY THE VARIABLES BELOW: ' # Enter your user key below (provided to you by GotLinks.com): UserKey = "P1ZF-FUE8-DJ7M" ' # 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 GotLinks server in order to ' # generate working links on your page: ThisPage = Request.ServerVariables("SCRIPT_NAME") ' # Generate the data to post to the GotLinks.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 GotLinks to allow paging PassedQuery = Request.QueryString Category = Request.QueryString("cn") ' --------------------------------------------------------------------------------- Function GetGotLinksData(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 GetGotLinksData = True Else ' we don't need to supply error information, since the error string ' is passed ByRef, the MSXML function will supply the data GetGotLinksData = False End If Else hObj.Open "GET", "http://www.gotlinks.com/engine.php?" & strQuery & strPost, False hObj.Send If hObj.Status <> 200 Then strError = "Error: Status=" & hObj.Status & " Text=" & hObj.ResponseText GetGotLinksData = False Else strResponse = ComponentString & hObj.responseText GetGotLinksData = 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 GotLinks.com server, sending the UserKey information via POST ' # Also, pass through the querystring information (contains category, link information) hObj.open "GET", "http://www.gotlinks.com/engine.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 %> <%=Request.ServerVariables("SERVER_NAME")%> <%=Category%> Link Partners
ez promotions logo merchandise
Logo Merchandise - Main Categories:
Apparel
Auto Accessories
Awards & Recognition
Backpacks, Bags & Totes
Business, Desk & Office Supplies
Calendars & Planners
Clocks & Watches
Computer Accessories
Electronics
Food & Drinks
Games, Toys & Fun
Holiday & Seasonal
Healthcare, Body & Bath Products
Housewares
Magnets
Mugs, Drinkware & Barware
Pocket & Purse Accessories
Sport & Leisure Products
Stress Relievers
Toolkits, Tools & Knives
Buttons, Badges & Ribbons
Writing Instruments

Specials:
Current Specials
Breast Cancer Awareness
New Logo Products
AdvertiseBest.com - Advertising directory informations and resources on the web.



Advertisingpage.com
Leap Browse.com
Directoryb2b.com
Lookdirectory.com
AdvertisePark.com
AdvertiseReport.com
Alladvertiser.com
AdvertisePage.com
AdvertisePost.com
Promotional Items Directory
Promotions Directory
Low Cost Promotions Directory
Promotions Directory Pages
Dallas Signs - If you live in the Dallas/Forth Worth area and you need a sign manufactured then WorldsGreatestSigns.com is your solution.
Lean manufacturing six sigma.
Breaking through pockets of resistance and encouraging staff to take ownership of lean Six Sigma implementation is our priority and greatest strength. We take great pride in helping clients recognize and create the lean Six Sigma solution that best meets their needs.
Conveyor system.
Shuttleworth, Inc. is a leading provider of material handing conveyor equipment in the US. When you need a conveyor system that will accumulate, flip, stack, rotate, push, divert or index your products between manufacturing processes, we can design and build it.
Finesse Group - for exhibition design, exhibition stand design, exhibition stand designers, exhibition contractors in the UK
UK business card printing, poster printing, banner stands, pop up stands, leaflet printing, postcard printing and digital printing.
UK supplier dealer of fax machines, office equipments, office stationery, office supplies, toner cartridges
Nitro snowboard, nitro snowboards, nitro bindings, nitro snowboards boots, nitro snowboard clothing
Downlight, downlights, fire hoods, firehoods, contemporary lighting, downlighter, downlighters
Postcard printing, postcard printer, flyer printing, flyer printer, poster printing, poster printer, folder printing, folder printer in UK
Exhibition stand contractor, exhibition stand contractors, exhibition contractor, exhibition contractors in the UK
UK specialist of cricket balls, cricket bats, cricket equipment
Logo items, logo products & logo merchandise for promotional gifts or trade show giveaways.
Bargain online shopping, bargain shops for bargain hunters
Ecommerce hosting, ecommerce software, ecommerce solutions, ecommerce web site design in UK
Outdoor lighting, wall lights, spot lights, ceiling lights in UK
Simply Spoiled Store - a designer replica handbag store selling high quality replica handbags made from high quality materials at affordable prices.
<% If GetGotLinksData(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 GotLinks.COM SCRIPT BLOCK %>

© Copyright 2005-2007 EZ Promotions
http://www.ezlogomerchandise.com