Claflin University

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then Dim htmlMsg htmlMsg = "" htmlMsg = htmlMsg & writeTR("Last name", Request("lastname")) htmlMsg = htmlMsg & writeTR("First name", Request("firstname")) htmlMsg = htmlMsg & writeTR("Street Address", Request("streetaddress")) htmlMsg = htmlMsg & writeTR("Email", Request("email")) htmlMsg = htmlMsg & writeTR("City", Request("city")) htmlMsg = htmlMsg & writeTR("State", Request("state")) htmlMsg = htmlMsg & writeTR("Zip", Request("zip")) htmlMsg = htmlMsg & writeTR("Phone", Request("phone")) htmlMsg = htmlMsg & writeTR("School", Request("school")) htmlMsg = htmlMsg & writeTR("Graduation", Request("graduation")) htmlMsg = htmlMsg & writeTR("Date", Request("date")) htmlMsg = htmlMsg & writeTR("Time", Request("time")) htmlMsg = htmlMsg & "

TIME: " & Now call sendMail("admission@claflin.edu", "admission@claflin.edu", "New Data", htmlMsg) End If sub sendMail(email_from, email_to, email_subject, email_body) sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpserver") = "10.10.20.3" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = email_from cdoMessage.To = email_to cdoMessage.Subject = email_subject cdoMessage.HTMLBody = email_body cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing end sub function writeTR(data, value) writeTR = "" & data & " " & value & "" end function %> Claflin University

Travel & Recruitment Schedule

PLEASE WATCH FOR THE SCHEDULE FOR REST OF THE YEAR