Take a free test and assess where you stand.
<% @language=vbscript %>
<%
dim con,objcon,rs
set objcon=Server.CreateObject("ADODB.Connection")
objcon.Open "Provider=MSDASQL ;Driver={SQL Server};server=216.15.231.200;uid=aspirelg;pwd=Aspire24#;database=aspiredb; Connect Timeout=30"
response.expires=-1
dim FirstName, DOB, Gender,MotherName,FatherName, Address, Address2, ContactNo
dim MobileNo
dim EmailAddress
dim SchoolName
dim Class1
dim Math
dim Science, TotalAggregate, NTSE, NSO,IMO, Aryabhatta, Others
FirstName = ""
DOB = ""
Gender=""
MotherName = ""
FatherName = ""
Address = ""
Address2=""
ContactNo = ""
MobileNo = ""
EmailAddress = ""
SchoolName = ""
Class1 = ""
Math=""
Science = ""
TotalAggregate = ""
NTSE = ""
NSO = ""
IMO = ""
Aryabhatta=""
Others=""
if request.form("button") <> "" then
textSchoolName = Request.Form("textSchoolName")
FirstName = Request.Form("FirstName")
DOB = Request.Form("DOB")
Gender=Request.Form("Gender")
MotherName = Request.Form("MotherName")
FatherName = Request.Form("FatherName")
Address = Request.Form("Address")
Address2=Request.Form("Address2")
ContactNo = Request.Form("ContactNo")
MobileNo = Request.Form("MobileNo")
EmailAddress = Request.Form("EmailAddress")
SchoolName = Request.Form("SchoolName")
Class1 = Request.Form("Class1")
Math=Request.Form("Math")
Science = Request.Form("Science")
TotalAggregate = Request.Form("TotalAggregate")
NTSE = Request.Form("NTSE")
NSO = Request.Form("NSO")
IMO = Request.Form("IMO")
Aryabhatta=Request.Form("Aryabhatta")
Others=Request.Form("Others")
objcon.execute("Execute PLFutureEdge @mode='InsertRegistration',@FirstName='"& FirstName & "',@DOB='" & DOB & "',@Gender='" & Gender &"',@MotherName='" & MotherName &"',@FatherName='" & FatherName &"',@Address='" & Address &"',@Address2='" & Address2 &"',@ContactNo='" & ContactNo &"',@MobileNo='" & MobileNo &"',@EmailAddress='" & EmailAddress &"',@SchoolName='" & SchoolName &"',@Class1='" & Class1 &"',@Math='" & Math &"',@Science='" & Science &"',@TotalAggregate='" & TotalAggregate &"',@NTSE='" & NTSE &"',@NSO='" & NSO &"',@IMO='" & IMO &"',@Aryabhatta='" & Aryabhatta &"',@Others='" & Others &"'")
response.write "Saved Successfully "
'Request.Form("lblHead").Text="Saved Successfully "
i=0
'regid=rs("regid")
end if
%>