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

Campus Tour Schedule

Please let us know when you're planning to visit Claflin. The Admission Office will confirm your appointment via email or US mail. Download and complete the Campus Request form to let our admission staff know that you are on your way!