<% resultname="Harcourt Butler Technological Institute,Kanpur, (U. P.) India
"&_ "M. Tech. Even Semester Result 2012-13(Tentative Result)" msg="In case of any discrepancy in Marks, contact COE office with origional marksheet and documents." 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 showErrCP(resultname) sqlStr = "SELECT * from MTECH_2012_2013_EVEN where rollno='"& rollNo &"' ORDER BY sem" if Conn.State <> 1 then Conn.close rec.open sqlStr,Conn,2,2 If rec.Eof = true Then showErrCP(resultname) else rec.Movefirst end if '--------------------------------------------------------------------------- duplicate = false sqlStr = "" sqlStr = "SELECT COUNT(*) AS cnt FROM MTECH_2012_2013_EVEN WHERE (rollno = '"& rollNo &"')" Set rst1 = Conn.Execute(sqlStr) If rst1.Eof = False Then If CInt(rst1("cnt")) > 1 Then duplicate = true '------------------------------------------------- sqlStr = "" sqlStr = "SELECT rno FROM MTECH_2012_2013_EVEN WHERE (rollno = '"& rollNo &"') ORDER BY sem" Set rst = Conn.Execute(sqlStr) If rst.EOF = False Then arrsl = rst.GetRows() End if rst.Close Set rst = Nothing '------------------------------------------------- rst1.Close Set rst1 = Nothing '------------------------------------------------- End If End If '------------------------------------------------- 'For i = 0 To UBound(arrsl,2) ' 'Next ''-------------------------------------------------- 'response.write UBound(arrsl,2) s7Sub="" s8Sub="" '------------------- %>

<%=resultname%>


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

