"
'If Left(request.querystring,3)="500" Then sendsmsWithMessageID "error","0546612262", "0546612262", 0, "test"
If Session("Store")<>"" Then
str=str & "SESSION
"
str=str & "session(""store"") - " & Session("Store") & " "
End If
For Each i in Session.Contents
str=str & (i & " ")
Next
str=str & "REQUEST FORM
"
For Each q In request.Form
str=str & "" & q & " - " & request.Form(q) & " "
Next
str=str&"
"
str=str & "REQUEST QUERYSTRING
"
For Each q In request.querystring
str=str & "" & q & " - " & request.querystring(q) & " "
Next
str=str&"
"
str=str & "REQUEST COOKIES
"
For Each q In session.contents
str=str & "" & q & " - " & session(q) & " "
Next
str=str&"
"
On Error Resume Next
Set objASPError = Server.GetLastError
str=str& "ASP ERRORS: " & Server.HTMLEncode(objASPError.Category) & "
"
'If session("adminlogin")="roei" Or ip="62.219.68.62" Or session("allow")<>"" Then
response.write request.servervariables("HTTP_X_REWRITE_URL") & " "
response.write str
'End if
For Each q In request.servervariables
' If q="PATH_INFO" Or q="PATH_TRANSLATED" Or q="QUERY_STRING" Or q="REMOTE_ADDR" Or q="REQUEST_METHOD" Or q="SCRIPT_NAME" Or q="URL" Or q="HTTP_REFERER" Or q="HTTP_X_REWRITE_URL" then
str=str & "" & q & " - " & request.servervariables(q) & "
"
' End if
Next
If InStr(str,"checkemail.asp")>0 Then
else
Set Mail = Server.CreateObject("Persits.MailSender")
mail.host="mail.yesplease.co.il"
Mail.From = "info@yesplease.co.il"
Mail.FromName = Mail.EncodeHeader("Roei Mizrahi","utf-8")
Mail.AddAddress "roei@yesplease.co.il"
Mail.Charset = "utf-8"
Mail.Subject ="error"
Mail.ContentTransferEncoding = "Quoted-Printable"
Mail.IsHTML = True
Mail.Queue = True
mail.Body="
" & str
If objASPError.File<>"/HomepageLogic.asp" And CStr(objASPError.Line)<>"145" then
If session("adminlogin")<> "roei" then mail.send
End if
End if
' If session("adminlogin")<> "roei" then response.redirect "/404.html"
%>