% '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, srussell@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
%>
The University of Florida gymnastics team begins its quest for a program first ever national title as Florida hosts the NCAA Gymnastics Championship starting today.
Florida is the second seed for the event and will begin action in the evening rotation today. UCLA is the number one seed for the competition, a program that has won several national titles.
more...
The wait will be over for some and it will continue for others as the NFL Draft gets underway tonight in New York.
The St.Louis Rams are on the clock with the first pick and most experts believe they will select Oklahoma quarterback Sam Bradford.
more...
Pittsburgh Steelers quarterback Ben Roethlisberger has been suspended for six games by NFL Commissioner Roger Goodell for violating the NFL's personal conduct policy.
Even though Roethlisberger has not been convicted of a crime, Goodell, in a letter sent to the quarterback, said that league players are held to a higher standard. In that letter, Goodell told Roethlisberger in part, referring to an alleged incident in Milledgeville, Georgia where a female accused Roethlisberger of forcing himself on her, that "there is nothing about your conduct in Milledgeville that can be remotely described as admirable, responsible, or consistent with either the values of the league or the expectations of our fans." more...