%
resultname="Harcourt Butler Technological Institute,Kanpur, (U. P.) India
"&_
"(An Autonomous Institute Affiliated to U. P. Technical University,Lucknow (U. P.) India)
"&_
"B.Tech. First Year Result 2008-09"
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 showErr_all()
sqlStr = "SELECT * from btech2e_09 where rollno='"& rollNo &"' AND (UPDATED <> 'SP' OR UPDATED IS NULL)"
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")%> |
MARKS DETAIL |
2nd Semester |
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)
%>
1st Semester |
<%
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) |
<%=rec.fields("crpp")%> |
<%End If%>
Semester |
Obtained Marks/Max. Marks |
Status |
First Semester |
<%=trim(rec.fields("total"))%>/<%=trim(rec.fields("ttmx"))%> |
<%=rec.fields("cp")%> |
Second Semester |
<%=trim(rec.fields("total_1"))%>/<%=trim(rec.fields("ttmx_1"))%> |
<%=rec.fields("rfirst")%><%'=rec.fields("cp_1")%> |
<%
END IF
callFooter_all(msg)
%>