%
resultname="Harcourt Butler Technological Institute,Kanpur, (U. P.) India
"&_
"M. Tech. Odd Semester Result 2011-12"
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_2011_2012_ODD_NET 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_2011_2012_ODD_NET 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_2011_2012_ODD_NET 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
%>
Subject Name |
Max. Marks |
Obtained Marks |
Examination |
Sessional |
Total |
Examination |
Sessional |
Total |
Semester-<%=rec.fields("sem")%> |
<%
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 &""& trim(rec.fields("sub"& c &"N")) &" - "& rec.fields("sub"& c) & " | "
s7Sub=s7Sub &""& rec.fields("sub"& c &"TEM") &" | "
s7Sub=s7Sub &""& rec.fields("sub"& c &"TSM") &" | "
s7Sub=s7Sub &""& rec.fields("sub"& c &"TTM") &" | "
s7Sub=s7Sub &""& rec.fields("sub"& c &"TEO") &" | "
s7Sub=s7Sub &""& rec.fields("sub"& c &"TSO") &" | "
s7Sub=s7Sub &""& rec.fields("sub"& c &"TTO") &" | "
end if
Next
response.Write(" ")
response.Write(s7Sub)
%>
<%
Else
Set rst2 = Conn.Execute("SELECT * from MTECH_2011_2012_ODD_NET where rno="& arrsl(0,0) &"")
Set rst3 = Conn.Execute("SELECT * from MTECH_2011_2012_ODD_NET where rno="& arrsl(0,1) &"")
%>
Subject Name |
Max. Marks |
Obtained Marks--- |
Examination |
Sessional |
Total |
Examination |
Sessional |
Total |
Semester-<%=rst2.fields("sem")%> |
<%
s7Sub = ""
for c = 1 to 8
If trim(rst2.fields("sub"& c)) <> "" Then
'-------------------------------------------------------------------------------
s7Sub=s7Sub &""& trim(rst2.fields("sub"& c &"N")) &" - "& rst2.fields("sub"& c) & " | "
s7Sub=s7Sub &""& rst2.fields("sub"& c &"TEM") &" | "
s7Sub=s7Sub &""& rst2.fields("sub"& c &"TSM") &" | "
s7Sub=s7Sub &""& rst2.fields("sub"& c &"TTM") &" | "
s7Sub=s7Sub &""& rst2.fields("sub"& c &"TEO") &" | "
s7Sub=s7Sub &""& rst2.fields("sub"& c &"TSO") &" | "
s7Sub=s7Sub &""& rst2.fields("sub"& c &"TTO") &" | "
end if
Next
response.Write(" ")
response.Write(s7Sub)
%>
|
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")%> |
<%
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 &""& trim(rst3.fields("sub"& c &"N")) &" - "& rst3.fields("sub"& c) & " | "
s7Sub=s7Sub &""& rst3.fields("sub"& c &"TEM") &" | "
s7Sub=s7Sub &""& rst3.fields("sub"& c &"TSM") &" | "
s7Sub=s7Sub &""& rst3.fields("sub"& c &"TTM") &" | "
s7Sub=s7Sub &""& rst3.fields("sub"& c &"TEO") &" | "
s7Sub=s7Sub &""& rst3.fields("sub"& c &"TSO") &" | "
s7Sub=s7Sub &""& rst3.fields("sub"& c &"TTO") &" | "
end if
Next
response.Write(" ")
response.Write(s7Sub)
%>
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%>
Note:- *Carry Over |
<%'End If%>
<%
If duplicate = False Then
%>
Semester |
Obtained Marks/Max. Marks:
|
<%If Trim(rec.fields("sem"))="Semester - 1" Then%>
First |
<%=rec.fields("total1")%>/<%=rec.fields("ttmx1")%>
|
<%ElseIf Trim(rec.fields("sem"))="Semester - 2" Then%>
Second |
<%=rec.fields("total2")%>/<%=rec.fields("ttmx2")%>
|
<%ElseIf Trim(rec.fields("sem"))="Semester - 3" Then%>
Third |
<%=rec.fields("total3")%>/<%=rec.fields("ttmx3")%>
|
<%ElseIf Trim(rec.fields("sem"))="Semester - 4" Then%>
Final |
<%=rec.fields("total4")%>/<%=rec.fields("ttmx4")%>
|
<%Else%>
Grand Total |
<%=rec.fields("total")%>/<%=rec.fields("ttmx")%>
|
<%End if%>
Status |
<%=rec.fields("result")%>
|
<%End If%>
<%
END IF
'callFooterCP(msg)
callFooter_allMtech(msg)
%>