<% dim strFileName dim strItem dim iCount dim fs dim OutputFile dim t 'Specify directory and file to store silent post information strFileName = "C:\logs\SilentPost.log" Set fs = CreateObject("Scripting.FileSystemObject") Set OutputFile = fs.OpenTextFile (strFileName, 8, True) OutputFile.WriteLine now() OutputFile.WriteLine "Referrer: " + Request.ServerVariables("HTTP_REFERER") OutputFile.WriteLine "Remote Address: " + Request.ServerVariables("REMOTE_ADDR") OutputFile.WriteLine "Content-Type: " + Request.ServerVariables("CONTENT_TYPE") OutputFile.WriteLine "User-Agent: " + Request.ServerVariables("HTTP_USER_AGENT") OutputFile.WriteBlankLines(2) OutputFile.WriteLine "All Server Variables:" OutputFile.WriteLine Request.ServerVariables("ALL_RAW") OutputFile.WriteLine "Raw Posted Data: " & Request.Form OutputFile.WriteBlankLines(1) OutputFile.WriteLine "Posted Data" for i = 1 to Request.Form.Count OutputFile.WriteLine i & "." & chr(9) & Request.Form.Key(i) & " = " & Request.Form.Item(i) next OutputFile.WriteBlankLines(2) OutputFile.WriteLine "Raw Query String: " & Request.QueryString OutputFile.WriteBlankLines(1) OutputFile.WriteLine "URL Data" for i = 1 to Request.QueryString.Count OutputFile.WriteLine i & "." & chr(9) & Request.QueryString.Key(i) & " = " & Request.QueryString.Item(i) next OutputFile.WriteBlankLines(2) OutputFile.Close Response.Write "Data was written to " & strFileName %>