%
resultname="Result of Final Year B.Tech/ MCA Even Semester Exams 2011-2012 has been declared. Any discrepancies/mistakes may be reported to the COE office, HBTI, Kanpur immediately."
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 _ResultBTechMCA_2010_2011_1_TO_3 where rollno='"& rollNo &"' and updated<>'SP'"
sqlStr = "SELECT * from ResultBTechMCA_2011_2012 where rollno='"& rollNo &"'"
'response.Write(sqlStr)
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=""
if ucase(trim(rec.fields("UPDATED")))="C" then
showErrorSpecial_dues(resultName)
end if
if trim(rec.fields("rollno"))="0904510035" or trim(rec.fields("rollno"))="0904514060" then
showErrorHeald(resultName)
end if
'-------------------
%>
<%=resultname%>
Name: |
<%=rec.fields("sName")%> |
Father's Name: |
<%=rec.fields("fName")%> |
Roll No: |
<%=rec.fields("rollno")%> |
Course/Branch: |
<%=rec.fields("bName")%> |
MARKS DETAIL |
<%=rec.fields("sem_1")%> |
Subject Name |
Max. Marks |
Obtained Marks |
Examination |
Sessional |
Total |
Examination |
Sessional |
Total |
<%
for c = 1 to 13
if (trim(rec.fields("sub"& c &"N")) <> "" AND trim(rec.fields("sub"& c)) <> "") AND trim(rec.fields("sub"& c &"N_1")) <> "" Then
'-------------------------------------------------------------------------------
s8Sub=s8Sub &""& rec.fields("sub"& c &"N_1") &" -"& rec.fields("sub"& c &"_1") &" | "
s8Sub=s8Sub &""& rec.fields("sub"& c &"TEM_1") &" | "
s8Sub=s8Sub &""& rec.fields("sub"& c &"TSM_1") &" | "
s8Sub=s8Sub &""& rec.fields("sub"& c &"TTM_1") &" | "
s8Sub=s8Sub &""& rec.fields("sub"& c &"TEO_1") &" | "
s8Sub=s8Sub &""& rec.fields("sub"& c &"TSO_1") &" | "
s8Sub=s8Sub &""& rec.fields("sub"& c &"TTO_1") &" | "
end if
Next
response.Write(" ")
%>
<%
response.Write(s8Sub)
%>
<%=rec.fields("sem")%> |
<%
for c = 1 to 13
if (trim(rec.fields("sub"& c &"N")) <> "" AND trim(rec.fields("sub"& c)) <> "") AND trim(rec.fields("sub"& c &"N")) <> "" Then '''"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)
%>
|
<%If trim(rec.fields("crpp")) <> "" Then%>
Carry Over Paper(Current Year) |
<%
If (trim(rec.fields("sem")) = "SEMESTER - 1" And InStr(trim(rec.fields("rfirst")),"PCP") >0) Or (trim(rec.fields("sem")) = "SEMESTER - 3" And InStr(trim(rec.fields("rsecond")),"PCP") >0) Or (trim(rec.fields("sem")) = "SEMESTER - 5" And InStr(trim(rec.fields("rthird")),"PCP") >0) then
%>
<%=rec.fields("cpon")%> |
<% Else %>
|
<%End If %>
<%End If%>
Result |
Obtained Marks/Max. Marks |
<%=rec.fields("totalobt")%>/<%=rec.fields("totalMX")%> |
Status |
<%
if trim(rec.fields("sem")) = "SEMESTER - 1" then
%>
<%=rec.fields("rfirst")%> |
<%
elseif trim(rec.fields("sem")) = "SEMESTER - 3" then
%>
<%=rec.fields("rsecond")%> |
<%
elseif trim(rec.fields("sem")) = "SEMESTER - 5" then
%>
<%=rec.fields("rthird")%> |
<%
end if
%>
Carry Over Paper/Grace Paper |
<%
if trim(rec.fields("sem")) = "SEMESTER - 1" And UCase(Trim(rec.fields("rfirst"))) <> "PASS" then
%>
<%=rec.fields("cpon")%> |
<%
elseif trim(rec.fields("sem")) = "SEMESTER - 3" And UCase(Trim(rec.fields("rsecond"))) <> "PASS" then
%>
<%=rec.fields("cpon")%> |
<%
elseif trim(rec.fields("sem")) = "SEMESTER - 5" And UCase(Trim(rec.fields("rthird"))) <> "PASS" then
%>
<%=rec.fields("cpon")%> |
<%
end if
%>
<%=sMsg%> |
<%
END IF
callFooter_all_aug11(msg)
%>