Re: Cost of Heavy Shot
This is what I got at that link:
[ QUOTE ]
<%@ Language=VBScript %>
<% Option Explicit %>
<%
Const EVENTLOG_SUCCESS = 0
Const EVENTLOG_ERROR_TYPE = 1
Const EVENTLOG_WARNING_TYPE = 2
Const EVENTLOG_INFORMATION_TYPE = 4
' Create the AspEventlog object
Dim xObj, bResult, objASPError, strErrorDetail
Set objASPError = Server.GetLastError
Set xObj = Server.CreateObject("SOFTWING.ASPEventlog")
strErrorDetail = "ASPCode - " & objASPError.ASPCode & "<BR>" & vbCRLF & _
"Number - " & objASPError.Number & "<BR>" & vbCRLF & _
"Source - " & objASPError.Source & "<BR>" & vbCRLF & _
"File Name - " & objASPError.File & "<BR>" & vbCRLF & _
"LineNumber - " & objASPError.Line & "<BR>" & vbCRLF & _
"Description - " & objASPError.Description & "<BR>" & vbCRLF & _
"ASPDescription - " & objASPError.ASPDescription
' open the log and report the status
bResult = xObj.Open()
'Response.Write "Open called with return value of: " & bResult & "<BR>" & vbCRLF
' write a information type event and give feedback
bResult = xObj.ReportEvent(EVENTLOG_ERROR_TYPE, strErrorDetail)
'Response.Write "Event was reported successfully: " & bResult & "<BR>" & vbCRLF
' close the log (would be done automatically on object destruction)
bResult = xObj.Close()
'Response.Write "Log closed successfully: " & bResult & "<BR>" & vbCRLF
' delete the object and free up memory
Set xObj = Nothing
%>
<P align="center"><FONT face="Verdana" size="3"><B>A sytem error has occured. Please try again.</B></FONT></P>
<P>
<FONT face="Verdana" size="2">
The page you are looking for might be temporarily unavailable.<BR>
<BR>Please try the following:
</FONT>
</P>
<UL>
<LI><FONT face="Verdana" size="2">Visit the <A href="http://www.remington.com">www.remington.com</A> home page, then look for links to the information you want.</FONT>
<LI><FONT face="Verdana" size="2">Click the <A href="javascript:history.back(1);">Back</A> button to try another link.</FONT></LI>
</UL>
[/ QUOTE ]