<% resultname="Harcourt Butler Technological Institute,Kanpur, (U. P.) India
"&_ "An Autonomous Institute Affiliated to U. P. Technical University,Lucknow (U. P.) India
"&_ "MCA Final Year Result 2008-09
" msg="In case of any discrepancy in Marks, contact COE office with origional marksheet and
documents before 6th July 2009." callHeader() Set Conn = makeConnectionMSSQL() Set rst = server.CreateObject("adodb.recordset") Set rec = server.CreateObject("adodb.recordset") if request.querystring("rollno") = "" then askRollNo() else rollNo = request.querystring("rollno") validChars = true for i = 1 to len(rollNo) c = mid(rollNo, i, 1) if InStr("0123456789", c) = 0 then validChars = false next if validChars = false then showErr_all() sqlStr = "SELECT * from mca6e_09 where rollno='"& rollNo &"'" if Conn.State <> 1 then Conn.close rec.open sqlStr,Conn,2,2 If rec.Eof = true Then showErrorSpecial_bt09(resultname) else rec.Movefirst ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' end if '--------------------------------------------------------------------------- s7Sub="" s8Sub="" '------------------- %>

<%=resultname%>


Name: <%=rec.fields("sName")%>
Father's Name: <%=rec.fields("fName")%>
Roll No: <%=rec.fields("rollno")%>
Course/Branch: <%=rec.fields("bName")%>
Institute Name Harcourt Butler Technological Institute,Kanpur

MARKS DETAIL
<% for c = 1 to 1 'if trim(rec.fields("sub"& c &"N")) <> "" AND trim(rec.fields("sub"& c)) <> "" Then '------------------------------------------------------------------------------- s8Sub=s8Sub &"" s8Sub=s8Sub &"" s8Sub=s8Sub &"" s8Sub=s8Sub &"" s8Sub=s8Sub &"" s8Sub=s8Sub &"" s8Sub=s8Sub &"" 'end if Next response.Write("") %> <% response.Write(s8Sub) %> <% for c = 1 to 13 if trim(rec.fields("sub"& c &"N")) <> "" AND trim(rec.fields("sub"& c)) <> "" Then '''"sub"& c &"N" &" - "& '------------------------------------------------------------------------------- s7Sub=s7Sub &"" s7Sub=s7Sub &"" s7Sub=s7Sub &"" s7Sub=s7Sub &"" s7Sub=s7Sub &"" s7Sub=s7Sub &"" s7Sub=s7Sub &"" end if Next response.Write("") response.Write(s7Sub) %>
6th Semester
Subject Name
Max. Marks
Obtained Marks
Examination Sessional Total Examination Sessional Total
"& rec.fields("sub"& c &"N_1") &" -"& rec.fields("sub1_1") &""& rec.fields("sub"& c &"TEM_1") &""& rec.fields("sub"& c &"TSM_1") &""& rec.fields("sub"& c &"TTM_1") &""& rec.fields("sub"& c &"TEO_1") &""& rec.fields("sub"& c &"TSO_1") &""& rec.fields("sub"& c &"TTO_1") &"
5th Semester
             
"& trim(rec.fields("sub"& c &"N")) &" - "& rec.fields("sub"& c) & ""& rec.fields("sub"& c &"TEM") &""& rec.fields("sub"& c &"TSM") &""& rec.fields("sub"& c &"TTM") &""& rec.fields("sub"& c &"TEO") &""& rec.fields("sub"& c &"TSO") &""& rec.fields("sub"& c &"TTO") &"

<%If trim(rec.fields("crpp")) <> "" Then%> <%End If%> <%If trim(rec.fields("gramk")) <> "" Then%> <%End If%>
Carry Over Paper <%=rec.fields("crpp")%>
Grace <%=rec.fields("gramk")%>

Year Obtained Marks/Max. Marks Status
First Year <%=trim(rec.fields("second"))%> <%=rec.fields("rsecond")%>
Second Year <%=trim(rec.fields("third"))%> <%=rec.fields("rthird")%>
Final Year <%=rec.fields("totalobt")%>/<%=rec.fields("totalMX")%> <%=rec.fields("rfourth")%>
<% If trim(rec.fields("division")) <> "FAIL" Then Division = rec.fields("division") TotalMarks = rec.fields("grdm") MaximumMarks = rec.fields("grdt") percent = round((Cint(rec.fields("grdm")) * 100)/ cint(rec.fields("grdt")),2) sMsg = " " Else Division = "Yet to pass Carryover Paper, Course not complete." TotalMarks = "Nil" MaximumMarks = "Nil" percent = "Nil" sMsg = "" End If %>
Final Results
Division <%=Division%>
Total Marks <%=TotalMarks%>
Maximum Marks <%=MaximumMarks%>
Percentage <%=percent%>
<%=sMsg%>
<% END IF callFooterFinalYear(msg) %>