<%@ TRANSACTION=Required %> ' Nödvändig kodrad


<%
'Denna kod skickar ett mail om att ett fel har uppstått...

sub OnTransactionAbort()
response.clear
response.write "An error was encountered processing your information."&"
"
response.write "Please click the HOME button in your browser and try again."&"
"
response.write "A notice of this error has been sent to the web administrators."&"
"
response.write "Thank you for your patience."

SET objMail=Server.CreateObject("CDONTS.Newmail")
objMail.From = "error@yourplace.com"
objMail.To = "din@mailadress.com"
objMail.Subject = "!!Error At Web Site!!"
objMail.Body = "On " & now() &_
", the following error was " &_
"generated in page " &_
Request.ServerVariables( "SCRIPT_NAME" ) &_
": " & vbnewline & vbnewline &_
err.Description
objMail.Importance = 2
objMail.Send
Set objMail = Nothing
end sub %>