|
|
|
|
|
| | |
| |
Active Server Pages asp search engine active server page asp application components tutorial CJWSoft ASPProtect ASPBanner ASPClassifieds
(Advanced)
(Components)
(Database)
(General)
(Vbscript)
|
|
|
|
Subject: |
Re: error trapping |
|
From: |
Elija |
|
Date: |
8/30/2001 11:07:40 AM |
|
IP: |
194.6.9.129 |
1. Try something like...
...
some code
...
on error resume next
objmail.send
if err.number <> 0 then
...
your error code
...
end if
on error goto 0
2. Not completely sure what you are trying to achieve but...
You could put all the neccessary send mail code into a sub and then pass in the details...
' Send an email to a specified recipient
sub sendemailto(strto, strcc, strfrom, strsubject, strbody)
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = strfrom
objMail.Subject = strsubject
objMail.To = strto
objMail.cc = strcc
objMail.Body = strbody
on error resume next
objMail.Send
if err.number <> 0 then
call logMailError(err.number, err.description)
end if
on error goto 0
' Tidy up by destroying all objects created in this sub.
set objMail = nothing
end sub
Hope this helps
Elija |
Previous Message
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
