<%@ Language=VBScript%> <% mes = "" IsSuccess = false sTo = "info@rmkresidential.ac.in" sBcc= "cprathap@mayapuri.net" sCc= "pyalamanchi@kraniumtechnology.com" sFrom = "admin@555servers.com" sSubject = "Enrollment Form" sMailServer = "127.0.0.1" sBody="
" sBody=sBody& "" sBody=sBody& " " sBody=sBody& " " sBody=sBody& " " sBody=sBody& " " sBody=sBody& " " sBody=sBody& " " sBody=sBody& " " sBody=sBody& " " sBody=sBody& " " sBody=sBody& " " sBody=sBody& " " sBody=sBody& " " sBody=sBody& " " sBody=sBody& " " sBody=sBody& " " sBody=sBody& " " sBody=sBody& " " sBody=sBody& " " sBody=sBody& "
R M K RESIDENTIAL SCHOOL
Student's Name : "&request.form("student")&"
Date of birth : "&request.form("dob")&"
Nationality : "&request.form("nation")&"
Gender : "&request.form("gender")&"
First Language Has studied English : "&request.form("english")&"
number of years studied as foreign language : "&request.form("flang")&"
number of years studied as language of learning : "&request.form("langlearn")&"
Language(s) spoken at home : "&request.form("lspoken")&"
Current Grade/Last Grade Completed : "&request.form("grade")&"
Names and locations of school(s)attended in the last years. : "&request.form("schools")&"
Father’s Name : "&request.form("fname")&"
Father’s Occupation : "&request.form("occup")&"
Mother’s Name : "&request.form("mname")&"
Address for Communication : "&request.form("address")&"
Telephone : "&request.form("tel")&"
Mobile : "&request.form("mobile")&"
E-mail : "&request.form("email")&"
" if Request("__action")="TestEMail" then TestEMail() end if Sub TestEMail() Set objMail = Server.CreateObject("CDO.Message") Set objConf = Server.CreateObject("CDO.Configuration") Set objFields = objConf.Fields With objFields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sMailServer .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Update End With With objMail Set .Configuration = objConf .From = sFrom .To = sTo .Bcc= sBcc .Cc= sCc .Subject = sSubject .HTMLBody = sBody End With Err.Clear on error resume next objMail.Send if len(Err.Description) = 0 then mes = "MESSAGE HAS BEEN SENT " mes = mes + "SUCCESSFULLY!" IsSuccess = true else mes = " " + Err.Description + " TESTS FAILED!" end if Set objFields = Nothing Set objConf = Nothing Set objMail = Nothing End sub Sub Alert(html) if IsSuccess then Response.Write "
Success:" & html & "
" Response.Redirect("thanks.html") else Response.Write "
Fail:" & html & "
" end if End Sub %> Enrollment Form.

R M K RESIDENTIAL PRE ENROLLMENT FORM

<% if len(mes) > 0 then Alert(mes) end if %>
send mail

 
Student's Name
Date of birth
Nationality
Gender Male Female
Has studied English Yes No
If yes, number of years studied
as foreign language
language of learning
Language(s) spoken at home
Current Grade/
Last Grade Completed
Names and locations of school(s)
attended in the last years.
Father’s Name
Father’s Occupation
Mother’s Name
Address for Communication
Telephone
Mobile
E-mail
 
 

Send