<% ' ******************************************************************** ' paste this block of code on your web page where you would like text ' links to be displayed. this code will dynamically add and remove text ' links on your web page according to your backlinks.com settings. ' ******************************************************************** dim blkey dim openinnewwindow dim postingstring dim errorstring dim resultstring dim linkurl ' the following variable defines whether links are opened in a new window ' (1 = yes, 0 = no) openinnewwindow = 1 ' ******************************************************************* ' please do not modify any of the code below ' ******************************************************************* blkey = "xr70-1p26-b67v" ' # the following variable is sent to the backlinks server in order to ' # generate working links on your page: if request.servervariables("https") = "on" then linkurl="https://" else linkurl="http://" end if if request.servervariables("request_uri") then linkurl = linkurl & request.servervariables("http_host") & request.servervariables("request_uri") else linkurl = linkurl & request.servervariables("http_host") & request.servervariables("path_info") if request.servervariables("query_string") <> "" then linkurl = linkurl & "?" & request.servervariables("query_string") end if end if linkurl = server.urlencode(linkurl) ' # generate the data to post to the backlinks.com server postingstring = "&key=" & blkey postingstring = postingstring & "&openinnewwindow=" & openinnewwindow & "&linkurl=" & linkurl function getbacklinksdata(httpquery, byref resp, byref er) dim httpreqobj 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." getbacklinksdata = false else httpreqobj.open "get", "http://www.backlinks.com/engine.php?" & httpquery, false httpreqobj.send if httpreqobj.status <> 200 then er = "error: status=" & httpreqobj.status & " text='" & httpreqobj.responsetext & "'" getbacklinksdata = false else resp = httpreqobj.responsetext getbacklinksdata = true end if set httpreqobj = nothing end if else httpreqobj.open "get", "http://www.backlinks.com/engine.php?" & httpquery, false httpreqobj.send if httpreqobj.status <> 200 then er = "error: status=" & httpreqobj.status & " text=" & httpreqobj.responsetext getbacklinksdata = false else resp = httpreqobj.responsetext getbacklinksdata = true end if end if end function if getbacklinksdata(postingstring, resultstring, errorstring) then response.write resultstring else response.write errorstring end if ' finsihed backlinks.com script block %>