<% response.buffer = True %> New Student Registration <% Dim tab(1,1),k Dim InstrLst_cn set InstrLst_cn = Server.CreateObject("ADODB.Connection") InstrLst_cn.Provider = "Microsoft.Jet.OLEDB.4.0" InstrLst_cn.Open(Server.Mappath(".\database\mathyardRegn.mdb")) Dim InstrLst_Rs set InstrLst_Rs = Server.CreateObject("ADODB.Recordset") InstrLst_Rs.Open "SELECT * FROM instrReg where insDesrPerm = true order by insCourCode", InstrLst_cn, adOpenKeyset, adLockoptimistic, adCmdText %>

Student Registration

Registration Page

Registration Form

Student Name

User Name

Password

Re-enter Password

E-Mail Address

Course Code

 

◄ Home Page
<% InstrLst_Rs.Close Set InstrLst_Rs = Nothing %>