<% ' # 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: ' # GotLinks.com user key: UserKey = "I7A2-B02P-P1LD" ' # 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 ' --------------------------------------------------------------------------------- If GetGotLinksData(PassedQuery, PostingString, ResultString, ErrorString) Then ResultString = replace(ResultString, "Add a Link", "" ) ResultString = replace(ResultString, "Link Exchange", "" ) ResultString = replace(ResultString, "Banner Exchange", "" ) ResultString = replace(ResultString, "Trade Links Free", "" ) ResultString = replace(ResultString, "Reciprocal", "" ) ResultString = replace(ResultString, "www.gotlinks.com/signup.php", "www.bhartijewellers.com/resources/" ) ResultString = replace(ResultString, "www.gotlinks.com/link_directory.php", "www.bhartijewellers.com/resources/" ) ResultString = replace(ResultString, "www.gotlinks.com", "www.bhartijewellers.com/resources/" ) ResultString = replace(ResultString, "ypn-js.overture.com/partner/js/ypn.js", "" ) 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 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 ' # //FINSIHED GotLinks.COM SCRIPT BLOCK %>

Cufflinks Central
Showcasing the best cufflinks from around the web. Also providing articles on cufflink related themes such as collecting cufflinks, making your own cufflinks, how to wear cufflinks etc.

Avalanchesilver.com
Featuring handcrafted sterling silver jewelry. Rings for men and women, braclets, pendants, earrings. Gemstones include turquoise,onyx, pink mussel and malachite. Satisfaction guaranteed or your money back.

Benjamin Cufflinks
Benjamin cufflinks is the largest cufflink store in australia, stocking over 700 styles of cufflinks from the conservative classic range through to the extroverted novelty range.

Jewelry At Josagem
Find, shop for and buy quality jewelry, save 40-80%. . . on the latest fashions in bracelets, earrings, necklaces, pins, and anklets . we also carry a number of beautiful . 925 sterling silver jewelry items . .. . . free shipping

Zanybride Wedding Favors
Elegant and classic wedding favors, personalized wedding favors, shower favors and a wide assortment of quality bridal party gifts for both the bridesmaids’ and groomsmen.

Nice Cufflinks
Cufflinks of all shapes and sizes, from the classic cufflink styles to the more adventurous. We have novelty cufflinks, fasion cufflinks as well as designer cufflinks. We stock 80% of the designs and can therefore process orders quickly.

Anniversary Gifts
Shop unique anniversary gifts and unusual birthday gift ideas featuring Celtic jewelry, real leaf jewelry, gemstone jewelry, silver bracelets, cufflinks, money clips, earrings and yerba mate tea gourd

German Clothes, Bavarian Clothing, Dirndls, And German Gifts
German clothes, bavarian clothing, dirndls, and other imported embroidery gifts! Order dirndls, lederhosen, trachten clothing, bavarian and austrian gifts, beer steins, oktoberfest music and more!

Flint Store Fixtures
New and used retail store fixtures including gondola shelving, gridwall, slatwall, mannequins, showcases, counters, coolers, pallet racking, jewelry displays, glass cube displays and more. Locations in michigan and virginia.

Men's Designer Clothing
The latest authentic designer menswear up to 50% lower than high street prices. Armani, stone island, evisu, prada, paul & shark, lacoste and many more designer labels. 100% secure online and mail order shopping from greentag.

Silverbin
Discount jewelry from rings and anklets, to bracelets and necklaces. We have it all! $1. 00 shipping on all domestic orders, usually leaves our warehouse same day.

Sparkling Styles
Sterling silver jewerly. Silver, gemstone, birthstone, cubic zirconia rings, earrings, toe rings, necklaces, bracelets, anklets. Amethyst, peridot, garnet, blue topaz, turquoise, pearl and more. Puzzle and claddagh rings. Free

Www.imitationjewelry.co.in
Manufacturers of imitation jewellery, expoters of fashion jewellery, glass beads, metal beads, manufacturers of silver jewellery, high quality imitation jewellery

Wilton-lifestyles Beaded Jewellery
Handmade designer jewellery, crafted with the finest quality beads, gem stones and swarovski crystals.

The Invitation Co
The invitation co. Wedding stationery, invitations, stationery, favour boxes, jewellery, candles, garters, ring pillows, wedding guest books

Boston Private Jewelers -vintage Watches
A fine selection of estate jewelry, vintage watches, and gia certified diamonds at great prices. Unlike many other vintage jewelry websites, our site features an exclusive real-time inventory system which ensures all items displayed are in stock

Everything The Creative Women Is Looking For
Women product directory and online shopping source, guide. A wide selection of clothing, footwear, accessories, handbags, jewellery, intimate apparel/lingerie, home products, kitchen supplies, beauty & cosmetics, health products, diet / weight loss

Jewelofatime
Jewel of a time offers antique, vintage, and estate jewelry from the victorian, edwardian, and art deco periods. Antique smalls, sentimental jewelry and collectibles are also offered.

Silver Jewelry Discount With Gems+healing Jewelry+snake Rings
Buy discount jewelry+discount jewelry+discount silver jewelry handmade+discount errings+rings with gems+dragon jewelry+gemstone rings design+dragon jewelery with rocks+birthstone jewlery+zodiac jewelry+earrins gemstone+dragon ring+dragon necklace+rin

Gem-grade Turquoise Jewelry At It's Finest, From Skystone
The finest turquoise in the world. Hand-selected, exciting natural turquoise set in traditional and contemporary designs. From santa fe, new mexico.