MARKS DETAIL
<% If duplicate = False Then %> <% for c = 1 to 8 if trim(rec.fields("sub"& c)) <> "" Then '''"sub"& c &"N" &" - "& trim(rec.fields("sub"& c &"N")) <> "" AND AND trim(rec.fields("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) %>
Subject Name
Max. Marks
Obtained Marks
Examination Sessional Total Examination Sessional Total
Semester-<%=rec.fields("sem")%>
"& 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") &"
<% Else Set rst2 = Conn.Execute("SELECT * from MTECH_2012_2013_EVEN where rno="& arrsl(0,0) &"") Set rst3 = Conn.Execute("SELECT * from MTECH_2012_2013_EVEN where rno="& arrsl(0,1) &"") %> <% s7Sub = "" for c = 1 to 8 If trim(rst2.fields("sub"& c)) <> "" Then '------------------------------------------------------------------------------- s7Sub=s7Sub &"" s7Sub=s7Sub &"" s7Sub=s7Sub &"" s7Sub=s7Sub &"" s7Sub=s7Sub &"" s7Sub=s7Sub &"" s7Sub=s7Sub &"" end if Next response.Write("") response.Write(s7Sub) %> <% s7Sub = "" for c = 1 to 8 If trim(rst3.fields("sub"& c)) <> "" Then 'if (trim(rst3.fields("sub"& c &"N")) <> "" AND trim(rst3.fields("sub"& c)) <> "") AND trim(rst3.fields("sub"& c &"N")) <> "" 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) %>
Subject Name
Max. Marks
Obtained Marks---
Examination Sessional Total Examination Sessional Total
Semester-<%=rst2.fields("sem")%>
"& trim(rst2.fields("sub"& c &"N")) &" - "& rst2.fields("sub"& c) & ""& rst2.fields("sub"& c &"TEM") &""& rst2.fields("sub"& c &"TSM") &""& rst2.fields("sub"& c &"TTM") &""& rst2.fields("sub"& c &"TEO") &""& rst2.fields("sub"& c &"TSO") &""& rst2.fields("sub"& c &"TTO") &"
 
Result Obtained Marks/Max.--- Marks:  <%If Trim(rst2.fields("sem"))="Semester - 1" Then%> <%=rst2.fields("total1")%>/<%=rst2.fields("ttmx1")%> <%ElseIf Trim(rst2.fields("sem"))="Semester - 2" Then%> <%=rst2.fields("total2")%>/<%=rst2.fields("ttmx2")%> <%ElseIf Trim(rst2.fields("sem"))="Semester - 3" Then%> <%=rst2.fields("total3")%>/<%=rst2.fields("ttmx3")%> <%ElseIf Trim(rst2.fields("sem"))="Semester - 4" Then%> <%=rst2.fields("total4")%>/<%=rst2.fields("ttmx4")%> <%ElseIf Trim(rst2.fields("sem"))="Semester - 5" Then%> <%=rst2.fields("total5")%>/<%=rst2.fields("ttmx5")%> <%ElseIf Trim(rst2.fields("sem"))="Semester - 6" Then%> <%=rst2.fields("total6")%>/<%=rst2.fields("ttmx6")%> <%End if%> Status: <%=rst2.fields("result")%>
 
Semester-<%=rst3.fields("sem")%>
"& trim(rst3.fields("sub"& c &"N")) &" - "& rst3.fields("sub"& c) & ""& rst3.fields("sub"& c &"TEM") &""& rst3.fields("sub"& c &"TSM") &""& rst3.fields("sub"& c &"TTM") &""& rst3.fields("sub"& c &"TEO") &""& rst3.fields("sub"& c &"TSO") &""& rst3.fields("sub"& c &"TTO") &"

Result Obtained Marks/Max. Marks:  <%If Trim(rst3.fields("sem"))="Semester - 1" Then%> <%=rst3.fields("total1")%>/<%=rst3.fields("ttmx1")%> <%ElseIf Trim(rst3.fields("sem"))="Semester - 2" Then%> <%=rst3.fields("total2")%>/<%=rst3.fields("ttmx2")%> <%ElseIf Trim(rst3.fields("sem"))="Semester - 3" Then%> <%=rst3.fields("total3")%>/<%=rst3.fields("ttmx3")%> <%ElseIf Trim(rst3.fields("sem"))="Semester - 4" Then%> <%=rst3.fields("total4")%>/<%=rst3.fields("ttmx4")%> <%ElseIf Trim(rst3.fields("sem"))="Semester - 5" Then%> <%=rst3.fields("total5")%>/<%=rst3.fields("ttmx5")%> <%ElseIf Trim(rst3.fields("sem"))="Semester - 6" Then%> <%=rst3.fields("total6")%>/<%=rst3.fields("ttmx6")%> <%End if%> Status: <%=rst3.fields("result")%>
<%End If%>

<%'If trim(rec.fields("crpp")) <> "" Then%> <%'End If%>
Note:- *Carry Over
<% If duplicate = False Then %>
<%If Trim(rec.fields("sem"))="Semester - 4" And InStr( Trim(rec.fields("result")),"DIV") > 0 Then%> <%ElseIf Trim(rec.fields("sem"))="Semester - 6" And InStr( Trim(rec.fields("result")),"DIV") > 0 Then%> <%Else%> <%If Trim(rec.fields("sem"))="Semester - 1" Then%> <%ElseIf Trim(rec.fields("sem"))="Semester - 2" Then%> <%ElseIf Trim(rec.fields("sem"))="Semester - 3" Then%> <%ElseIf Trim(rec.fields("sem"))="Semester - 4" Then%> <%ElseIf Trim(rec.fields("sem"))="Semester - 5" Then%> <%ElseIf Trim(rec.fields("sem"))="Semester - 6" Then%> <%End if%> <%End if%>
Semester Obtained Marks/Max. Marks: 
First <%=rec.fields("total1")%>/<%=rec.fields("ttmx1")%>
Second <%=rec.fields("total2")%>/<%=rec.fields("ttmx2")%>
Third <%=rec.fields("total3")%>/<%=rec.fields("ttmx3")%>
Fourth <%=rec.fields("total4")%>/<%=rec.fields("ttmx4")%>
Grand Total <%=rec.fields("total")%>/<%=rec.fields("ttmx")%>
First <%=rec.fields("total1")%>/<%=rec.fields("ttmx1")%>
Second <%=rec.fields("total2")%>/<%=rec.fields("ttmx2")%>
Third <%=rec.fields("total3")%>/<%=rec.fields("ttmx3")%>
Fourth <%=rec.fields("total4")%>/<%=rec.fields("ttmx4")%>
Fifth <%=rec.fields("total5")%>/<%=rec.fields("ttmx5")%>
Sixth <%=rec.fields("total6")%>/<%=rec.fields("ttmx6")%>
Grand Total <%=rec.fields("total")%>/<%=rec.fields("ttmx")%>
First <%=rec.fields("total1")%>/<%=rec.fields("ttmx1")%>
Second <%=rec.fields("total2")%>/<%=rec.fields("ttmx2")%>
Third <%=rec.fields("total3")%>/<%=rec.fields("ttmx3")%>
Final <%=rec.fields("total4")%>/<%=rec.fields("ttmx4")%>
Third <%=rec.fields("total5")%>/<%=rec.fields("ttmx5")%>
Third <%=rec.fields("total6")%>/<%=rec.fields("ttmx6")%>
Status <%=rec.fields("result")%>
<%End If%>
<% END IF 'callFooterCP(msg) callFooter_allMtech(msg) %>