<% If Err.Number <> 0 then 'Send the email Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.To = "gordy@starbug.com.au" objCDO.CC = "gordy@starbug.com.au" objCDO.From = "Travel worlds email list" objCDO.Subject = "AN ERROR OCCURRED on the email list Doh!" Body = "----------------------------------------------" & vbcrlf Body = Body & "An error was encounted on Goprints website" & vbcrlf Body = Body & "----------------------------------------------" & vbcrlf Body = Body & " Error Number --> " & Err.Number & vbcrlf Body = Body & " Error Source --> " & Err.Source & vbcrlf Body = Body & " Error Desc --> " & Err.Description & vbcrlf Body = Body & "----------------------------------------------" & vbcrlf Body = Body & " Error location found here --> " & Request.ServerVariables("SCRIPT_NAME") & vbcrlf Body = Body & "----------------------------------------------" & vbcrlf Body = Body & " From ip address --> " & Request.ServerVariables("REMOTE_HOST") & vbcrlf Body = Body & "----------------------------------------------" & vbcrlf objCDO.Body = Body objCDO.Send Set objCDO = Nothing Response.Redirect "../default.asp" Err.Clear End If %>