<% response.charset = "utf-8" %> <% str=Now() & "

" '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 Len(CStr(objASPError.ASPCode)) > 0 Then str=str& Server.HTMLEncode(", " & objASPError.ASPCode) & "
" End If str=str& Server.HTMLEncode(" (0x" & Hex(objASPError.Number) & ")" ) & "
" If Len(CStr(objASPError.ASPDescription)) > 0 Then str=str& Server.HTMLEncode(objASPError.ASPDescription) & "
" ElseIf Len(CStr(objASPError.Description)) > 0 Then str=str& Server.HTMLEncode(objASPError.Description) & "
" End If str=str&"ASPCode = " & objASPError.ASPCode & "
" str=str&"ASPDescription = " & objASPError.ASPDescription & "
" str=str&"Category = " & objASPError.Category & "
" str=str&"Column = " & objASPError.Column & "
" str=str&"Description = " & objASPError.Description & "
" str=str&"File = " & objASPError.File & "
" str=str&"Line = " & objASPError.Line & "
" str=str&"Number = " & objASPError.Number & "
" str=str&"Source = " & objASPError.Source & "
" str=str&"

" '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" %>
השוואת מחירים חיוג מקוצר כוכבית 5959 להשוואת הצעות מחיר Facebook YeP! הוסף את יס, פליז! למועדפים
השוואת מחירים הצטרפות לבתי עסק
הצעות מחיר שסופקו עד כה
397,490
 בחר איזור
בחר תחום
איך זה עובד?