dim ll_Action ll_Action=CInt(Request.QueryString("Action")) if ll_action=1 then Set myMail=Server.CreateObject("CDONTS.Newmail") myMail.To=Rtrim(Request.Form("txt_to")) if Rtrim(Request.Form("txt_from"))<>"" then myMail.From=Rtrim(Request.Form("txt_from")) end if myMail.Subject=Rtrim(Request.Form("txt_title")) if Rtrim(Request.Form("txt_content"))<>"" then myMail.Body=Rtrim(Request.Form("txt_content")) end if myMail.Send Response.Redirect("default.asp") end if
ll_Action=CInt(Request.QueryString("Action"))
if ll_action=1 then
Set myMail=Server.CreateObject("CDONTS.Newmail")
myMail.To=Rtrim(Request.Form("txt_to"))
if Rtrim(Request.Form("txt_from"))<>"" then
myMail.From=Rtrim(Request.Form("txt_from"))
end if
myMail.Subject=Rtrim(Request.Form("txt_title"))
if Rtrim(Request.Form("txt_content"))<>"" then
myMail.Body=Rtrim(Request.Form("txt_content"))
end if
myMail.Send
Response.Redirect("default.asp")
end if