home top contents previous up next
<%@language="VBScript"%>
<%option explicit%>
<!--#include file="..\custom.inc"-->   

<%
dim caller_address, caller_port
dim redirect_address 
dim redirect_port
dim redirect_folder
dim redirect_url 
dim redirect_interval

dim ve, wi
ve = vbcrlf

const html_header = "<html><head><title>Updater</title></head><body><pre>"
const html_end = "</pre></body></html>"
const page_title = "Corporate Office"

function response_html (s)
 response.write html_header & s & html_end
 response.end
end function

redirect_address = Request.ServerVariables("REMOTE_ADDR")
redirect_port = trim(Request.QueryString("port"))
redirect_folder = trim(Request.QueryString("folder"))
redirect_url = "http://" & redirect_address & ":" & redirect_port & "/" & _
               redirect_folder & "/"
redirect_interval = trim(Request.QueryString("interval"))

if "" = redirect_port then
   response_html "No port information" 
end if

if "" = redirect_folder then
   response_html "No folder information" 
end if

wi = (day(date)*24+hour(time))*60 + minute(time)
write_file "link_to_corporate_office.htm", _
           "<html><head><title>" & page_title & "</title></head>" & _
           "<body><pre>" & ve & _
           "<a href=""" & redirect_url & """>" & page_title & "</a>" & ve & _
           "Link updated on " & Now & ve & _
           "<!-- " & _
              ve & "update month " & month(date) & _
              ve & "update minutes " & wi & _
              ve & "update interval " & redirect_interval & ve & _
           " -->" & ve & _
           html_end

response_html "Link updated. Thank you."

%>