<% '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, cc@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 %> AM850.com
Community Calendar
» June 5, 2008 11:59 AM

» June 22, 2007 12:53 PM

» June 11, 2007 02:28 PM

» June 7, 2007 09:39 AM

» June 6, 2007 01:33 PM

» May 30, 2007 01:50 PM

» May 25, 2007 12:25 PM

» May 22, 2007 01:20 PM

» May 21, 2007 02:42 PM

» May 18, 2007 02:02 PM

» May 18, 2007 01:54 PM

» May 18, 2007 11:46 AM

» May 15, 2007 01:23 PM

» May 14, 2007 02:55 PM

» May 9, 2007 04:28 PM

» May 7, 2007 01:51 PM

» May 4, 2007 02:51 PM

» May 1, 2007 09:51 AM

» April 27, 2007 10:34 AM

» April 23, 2007 11:06 AM

» April 19, 2007 02:17 PM

» April 17, 2007 12:38 PM

» April 13, 2007 10:04 AM

» April 10, 2007 03:16 PM

Want to be on the Community Calendar?

If you or your organization would like to put a listing on our Community Calendar, you can email us...
your email address:
message subject:
message body:

Mailing Address

Community Calendar
c/o WRUF Radio
P.O. Box 14444
Gainesville, FL 32604