% Set objNewMail = Server.CreateObject("CDONTS.NewMail") strFrom = Request.Form("txtFromAddress") strTo = "rajdeltapro@yahoo.com" strSubject = Request.Form("txtSubject") strBody = Request.Form("txtBody") If ((strFrom <> "") AND (strTo <> "") AND (strSubject <> "") AND (strBody <> "")) then objNewMail.From = strFrom objNewMail.To = strTo objNewMail.Subject = "mail from www.deltaprosystems.com" strBody = "This message was sent to www.deltaprosystems.com from " &strFrom& ". " &strBody& "." objNewMail.Body = strBody objNewMail.Send Set objNewMail = Nothing bSend = 1 else bSend = 0 end if %>
|
||||
|
||||
|
||||