Student Enquiry Form
<%
If Request.Form="" Then %>
<%
Else
'receive the form values
Dim sName, sDob, sStud_address, sContact, sInterest, sCourse, sSchool_name, sSchool_address, sFather_name, sOccupation, sOff_address, sOff_contact, sEmail, sKnow, sReason
sName=Request.Form("name")
sDob=Request.Form("dob")
sStud_address=Request.Form("stud_address")
sContact=Request.Form("contact")
sInterest=Request.Form("interest")
sCourse=Request.Form("course")
sSchool_name=Request.Form("school_name")
sSchool_address=Request.Form("school_address")
sFather_name=Request.Form("father_name")
sOccupation=Request.Form("occupation")
sOff_address=Request.Form("off_address")
sOff_contact=Request.Form("off_contact")
sEmail=Request.Form("email")
sKnow=Request.Form("know")
sReason=Request.Form("reason")
' 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 & "Address of Student:" & sStud_address & "
"
sEmailText = sEmailText & "Contact No:" & sContact & "
"
sEmailText = sEmailText & "Interests:" & sInterest & "
"
sEmailText = sEmailText & "Course interested to apply:" & sCourse & "
"
sEmailText = sEmailText & "Name of School:" & sSchool_name & "
"
sEmailText = sEmailText & "Address of School" & sSchool_address & "
"
sEmailText = sEmailText & "Father's Name" & sFather_name & "
"
sEmailText = sEmailText & "Occupation" & sOccupation & "
"
sEmailText = sEmailText & "Office Address" & sOff_address & "
"
sEmailText = sEmailText & "Office Contact No's" & sOff_contact & "
"
sEmailText = sEmailText & "Email" & sEmail & "
"
sEmailText = sEmailText & "How do you Know? You heard of SmartGenius through:" & sKnow & "
"
sEmailText = sEmailText & "Reason for enrolling your child:" & sReason & "
"
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 = "Student 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
%>