Submit Comments

0 )Then ‘ Variables for sending mail message. Dim objCDOMail, strBody, strBotBreaker, strBotBreakerArea, strName, strEMail, strComments, strIPAddress, strUserAgent strBotBreaker = Request.Form(“botBreaker”) strBotBreakerArea = Request.Form(“botBreakerArea”) strName = Request.Form(“Name”) strEMail = Request.Form(“Email”) strComments = Request.Form(“Comments”) IF strBotBreaker “” OR strBotBreakerArea “” THEN strIPAddress = Request.ServerVariables(“HTTP_X_FORWARDED_FOR”) If strIPAddress=”” Then strIPAddress = Request.ServerVariables(“REMOTE_ADDR”) strUserAgent = Request.ServerVariables(“HTTP_USER_AGENT”) ‘ Construct body of mail message. strBody = “Name: ” & strName & vbCrlf & vbCrlf & _ “E-Mail Adddress: ” & strEmail & vbCrLf & vbCrLf & _ “Message: ” & strComments & vbCrlf ‘ Create mail message and send. Set objCDOMail = Server.CreateObject (“CDO.Message”) Set objCDOconfig = Server.CreateObject(“CDO.Configuration”) ‘ set the CDOSYS configuration fields to use the SMTP service pickup directory Set Flds = objCDOconfig.Fields With Flds .Item(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) = “smtpopenrelay.wcsu.edu” .Item(“http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 25 .Item(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2 .Item(“http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout”) = 60 .Update End With ‘ Apply configuration Set objCDOMail.Configuration = objCDOconfig objCDOMail.From = strName & “” objCDOMail.To = “shpuntj@wcsu.edu” objCDOMail.Subject = “Form Bot” objCDOMail.TextBody = strBody objCDOMail.Send Set objCDOMail = Nothing ‘ Create database connection and insert new record. Set objConn = Server.CreateObject(“ADODB.Connection”) objConn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:inetpubwwwrootwestconndbtechnologybotBreaker.mdb;” strQuery = “INSERT INTO Results(Name, EMail, Subject, UserAgent, IPAddress, Message, Stamp) values ” strQuery = strQuery & “(‘” & strName & “‘, ‘” & strEMail & “‘, ‘” & strComments & “‘, ‘” & strUserAgent & “‘, ‘” & strIPAddress & “‘, ‘” & strBotBreaker & “‘, ‘” & strDateTime & “‘);” objConn.Execute strQuery objConn.close Set objConn = Nothing ELSE ‘ Construct body of mail message. strBody = “Name: ” & Request.Form(“Name”) & vbCrlf & vbCrlf & _ “E-Mail Address: ” & Request.Form(“Email”) & vbCrLf & vbCrLf & _ “Other Comments: ” & Request.Form(“Comments”) & vbCrlf ‘ Create mail message and send. Set objCDOMail = Server.CreateObject (“CDO.Message”) Set objCDOconfig = Server.CreateObject(“CDO.Configuration”) ‘ set the CDOSYS configuration fields to use the SMTP service pickup directory Set Flds = objCDOconfig.Fields With Flds .Item(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) = “smtpopenrelay.wcsu.edu” .Item(“http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 25 .Item(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2 .Item(“http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout”) = 60 .Update End With ‘ Apply configuration Set objCDOMail.Configuration = objCDOconfig objCDOMail.From = “web@wcsu.edu” objCDOMail.To = “gatesj@wcsu.edu;atkinsona@wcsu.edu;mcdonoughe@wcsu.edu” ‘objCDOMail.Cc = “” objCDOMail.Subject = “NEASC Feedback” objCDOMail.TextBody = strBody objCDOMail.Send Set objCDOMail = Nothing END IF %>

Thank you for your interest in the NEASC accreditation process at Western Connecticut State University. Your comment will be forwarded to the NEASC Steering Committee for their review.

Thank you for your review of Western’s Self-Study. Please share your comments.

All fields are optional.

Bot Breaker

Name:

Email Address:

Comments: