<%
Dim strTo, strSubject, strBody 'Strings for recipient, subject, boby
Dim objCDOMail 'The CDO object

'First we'll read in the values entered
strTo = "rmdowns@vcu.edu"
strSubject = "Student Org Web Request"
strBody = "There is a new Student Org that needs your " &_
			"authorization." & vbCR &_
			"http://www.pubinfo.vcu.edu/wss/sorg/approve.asp?ID=" & fId

' Some spacing:
strBody = strBody & vbCrLf & vbCrLf

	' Create an instance of the NewMail object.
	Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
	
	' Set the properties of the object
	objCDOMail.From    = "EventsCenter@vcu.edu"
	objCDOMail.To      = strTo
	objCDOMail.Subject = strSubject
	objCDOMail.Body    = strBody

	' Some of the more useful ones I've included samples of here:
	'objCDOMail.Cc         = "user@domain.com;user@domain.com"
	'objCDOMail.Bcc        = "user@domain.com;user@domain.com"
	'objCDOMail.Importance = 1 '(0=Low, 1=Normal, 2=High)
	'objCDOMail.AttachFile "c:\path\filename.txt", "filename.txt"
	
	' Send the message!
	objCDOMail.Send
	
	' Set the object to nothing because it immediately becomes
	' invalid after calling the Send method.
	Set objCDOMail = Nothing
%>