- April 1, 2010 04:18 PM
- » National Census Day Marks Day for Nation to Turn in Census
% 'Option Explicit %> <% 'Declare variables Dim sMsg Dim sTo Dim sFrom Dim sSubject Dim sHTMLBody 'Get data from previous page sTo = Request("sTo") sFrom = Request("sFrom") sSubject = Request("sSubject") sHTMLBody = Request("sHTMLBody") 'Only run this if it's not the first time If Request.Form("Submit") <> "" Then Dim objMail 'Create the mail object Set objMail = Server.CreateObject("CDO.Message") 'Set key properties objMail.From = sFrom objMail.To = "webmaster@am850.com, tkrynski@wruf.com, fsmith@wruf.com" objMail.Subject= sSubject objMail.HTMLBody = sHTMLBody 'Send the email objMail.Send 'Set sMsg which will be used later sMsg = "Your message has been sent." & sTo 'Clean-up Set objMail = Nothing End If %>