<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
If Request.Form("send") <> "" Then
'Create the e-mail server object
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'Out going SMTP server
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\inetpub\mailroot\pickup"
objCDOSYSCon.Fields.Update
'Update the CDOSYS Configuration
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "rober546@msu.edu"
objCDOSYSMail.To = "rober546@msu.edu"
objCDOSYSMail.Subject = "Comment from Dr. J. Nunez Web Site"
body = "The Following Message was Sent to the Dr. J. Nunez Lab Site" & vbCrLf &_
"" & vbCrLf &_
"FROM: " & vbCrLf &_
"----------------------------------------------------------" & vbCrLf &_
"Email Address: " & Request.Form("email") & vbCrLf &_
"First & Last Name: " & Request.Form("name") & vbCrLf &_
"----------------------------------------------------------" & vbCrLf & vbCrLf &_
"The information above was submitted via " & Request.Form("APP_URL") & " on " & NOW() & " by " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf & vbCrLf
objCDOSYSMail.HTMLBody = body
objCDOSYSMail.Send
'Close the server mail object
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
Response.Redirect("Contact.asp?mailsent=true")
End If
%>
Dr. Nunez Lab - Contact Us - MSU Neuroscience Program
