<%
'Declaring Variables
Dim smtpserver,youremail,yourpassword,ContactUs_Email,myemail,cap,fname,pname,stud,batch,level,days,centre,city,dist,states,pin,course,perfom,studA,studB,studC,studD,studE,studF,studG,studH,courseA,courseB,courseB2,courseC,centreA,centreB,centreC,franA,franB,franC,franD,franE,genA,genB,add,ph,email
Dim ContactUs_Subject,ContactUs_Body,Action
' Edit these 3 values accordingly
smtpserver = "mail.alohaindia.com"
youremail = "itsupport@alohaindia.com"
yourpassword = "Aloha@123"
' Grabbing variables from the form post
myemail=Request("Toemail")
ContactUs_Email = Request("Fromemail")
ContactUs_Subject = Request("Subject")
Action = Request("Action")
fname = Request("fname")
pname = Request("pname")
stud = Request("stud")
batch = Request("batch")
level = Request("level")
days = Request("day")
centre = Request("centre")
city = Request("city")
dist = Request("dist")
states = Request("state")
pin = Request("pin")
course = Request("course")
perfom = Request("perfom")
studA = Request("studA")
studB = Request("studB")
studC = Request("studC")
studD = Request("studD")
studE = Request("studE")
studF = Request("studF")
studG = Request("studG")
studH = Request("studH")
courseA = Request("courseA")
courseB = Request("courseB")
courseB2 = Request("courseB2")
courseC = Request("courseC")
centreA = Request("centreA")
centreB = Request("centreB")
centreC = Request("centreC")
franA = Request("franA")
franB = Request("franB")
franC = Request("franC")
franD = Request("franD")
franE = Request("franE")
genA = Request("genA")
genB = Request("genB")
add=Request("add")
ph=Request("ph")
email=Request("email")
If Action = "SendEmail" Then
Dim strBody
if Request("country")="India" then
cap=Request("capital")
else
cap=Request("capital1")
end if
strBody = ""
strBody=strBody&" | "
strBody=strBody&"| Name of the Student | "&fname&" | "
strBody=strBody&"Name of the Parent / Guardian | "
strBody=strBody&""&pname&" | "
strBody=strBody&"| Student Code | "
strBody=strBody&""&stud&" | "
strBody=strBody&"Batch No | "
strBody=strBody&""&batch&" | "
strBody=strBody&" | Level Completed | "
strBody=strBody&""&level&" | "
strBody=strBody&"Day | "
strBody=strBody&""&days&" | "
strBody=strBody&" | Centre Name | "
strBody=strBody&""¢re&" | "
strBody=strBody&"Residence Address | "
strBody=strBody&""&add&" | "
strBody=strBody&" | City | "
strBody=strBody&""&city&" | "
strBody=strBody&"Dist | "
strBody=strBody&""&dist&" | "
strBody=strBody&"| State | "
strBody=strBody&""&states&" | "
strBody=strBody&"Pin Code | "&pin&" | "
strBody=strBody&" Course Instructor's Name | "
strBody=strBody&""&course&" | "
strBody=strBody&"Email | "
strBody=strBody&""&email&" | "
strBody=strBody&" Performance of Student / Score | "
strBody=strBody&""&perfom&" | "
strBody=strBody&"Phone | "
strBody=strBody&""&ph&" | "
strBody=strBody&" "
strBody=strBody&" | FEED BACK ON STUDENT | "
strBody=strBody&" "
strBody=strBody&" | a) How would you rate the progress of your child ? | "
strBody=strBody&"| "&studA&" | "
strBody=strBody&" | "
strBody=strBody&" | "
strBody=strBody&" | | "
strBody=strBody&" "
strBody=strBody&" | b) Do you feel that ALOHA is catering to the overall development of your child? | "
strBody=strBody&"| "&studB&" | "
strBody=strBody&" | "
strBody=strBody&" | "
strBody=strBody&" | | "
strBody=strBody&""
strBody=strBody&" | c) Has your child's mental ability to calculate faster and accurately improved? | "
strBody=strBody&"| "&studC&" | "
strBody=strBody&" | "
strBody=strBody&" | "
strBody=strBody&" | | "
strBody=strBody&" "
strBody=strBody&" d)Has there been a boost in your child's confidence in overcoming obstacles in his/her mental
development ? | "
strBody=strBody&"| "&studD&" | "
strBody=strBody&" | "
strBody=strBody&" | "
strBody=strBody&" | | "
strBody=strBody&" "
strBody=strBody&"| e) Has your child now overcame his/her phobia of Mathematics? | "
strBody=strBody&"| "&studE&" | "
strBody=strBody&" | "
strBody=strBody&" | "
strBody=strBody&" | | "
strBody=strBody&""
strBody=strBody&"| f) Do you think ALOHA training would give an advantage in academic development of a child? | "
strBody=strBody&"| "&studF&" | "
strBody=strBody&" | "
strBody=strBody&" | "
strBody=strBody&" | | "
strBody=strBody&""
strBody=strBody&"| g) Does your child want to go to ALOHA classes? | "
strBody=strBody&"| "&studG&" | "
strBody=strBody&" | "
strBody=strBody&" | "
strBody=strBody&" | | "
strBody=strBody&" "
strBody=strBody&" | h) Do you feel that the course/classes are interfering with your child's regular school work? | "
strBody=strBody&"| "&studH&" | "
strBody=strBody&" | "
strBody=strBody&" | "
strBody=strBody&" | | | "
strBody=strBody&" | FEED BACK ON COURSE INSTRUCTOR | "
strBody=strBody&" "
strBody=strBody&" | a) How would you rate the teaching/trianing of course instructor? | "
strBody=strBody&" | "&courseA&" | "
strBody=strBody&" | "
strBody=strBody&" | "
strBody=strBody&" | "
strBody=strBody&" | | "
strBody=strBody&" "
strBody=strBody&"| b) Have you complained about any deficiency in instructioVtraining? | "
strBody=strBody&"| "&courseB&" | "
strBody=strBody&" | "
strBody=strBody&" | "
strBody=strBody&" | | "
strBody=strBody&"| If yes, what was the complaint related to? | "
strBody=strBody&""&courseB2&" | "
strBody=strBody&""
strBody=strBody&"| c) Was the problem rectified? | "
strBody=strBody&" | "&courseC&" | "
strBody=strBody&" | "
strBody=strBody&" | "
strBody=strBody&" | | "
strBody=strBody&" Give your suggestions to improve handling of complaints and for taking greater care by the course
instructor centre. | "
strBody=strBody&" "
strBody=strBody&" | a) Does the course instructor give individual attention to each child ? | "
strBody=strBody&" | "¢reA&" | "
strBody=strBody&" | "
strBody=strBody&" | "
strBody=strBody&" | "
strBody=strBody&" | "
strBody=strBody&""
strBody=strBody&"| b) Does the course instructor take extra stylees for the weak and absentee students ? | "
strBody=strBody&"| "¢reB&" | "
strBody=strBody&" | "
strBody=strBody&" | "
strBody=strBody&" | | "
strBody=strBody&""
strBody=strBody&"| c) Behaviour of course instructor ? | "
strBody=strBody&"| "¢reC&" | "
strBody=strBody&" | "
strBody=strBody&" | "
strBody=strBody&" | "
strBody=strBody&" | | | | |
| "
strBody=strBody&" "
strBody=strBody&""
strBody=strBody&"| FEED BACK ON FRANCHISEE / CENTRE | "
strBody=strBody&" "
strBody=strBody&"| a) Location of the centre:? | "
strBody=strBody&"| "&franA&" | | | | | "
strBody=strBody&""
strBody=strBody&"| b) Communication from the centre to your residence ? | "
strBody=strBody&"| "&franB&" | | | | | "
strBody=strBody&""
strBody=strBody&" "
strBody=strBody&"| c) Does care in monitoring and supervising the training at their centre? | "
strBody=strBody&"| "&franC&" | | | | | "
strBody=strBody&" "
strBody=strBody&"| d) Is the Franchisee available for interaction with the parents? | "
strBody=strBody&"| "&franD&" | | | | | "
strBody=strBody&" "
strBody=strBody&"| e) Do you feel the centre possesses sound infrastructure? | "
strBody=strBody&"| "&franE&" | | | | | | "
strBody=strBody&""
strBody=strBody&"| GENERAL | "
strBody=strBody&""
strBody=strBody&"| a) Would you advice your relatives and friends to enroll their children for such ALOHA classes? | "
strBody=strBody&"| "&genA&" | | | | | "
strBody=strBody&" "
strBody=strBody&"| b) Other suggestion if any: | "&genB&" | | "
strBody=strBody&"| | | "
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword
ObjSendMail.Configuration.Fields.Update
ObjSendMail.To = myemail
ObjSendMail.Subject = ContactUs_Subject
ObjSendMail.From = ContactUs_Email
ObjSendMail.HTMLBody = strBody
ObjSendMail.Send
Set ObjSendMail = Nothing
%>
Your Feedback has been sent. Thank You !!
<% Else %>
<% End If %>
|
