% Public Function PaddString(ByVal strText, ByVal lngTotalLen) Dim lngTextLen If lngTotalLen = 0 Then PaddString = "" Exit Function End If lngTextLen = Len(strText) If lngTextLen >= lngTotalLen Then PaddString = Left(strText, lngTotalLen) Else PaddString = strText + Space(lngTotalLen - lngTextLen) End If End Function dd=day(now()) mm=month(now()) yy=year(now()) requestdate=mm & "/" & dd & "/" & yy %>
![]() |
|
|
| Home | Search | New Students | College Life | Academics | Student Resources | My GBC | ||
|
| ||
|
Bolded fields must be completed <% else fname=trim(request.form("First_Name")) mi=trim(request.form("Middle_Initial")) street=trim(request.form("Street")) city=trim(request.form("City")) state=trim(request.form("State")) zipcode=trim(request.form("Zipcode")) country=trim(request.form("Country")) homephone=trim(request.form("Home_Phone")) workphone=trim(request.form("Work_Phone")) workphoneext=trim(request.form("Work_Phone_Ext")) email=trim(request.form("Email")) hischool=trim(request.form("High_School")) gradyear=trim(request.form("Graduation_Year")) trans=trim(request.form("Transfer_Student")) transfrom=trim(request.form("Transfer_From")) college1=trim(request.form("College_1")) college2=trim(request.form("College_2")) college3=trim(request.form("College_3")) college4=trim(request.form("College_4")) degree1=trim(request.form("Degree_1")) degree2=trim(request.form("Degree_2")) degree3=trim(request.form("Degree_3")) degree4=trim(request.form("Degree_4")) semester=trim(request.form("Entry_Semester")) enyy=trim(request.form("Entry_Year")) fullpart=trim(request.form("Full_Or_Part")) major=trim(request.form("Interested_Major")) degree=trim(request.form("Degree_Level")) intl=trim(request.form("International_Student")) apprequest=trim(request.form("Request_For_Application")) emailrequest=trim(request.form("Request_Email_Updates")) bod="Submitted on: " & requestdate & vbCRLF & vbCRLF bod=bod & PaddString("First Name:",24) & fname & vbCRLF bod=bod & PaddString("Middle Initial:",24) & mi & vbCRLF bod=bod & PaddString("Last Name:",24) & lname & vbCRLF & vbCRLF bod=bod & PaddString("Street:",24) & street & vbCRLF bod=bod & PaddString("City:",24) & city & vbCRLF bod=bod & PaddString("State:",24) & state & vbCRLF bod=bod & PaddString("Zipcode:",24) & zipcode & vbCRLF bod=bod & PaddString("Country:",24) & country & vbCRLF bod=bod & PaddString("Home Phone:",24) & homephone & vbCRLF bod=bod & PaddString("Work Name:",24) & workphone & vbCRLF bod=bod & PaddString("Work Phone:",24) & workphoneext & vbCRLF bod=bod & PaddString("E-mail:",24) & email & vbCRLF & vbCRLF bod=bod & PaddString("High School:",24) & hischool & vbCRLF bod=bod & PaddString("Graduation Year:",24) & gradyear & vbCRLF bod=bod & PaddString("Transfer:",24) & trans & vbCRLF bod=bod & PaddString("Transfer From:",24) & transfrom & vbCRLF bod=bod & PaddString("College 1:",24) & college1 & vbCRLF bod=bod & PaddString("College 2:",24) & college2 & vbCRLF bod=bod & PaddString("College 3:",24) & college3 & vbCRLF bod=bod & PaddString("College 4:",24) & college4 & vbCRLF bod=bod & PaddString("Degree 1:",24) & degree1 & vbCRLF bod=bod & PaddString("Degree 2:",24)& degree2 & vbCRLF bod=bod & PaddString("Degree 3:",24) & degree3 & vbCRLF bod=bod & PaddString("Degree 4:",24) & degree4 & vbCRLF & vbCRLF bod=bod & PaddString("Entry Semester:",24) & semester & vbCRLF bod=bod & PaddString("Entry Year:",24) & enyy & vbCRLF bod=bod & PaddString("Full/Part-time:",24) & fullpart & vbCRLF bod=bod & PaddString("Interested Major:",24) & major & vbCRLF bod=bod & PaddString("Degree Level:",24) & degree & vbCRLF bod=bod & PaddString("International Student:",24) & intl & vbCRLF & vbCRLF bod=bod & PaddString("Application Request:",24) & apprequest & vbCRLF bod=bod & PaddString("E-mail Updates Request:",24) & emailrequest & vbCRLF mailto="admissions@gbc.edu" if intl="Yes" then mailto="international@gbc.edu" if degree="MBA" then mailto="graduate@gbc.edu" Set objMessage = Server.CreateObject("CDO.Message") Set objConfiguration = Server.CreateObject("CDO.Configuration") Set colFields = objConfiguration.Fields colFields(cdoSendUsingMethod) = cdoSendUsingPort colFields(cdoSMTPServer) = "172.16.0.4" colFields(cdoSMTPConnectionTimeout) = 10 colFields(cdoSMTPAuthenticate) = cdoAnonymous colFields.Update With objMessage Set .Configuration = objConfiguration .To = mailto .From = "webmaster@gbc.edu" .Replyto = email .Subject = "Online Admissions Information Request Form Submission" .TextBody = bod .Send End With Set objMessage = Nothing %>Thank you for inquiring about Goldey-Beacom College. Your request has been submitted and the Office of Admissions will contact you as soon as possible.
|
||||||
|
| ||
| Copyright © 2001-2008 Goldey-Beacom College | 4701 Limestone Road, Wilmington, DE 19808, USA | Contact us | ||