<% Dim formsubmit formsubmit = Request ("formsubmit") if (formsubmit = "1") Then dim seminar seminar = Request("seminar") Dim title title = Request ("title") Dim first_name first_name = Request ("first_name") ' Dim middle_name ' middle_name = Request ("middle_name") Dim christian_name christian_name = Request ("christian_name") Dim homeno homeno = Request ("homeno") Dim mobileno mobileno = Request ("mobileno") Dim officeno officeno = Request ("officeno") Dim email email = Request ("email") Dim dob dob = Request ("dob") Dim address address = Request ("address") Dim country country = Request ("country") Dim postal postal = Request ("postal") Dim fax fax = Request ("fax") Dim occupations occupations = Request ("occupations") Dim accom accom = Request ("accom") Dim district district = Request ("district") Dim carecell carecell = Request ("carecell") Dim contact_name contact_name = Request ("contact_name") Dim contact_no contact_no = Request ("contact_no") Dim school school = Request ("school") Dim status status = Request ("status") Dim church church = Request ("church") Dim name_ps name_ps = Request ("name_ps") Dim membership_no membership_no = Request ("membership_no") Dim role role = Request ("role") ' Dim faculty ' faculty = Request ("faculty") ' Dim levels ' levels = Request ("levels") if ((first_name <> "") and (christian_name <> "") and (email <> "") and IsValidEmail(email) and ((homeno <> "") or (officeno <> "") or (mobileno <> ""))) then 'validation pass, can send email 'send to admin Dim bodytext Const ForReading = 1 Dim fso, theFile, retstring Set fso = CreateObject("Scripting.FileSystemObject") 'Set theFile = fso.OpenTextFile(rootpath & "lifeskill_data.htm", ForReading, False) 'for activants.com only Set theFile = fso.OpenTextFile(Server.MapPath("alpha_data.htm"), ForReading, False) Do While theFile.AtEndOfStream <> True retstring = theFile.ReadLine bodytext = bodytext & retstring Loop theFile.Close dim seminarLines seminarLines = seminar seminarLines = Replace(seminarLines, ",", "
") 'story = Replace(story,vbcrlf,"
") bodytext = Replace(bodytext,"|Seminar|",seminarLines) ' bodytext = Replace(bodytext,"|NRIC|",nric) bodytext = Replace(bodytext,"|Title|",title) bodytext = Replace(bodytext,"|FirstName|",first_name) ' bodytext = Replace(bodytext,"|MiddleName|",middle_name) bodytext = Replace(bodytext,"|ChristianName|",christian_name) bodytext = Replace(bodytext,"|HomeNo|",homeno) bodytext = Replace(bodytext,"|MobileNo|",mobileno) bodytext = Replace(bodytext,"|OfficeNo|",officeno) bodytext = Replace(bodytext,"|Email|",email) bodytext = Replace(bodytext,"|DOB|",dob) bodytext = Replace(bodytext,"|Address|",address) bodytext = Replace(bodytext,"|Postal|",postal) bodytext = Replace(bodytext,"|Country|",country) bodytext = Replace(bodytext,"|Fax|",fax) bodytext = Replace(bodytext,"|Occupations|",occupations) bodytext = Replace(bodytext,"|Church|",church) bodytext = Replace(bodytext,"|School|",school) bodytext = Replace(bodytext,"|Name_ps|",name_ps) bodytext = Replace(bodytext,"|Accom|",accom) bodytext = Replace(bodytext,"|membership_no|",membership_no) bodytext = Replace(bodytext,"|District|",district) bodytext = Replace(bodytext,"|Carecell|",carecell) bodytext = Replace(bodytext,"|Role|",role) bodytext = Replace(bodytext,"|ContactName|",contact_name) bodytext = Replace(bodytext,"|ContactNo|",contact_no) 'bodytext = Replace(bodytext,"|School|",school) 'bodytext = Replace(bodytext,"|Status|",status) ' bodytext = Replace(bodytext,"|Faculty|",faculty) ' bodytext = Replace(bodytext,"|Levels|",levels) 'TCC Dim Mailer Set Mailer = Server.CreateObject("vbSendMail.clsSendMail") Mailer.SMTPHost = emailhost Mailer.FromDisplayName = christian_name & " " & first_name Mailer.From = email Mailer.Recipient = receiver Mailer.RecipientDisplayName = receiver Mailer.Subject = emailer_subject_const Mailer.AsHTML = True Mailer.Message = bodytext Mailer.Send Set Mailer = Nothing 'Activants01 'Dim Mailer 'Set Mailer = Server.CreateObject("CDONTS.NewMail") 'Mailer.From = email 'Mailer.To = receiver 'Mailer.Subject = emailer_subject_const 'Mailer.BodyFormat = 0 'Mailer.MailFormat = 0 'Mailer.Body = bodytext 'Mailer.Send 'Set Mailer = Nothing 'response.write("email sent") 'send to user Dim bodytext1 Const ForReading1 = 1 Dim fso1, theFile1, retstring1 Set fso1 = CreateObject("Scripting.FileSystemObject") 'Set theFile1 = fso.OpenTextFile(rootpath & "lifeskill_emailer.htm", ForReading1, False) 'for activants.com only Set theFile1 = fso1.OpenTextFile(Server.MapPath("alpha_emailer.htm"), ForReading1, False) Do While theFile1.AtEndOfStream <> True retstring1 = theFile1.ReadLine bodytext1 = bodytext1 & retstring1 Loop theFile1.Close 'TCC Dim Mailer1 Set Mailer1 = Server.CreateObject("vbSendMail.clsSendMail") Mailer1.SMTPHost = emailhost Mailer1.FromDisplayName = receiver Mailer1.From = receiver Mailer1.Recipient = email Mailer1.RecipientDisplayName = email Mailer1.Subject = emailer_subject_const_user Mailer1.AsHTML = True Mailer1.Message = bodytext1 Mailer1.Send Set Mailer1 = Nothing 'Activants01 'Dim Mailer1 'Set Mailer1 = Server.CreateObject("CDONTS.NewMail") 'Mailer1.From = receiver 'Mailer1.To = email 'Mailer1.Subject = emailer_subject_const_user 'Mailer1.BodyFormat = 0 'Mailer1.MailFormat = 0 'Mailer1.Body = bodytext1 'Mailer1.Send 'Set Mailer1 = Nothing response.Redirect("alpha_thanks.htm") end if End if %>

Upcoming Tracks:

34th Batch
08 Mar 10 to 04 Jun 10

35th Batch
23 Aug 10 to 19 Nov 10

Course Fees

S$800

  • This fee includes a 1-2 week overseas Missions
    Impact Trip.
  • International participants: Visa fees, daily expenses and hostel accommodation for the three months are not included in this fee.


Pre-requisites
  • Your pastor’s recommendation letter
  • Interview with the AlphaTrack Team
Pre-requisites for members of Trinity Christian
Centre
  • Your district pastor’s recommendation
  • Interview with the AlphaTrack team



How to Apply