<%
if instr(mailaddress,"@")=0 then
error2("E-mail地址填寫錯誤！")
end if
on error resume next
if selectmail="JMail" then

Set JMail=Server.CreateObject("JMail.Message")
If -2147221005 = Err Then
error2("本服務器不支持 JMail.Message 組件！請到后臺關閉發送郵件功能！")
End If

JMail.AddRecipient mailaddress
JMail.Subject = mailtopic
JMail.Body = body
JMail.From = smtpmail
JMail.MailServerUserName = MailServerUserName
JMail.MailServerPassword = MailServerPassword
JMail.Send smtp
Set JMail=nothing

elseif selectmail="CDONTS" then
Set MailObject = Server.CreateObject("CDONTS.NewMail")
If -2147221005 = Err Then
error2("本服務器不支持 CDONTS.NewMail 組件！請到后臺關閉發送郵件功能！")
End If
MailObject.Send smtpmail,mailaddress,mailtopic,body
Set MailObject=nothing
end if
%>