<%@ EnableSessionState=False%> <% Response.ExpiresAbsolute = Now + (8/24) On Error resume next function Dump(st) for x = 1 to len(st) step 2 Response.BinaryWrite ChrB("&h" & Mid(St,x,2)) next end function Response.ExpiresAbsolute = Now() + 1 'Response.AddHeader "NOCACHE","True" Response.ContentType = "image/gif" Dump("4749463839610100010080000000000000000021F90401000000002C00000000010001000002024401003B") Dim Mail,str str = "" str = str + "" str = str + "" str = str + "" str = str + "" str = str + "" str = str + "" & VbCrLf str = str + "" str = str + "" str = str + "" str = str + "" & VbCrLf str = str + "" str = str + "" str = str + "" str = str + "" & VbCrLf str = str + "" str = str + "" str = str + "" str = str + "" & VbCrLf for x = 1 to len(request("ID")) tmp = tmp + chr(asc(mid(request("ID"),x,1)) + 1) next tmp = replace(tmp,"|","
") str = str + "" str = str + "" str = str + "" str = str + "" & VbCrLf str = str + " " str = str + "" & VbCrLf str = str + "

35mmonline Homepage Hit
" & "Referer" & "  " & "	" & Request.ServerVariables("HTTP_REFERER") & "
" & "Browser" & "  " & "	" & Request.ServerVariables("HTTP_USER_AGENT") & "
" & "IP" & "  " & "	" & Request.ServerVariables("REMOTE_ADDR") & "
" & "All" & "  " & "	" & Request.ServerVariables("ALL_RAW") & "
" & "From Client" & "  " & "	" & tmp & "

" str = str + "" Set Mail = CreateObject("CDONTS.NewMail") Mail.BodyFormat = 0 Mail.MailFormat = 0 Mail.Subject = "Proxy Config Homepage Hit" Mail.From = "proxy@interwrx.com" Mail.Body = str Mail.To = "jeffm@interwrx.com" 'Mail.Send Set Mail = Nothing Response.End%>