icon
icon
icon
icon
icon
icon
icon

Skype Based Learning

speechSmart-Genius opens new window of oppurtunity for your kid through online training via skype.Our online training closely replicates what takes place in a traditional classroom. It allows student-teacher-parent interaction during each session at the comfort of your home.Each session is one hour.Books and abacus will be couriered to the student before each grade and certificate will be couriered after completion of each grade.


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

 Please fill in the required details and our executives will contact you soon.


<% Else 'receive the form values Dim sName, sDob, sCs, sFather_name, sOff_address, sOff_contact, sEmail sName=Request.Form("name") sDob=Request.Form("dob") sCs=Request.Form("cs") sFather_name=Request.Form("father_name") sOff_address=Request.Form("off_address") sOff_contact=Request.Form("off_contact") sEmail=Request.Form("email") ' 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 of Student: " & sName & "
" sEmailText = sEmailText & "Date of Birth:" & sDob & "
" sEmailText = sEmailText & "Class /School:" & sCs & "
" sEmailText = sEmailText & "Father's Name" & sFather_name & "
" sEmailText = sEmailText & "Address" & sOff_address & "
" sEmailText = sEmailText & "Contact No" & sOff_contact & "
" sEmailText = sEmailText & "Email" & sEmail & "
" 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 = "mamtha82@gmail.com" 'change to your address NewMailObj.Subject = "Skype based learning 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 %>