if SystemEmail<>empty and email<>empty then
JMail(email)
SendFlag=true
end if
%>
<!--#include file="mail_component.asp"-->
------------------------------------------------------------------------------------------
·mail_component.asp:
<%
sub JMail(email)
dim JMail,SendMail
Set JMail=Server.CreateObject("JMail.SMTPMail")