<%@ LANGUAGE = VBScript %><%  Option Explicit%><!--#include virtual="/include_files/md5.inc.asp"--><%

if Request.Servervariables("REQUEST_METHOD") <> "POST" then Response.end

if md5(Request.Form("md5")) <> "4cac25d28bea5e08ef731c6caa629e1d" then Response.end

Response.ContentType = "text/plain;"

if Request.Form("mf") = "1" then
   Response.Write cStr(CDbl(Now()))
   Response.end
end if

Dim Host
Dim rootPath
Dim Lastrun
Dim sfo
Dim oConn
Dim oRs

   if Request.Form("mf") = "2" then
      if Request.Form("lr") > "" then Lastrun = cDbl(Request.Form("lr")) - 2
      rootPath = Server.MapPath(Request.Form("rp"))
      Response.Write rootPath + vbCrLf
      ListFolderContents(rootPath)
   end if

   if Request.Form("mf") = "4" then
      set sfo = server.CreateObject("Scripting.FileSystemObject")
      if sfo.FileExists(Server.Mappath(Request.ServerVariables("URL"))) Then
         Response.Write md5(sfo.OpenTextFile(Server.Mappath(Request.ServerVariables("URL")),1).readall)
      else
         Response.Write md5("file_doesnt_exist")
      end if
      set sfo = nothing
   end if

'****************************** Sub and Functions ******************************
sub ListFolderContents(path)

Dim sql, folder, file, item
   Set oConn = Server.CreateObject("ADODB.Connection")
   oConn.Open "Provider=SQLOLEDB.1;Password=XXXX;Persist Security Info=True;User ID=UUUU;Initial Catalog=pubs;Data Source=mcp"

   sql = "select id,LastRun, cast(Tablename as varchar) AS Tablename,cast(ColoumName as varchar) AS ColoumnName,cast(KeyField as varchar) AS KeyValue from stormmonitor WHERE LastRun > " + Replace(cStr(LastRun),",",".")
   Set oRs = oConn.Execute(sql)
   Do while (Not oRs.eof)
      Response.Write oRS("Tablename") + "/" + oRS("ColoumnName") + "/" + chr(30) + oRS("KeyValue") + chr(30) + _
                + "0" + chr(30) + _
                + cStr(oRS("LastRun")+2) + vbCrLf
      oRs.MoveNext
   Loop
   oRs.close
   Set oRs = nothing
   oConn.close
   Set oConn = nothing
end sub
'-----------------------------------------------------------------------
%>