<%
Sub MessageOutToFile(messageOut)
Set fs = CreateObject("Scripting.FileSystemObject")
currentFilename = Request.ServerVariables("PATH_TRANSLATED")
pos = InStrRev(currentFilename, ".")
traceName = Left(currentFilename, pos) & "htm"
Set traceFile = fs.OpenTextFile(traceName, 8, True)
traceFile.Write vbCRLF & "-=-=-=-=-=-= " & messageOut & " -=-=-=-=-=-= " & vbCRLF
traceFile.Close
End Sub
msg = msg & "Query String
"
For Each Key In Request.QueryString
msg = msg & Key
msg = msg & "="
msg = msg & Request.QueryString(Key)
msg = msg & "
"
Next
msg = msg & "
"
msg = msg & "Form
"
For Each Key In Request.Form
msg = msg & Key
msg = msg & "="
msg = msg & Request.Form(Key)
msg = msg & "
"
Next
msg = msg & "
"
msg = msg & "Cookies
"
For Each Cookie In Request.Cookies
If Request.Cookies(cookie).HasKeys Then
For Each Key In Request.Cookies(Cookie)
msg = msg & Cookie
msg = msg & "("
msg = msg & Request.Form(Key)
msg = msg & ") = "
msg = msg & Request.Cookies(Cookie)(Key)
msg = msg & "
"
Next
Else
msg = msg & Cookie
msg = msg & "="
msg = msg & Request.Cookies(Cookie)
msg = msg & "
"
End If
Next
msg = msg & "
"
msg = msg & "Server Variables
"
For Each Key In Request.ServerVariables
msg = msg & Key
msg = msg & "="
msg = msg & Request.ServerVariables(Key)
msg = msg & "
"
count = count + 1
Next
msg = msg & "
"
MessageOutToFile(msg)
%>