<%

Body = "An email address was submitted through the Osher Mobile Ad:" & VbCrLf & VbCrLf &_
"Email Address: " & request.form("email")  & VbCrLf & VbCrLf &_
"Date and Time: " & now()

'Dimension variables
Dim objCDOSYSCon
Dim strSmartHost
'Create the e-mail server object
StrSmartHost = "ecc.elcamino.edu"
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'Set and update fields properties
With objCDOSYSCon
'Outgoing SMTP server
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = StrSmartHost
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'CDO Port
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Fields.Update
End With
'Update the CDOSYS Configuration
Set objCDOSYSMail.Configuration = objCDOSYSCon
'Set and update email properties
With objCDOSYSMail
'0=Low, 1=Normal, 2=High
.Fields("urn:schemas:httpmail:importance").Value = 1
'Who the e-mail is from
.From = "webdeveloper@elcamino.edu"
.To = "obrenes@elcamino.edu"
.Subject = "Osher Ad Mobile Response"
'Set the e-mail body format (HTMLBody=HTML TextBody=Plain)
.TextBody = Body
.Fields.Update
'Send the e-mail
.Send
End With

Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

Response.Redirect "thanks.html"

%>