<% strPathToRoot = "../" %> <% Dim strQS : strQS = "" strQS = request.ServerVariables("QUERY_STRING") if strQS <> "" then strQS = left(strQS,len(strQS)-4) strQS = replace(strQS,"-"," ") strQS = replace(strQS,"_"," ") strQS = replace(strQS,"."," ") response.write strQS else response.write "Associated Websites" end if strQS = request.ServerVariables("QUERY_STRING") %>
<% if strQS <> "" then response.write getHTML( "http://www.ec-plus.net/infosystem/" & strQS ) else response.write getHTML( "http://www.ec-plus.net/infosystem/info2.txt" ) end if %>
<% Function GetHTML(sPage) On Error Resume Next Set objXMLHttp = Server.CreateObject ("Microsoft.XMLHTTP") objXMLHttp.Open "GET", sPage, False,"","" objXMLHttp.Send If Err.Number = 0 Then If objXMLHttp.Status = 200 then GetHTML = objXMLHttp.ResponseText Else GetHTML = "Incorrect URL" End if Else GetHTML = Err.Description End If Set objXMLHttp = Nothing End Function %>