<% dim dba 'set dba=server.CreateObject("ADODB.Connection") 'dba.open "bharath" connect %>

Student wise Result (Examinations Held in July 2006 / August 2006 - January 2006 Session)
Enrollment Number   (Enter the complete Enrollment Number) <% Set rs = Server.CreateObject ("ADODB.Recordset") pg=trim(Request.QueryString("pg")) dim stnam stnam=pg sql = "Select * from ksresjul06 where enrno = '" & stnam & "' " set rs = dba.execute(sql) if not rs.eof or not rs.bof then rs.movefirst response.write(" Result of Student bearing Enrollment no. ") response.write(Ucase(stnam)) response.write(" ") response.write("") while not rs.eof response.write("")%> <%response.write("")%> <%response.write("") rs.movenext wend response.Write(" Subject Code Grade ")%> <%=rs("subject")%> <%response.write(" ")%> <%=rs("grade")%> <%response.write(" ") end if%>   Grade system Grade Awarded Quality Level Marks Required A Excellent +75% and above B Very Good +60% to 74% C Good +50% to 59% D Satisfactory +40% to 49% E Fails Below 40% Disclaimer                          Back to Home