אתר נחסם ולא נפתח,(תקלה נפתרה)

[אידה]

אתר מסויים וחשוב לי נחסם,

שאני מבקשת להכנס אליו,

 מקבלת כתוביות לא ברורות,

אפשר לקבל עזרה?

 ממחשב אחר כן ניתן להיכנס אליו,

 מהי הבעיה?

[itsho]

איזה אתר ?

ואיך את יודעת שהוא נחסם ?

אם יש הודעה – כתבי אותה כאן בבקשה, או שתעלי צילום מסך.

[אידה]

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>

[itsho]

זה לא הודעת שגיאה – זה ממש הקוד שעומד מאחורי העמוד.

אני מניח שמדובר באתר שהיה מאוחסן על http://www.ios.st ופשוט נמחק.

itsho2010-1-26 23:7:5

[אידה]

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

[itsho]

והלינק הזה לא עובד ?

[אידה]

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

[itsho]

נסי לגלוש לאתר בעזרת דפדפן אחר (כמו Chrome, או FireFox)

וכתבי האם הבעיה עדיין קיימת

 

[אידה]

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

[אידה]

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

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

[אלי]

עייני כאן

[אידה]

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

[אלי]

בבקשה

[מאת]

תגובות