Links

Next Page>>   Primitive Heart n Home If you would like to exchange banners please add my site to your links page and email me with your banner/linking info. The Cranberry Cupboard Here you will find a unique offering of Primitive, Folk-art, and Country style "Needful Things", including grapevine trees, barn stars, prim dolls,ladders, prim lighting, Twig & berry decor, saltbox houses, handmade pillows, tart warmers, rusty tin and much more! TeenFreeway Totally Free Goodies! "Oddity" Canldes, Home decor, Home Accents & More! Kohl's Crayola Got Links <% ' ****************do not modify the variables below****************** Dim GLKey Dim GLPage Dim GLCatCol Dim GLLPP Dim GLNW Dim GLPS Dim GLPQ Dim GLAS Dim Err Dim GLResult Dim GLCategory ' ******************************************************************** ' You may change the variables below to customize the look and feel of ' your links page ' ******************************************************************** ' This option defines the number of columns used to display categories GLCatCol = 2 ' This option defines the number of links displayed per page GLLPP = 25 ' This option defines whether links are opened in a new web browser window ' (1 = Yes, 0 = No) GLNW = 1 ' TThis option determines whether the search function is enabled ' for your links page (1 = Yes, 0 = No) GLAS = 1 ' ******************************************************************** ' *****Please DO NOT make any edits or changes to the code below****** ' ******************************************************************** GLKey = "FV19-9ZFD-M524" GLPage = Request.ServerVariables("SCRIPT_NAME") GLPS = "&UserKey=" & GLKey & "&ScriptName=" & GLPage & "&CatCols=" & GLCatCol & "&LinksPerPage=" & GLLPP & "&OpenInNewWindow=" & GLNW & "&AllowSearch=" & GLAS GLPQ = Request.QueryString GLCategory = Request.QueryString("Cnm") Function GetGotLinksData(HTTPQuery, PostStr, ByRef Resp, ByRef Er) Dim HttpReqObj Dim ComponentString Set HttpReqObj = Nothing On Error Resume Next Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5.1") On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5") End If On Error Resume Next If HttpReqObj Is Nothing Then On Error Resume Next Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP") On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP.4.0") End If On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("Microsoft.XMLHTTP") End If On Error Resume Next If HttpReqObj Is Nothing Then Er = "HTTP requests not supported." GetGotLinksData = False Else HttpReqObj.open "GET", "http://www.gotlinks.com/engine2.php?" & HTTPQuery & PostStr, false HttpReqObj.Send If HttpReqObj.status <> 200 Then Er = "Error: Status=" & HttpReqObj.status & " Text='" & HttpReqObj.responseText & "'" GetGotLinksData = False Else Resp = ComponentString & HttpReqObj.responseText GetGotLinksData = True End If Set HttpReqObj = Nothing End If Else HttpReqObj.Open "GET", "http://www.gotlinks.com/engine2.php?" & HTTPQuery & PostStr, False HttpReqObj.Send If HttpReqObj.Status <> 200 Then Er = "Error: Status=" & HttpReqObj.Status & " Text=" & HttpReqObj.ResponseText GetGotLinksData = False Else Resp = HttpReqObj.responseText GetGotLinksData = True End If End If End Function %> <% If GetGotLinksData(GLPQ, GLPS, GLResult, Err) Then Response.Write GLResult Else ' here we are just dumping error info to the page. You can clean this up to ' fit your site Response.Write Err End If %> Primitive Stitches Community Advertising FREE Website Advertising For All Sites - CLICK HERE! Cabin Wood Folk Art Patchwork and Paint Country Fair Craft Peddlars Village The Crafters Loft Country Time Treasures Ruby Oak A gathering of primitive & country gift shoppes. Add your site to our marketplace FREE! www.rubyoak.com Country Crafts Directory Spare Time Crafts A Crafts & Gifts Links Exchange & Resources Gifts of All Sorts. Huge Assortment of Links & Resources & more. Directory Art Directory of United States - free online catalog of relevant and useful web sites. Free submit a site to United States web directory and link exchange.   Next Page>>