<%
'==========================================
'This script send email and it also act as
'form. If you use custom component to send
'mail then just modify the SendMail function
'==========================================
Dim Msg
if Request.QueryString("send")="true" then
Msg=SendMail(Request.Form ("category"),Request.Form ("name"),Request.Form ("subject"),Request.Form ("message"))
Msg=Msg & " Mails Inviate con successo"
end if
%>
CM Mailing List (Mail)