icon
icon
icon
icon
icon
icon
icon

Instructor Enquiry Form

Instructors are the key people who are responsible for quality delivery of our various programs. Candidates who are passionate about teaching, have good communication skills, love working with children of different age groups and are looking at an enriching teaching experience may apply. Willingness to work during weekends are essential for this role. Prior experience in teaching or working with children would be an added advantage.

<% If Request.Form="" Then %>

Please fill in the required details and our executive will contact you


Experience info

<% Else 'receive the form values Dim sName, sStud_address, sEmail, sMobile, sQualification, sOrganisation, sDesignation, sYears_exp, sArea sName=Request.Form("name") sStud_address=Request.Form("stud_address") sEmail=Request.Form("email") sMobile=Request.Form("mobile") sQualification=Request.Form("qualification") sOrganisation=Request.Form("organisation") sDesignation=Request.Form("designation") sYears_exp=Request.Form("years_exp") sArea=Request.Form("area") ' create the HTML formatted email text Dim sEmailText sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "HTML Email" sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "Name: " & sName & "
" sEmailText = sEmailText & "Address:" & sStud_address & "
" sEmailText = sEmailText & "EMail:" & sEmail & "
" sEmailText = sEmailText & "Mobile No:" & sMobile & "
" sEmailText = sEmailText & "Educational Qualification:" & sQualification & "
" sEmailText = sEmailText & "Organisation:" & sOrganisation & "
" sEmailText = sEmailText & "Designation:" & sDesignation & "
" sEmailText = sEmailText & "Years of Experience:" & sYears_exp & "
" sEmailText = sEmailText & "Area / District Preferences: City, State" & sArea & "
" sEmailText = sEmailText & "Date & Time:" & Now() & "
" sEmailText = sEmailText & "IP :" & Request.ServerVariables("REMOTE_ADDR") sEmailText = sEmailText & "
" sEmailText = sEmailText & "" sEmailText = sEmailText & "" 'create the mail object Set NewMailObj=Server.CreateObject("CDONTS.NewMail") NewMailObj.From=sEmail 'This is the email of the feedback sender NewMailObj.To = "smartgeniusindia@gmail.com" 'change to your address NewMailObj.Subject = "Instructor Enquiry form" NewMailObj.Body = sEmailText 'you need to add these 2 lines for the mail to be sent in HTML format 'remove them and the email will be sent in Text format NewMailObj.BodyFormat = 0 NewMailObj.MailFormat = 0 NewMailObj.Send Set NewMailObj=Nothing Response.write "
Thank you for sending.
" Response.write "We will get back Soon.<< Back to Form
" End If %>