% 'Option Explicit %>
'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
'Create the mail object
Set objMail = Server.CreateObject("CDO.Message")
'Set key properties
objMail.From = sFrom
objMail.To = "email@example.com, firstname.lastname@example.org, email@example.com"
objMail.HTMLBody = sHTMLBody
'Send the email
'Set sMsg which will be used later
sMsg = "Your message has been sent." & sTo
Set objMail = Nothing
It looks like April first is no longer just for pranks...at least for this year. According to the government, today is National Census Day, marking the target date for residents across the nation to turn in their 2010 census forms. more...
When most Americans think of the Winter Olympics, bobsledding is not the first sport to come to mind, until now. Steve Mesler and his teammates, known as Team Holcomb, brought home the gold medal this year at the 2010 Vancouver Olympics. more...
State employees might have to start paying into the Florida Retirement System. The Florida Senate approved a bill yesterday that would require government employees to pay one-quarter of one percent of their salaries into the FRS. more...