[אידה]

תודה רבה רבה, הבעיה נפתרה עזרתי לי מאד,

[אידה]

נרשמתי לאתר  FireFox  למען האמת אין לי מושג מה עושים? איך אני נכנסת לאתר,

שנחסם? דרך הFireFox ?

[אידה]

תודה! אנסה מיד,

[אידה]

לא, מה שאני מקבלת בעת שאני לוחצת , זה הכיתוב ששלחתי ,

[אידה]

כוונתי כמובן לאתר שירי עירק

[אידה]

Sub SendMail(mFrom, mTo, mSubject, mBody, mFile, isHTML, mailCharset)

If Not IS_DEBUG Then

Dim objMail

'========================================================= ==================='
'Persits.MailSender'
'========================================================= ==================='
Set objMail = Server.CreateObject("Persits.MailSender")
objMail.Host = EMAIL_HOST

if mFrom <> "" then objMail.From = mFrom
if mTo <> "" then objMail.AddAddress(mTo)
if mSubject <> "" then objMail.Subject = mSubject
if mBody <> "" then objMail.Body = mBody
if mFile <> "" then

' Check if attachment exists also
set fso = createobject("scripting.filesystemobject")
if fso.FileExists (mFile) then objMail.AddAttachment(mFile)
end if
' if mFile <> "" then objMail.AddAttachment(mFile)
if isHTML = "yes" then objMail.IsHTML = true

objMail.CharSet = mailCharset
objMail.Send

'========================================================= ==================='
'CDONTS.NewMail'
'========================================================= ==================='
'set objMail = server.CreateObject("CDONTS.NewMail")

'if mFrom <> "" then objMail.From = mFrom
'if mTo <> "" then objMail.To = mTo
'if mSubject <> "" then objMail.Subject = mSubject
'if mBody <> "" then objMail.Body = mBody
'if mFile <> "" then objMail.AttachFile(mFile)

'objMail.bodyFormat = 0
'objMail.mailFormat = 0
'objMail.Send

set objMail = nothing

Else

Response.Write(mTo & "<BR>")

End If

End Sub
'=========================================================== ====================='
'SendMail() – Sub END
'=========================================================== ====================='

Dim capturedQryStrg
Dim requestedURL
'As I explained above, the entire query string starts with
'the error number, followed by the requested URL
capturedQryStrg = Request.ServerVariables("Query_String")
'Once we have captured the entire query string, in this
'case "500;http://www.ios.st/error.asp&quot;, let us
'clean it by removing the "500;", leaving us with just the
'requested URL
requestedURL = Replace(capturedQryStrg, "500;", "")
'After we are done with cleaning up, we will send a mail
'to the web site administrator using the CDONTS object.
'We will mark the email as urgent.

  Dim strServerName
  Dim strServerPort
  Dim strScriptName
  Dim strURL
  Dim strScriptLink
  Dim strCRLF 'You could also use vbCRLF
  Dim strSectionDelimiter
  Dim strDelimiter
  Dim strQSEmailValues
  Dim strFormEmailValues
  Dim strSessionEmailValues
  Dim strApplicationEmailValues
  Dim strErrorHandlerConfig
  Dim blnAppendLogSuccessfully
  Dim blnAppendDatabaseSuccessfully
  Dim strErrDesc

  strServerName = Request.ServerVariables("Server_Name")
  strServerPort = Request.ServerVariables("Server_Port")
  strScriptName = Request.ServerVariables("Script_Name")
  strURL = "http://&quot; & strServerName & ":" & strServerPort & "/" & strScriptName
  strScriptLink = "<a href=" & strURL & ">" & strURL & "</a>"
  strCRLF = Chr(13) & Chr(10) 'Create the paragraph break
  strSectionDelimiter = "#########################################" & strCRLF
  strDelimiter = "|" 'delimiter for use in the error details string for
   
    'appending to the log
   
Set objASPError = Server.GetLastError()

  'assign variable names to property values
  strErrorNo = CStr(objASPError.Number)
  strErrorCode = CStr(objASPError.ASPCode)
  strErrorDescription = CStr(objASPError.Description)
  strASPDescription = CStr(objASPError.ASPDescription)
  strCategory = CStr(objASPError.Category)
  strFileName = CStr(objASPError.File)
  strLineNo = CStr(objASPError.Line)
  strCol = CStr(objASPError.Column)
  strErrorSource = CStr(objASPError.Source)
     
strBodyText = "An error of type """ & strCategory & """ has occurred at the web site: " & strServerName _
         & strCRLF _
         & strCRLF _
         & "The URL of the error was : " & strURL _
         & strCRLF _
         & strCRLF _
         & "The error details are as follows:" _
         & strCRLF _
         & "Error Number        :  " & strErrorNo _
         & strCRLF _
         & "Error Code          :  " & strErrorCode _
         & strCRLF _
         & "Error Description   :  " & strErrorDescription _
         & strCRLF _
         & "ASP Description     :  " & strASPDescription _
         & strCRLF _
         & "Category        &nb sp;   :  " & strCategory _
         & strCRLF _
         & "File Name         &n bsp; :  " & strFileName _
         & strCRLF _
         & "Line Number         :  " & strLineNo _
         & strCRLF _
         & "Column        &nbsp ;     :  " & strCol _
         & strCRLF _
         & "Source        &nbsp ;     :  " & strErrorSource _
         & strCRLF _
         & strSectionDelimiter & strCRLF   

    Call SendMail(NETPAY_EMAIL, CC_EMAIL, "URGENT – 500 Error", strBodyText, "", "yes", "utf-8")
   
'We are done with the server-side processing.
'We will now display the content to the user.
%>
<HTML>
<HEAD>
<TITLE>Sorry, but <% = requestedURL %> was not found on PSIOS</TITLE >
</HEAD>
<BODY>
The page you requested, <%= requestedURL %> can not be completed due to an internal error<br>
Please try again. If the error repeats please contact support. <br>
An email alert has been sent to PSIOS team regarding this
error.<BR>

</BODY>
</HTML>

[מאת]

תגובות