<% resultname="Harcourt Butler Technological Institute,Kanpur, (U. P.) India
"&_ "(An Autonomous Institute Affiliated to U. P. Technical University,Lucknow (U. P.) India)
" 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 Carryover_0708 where rollno='"& rollNo &"' and cpon <> 'SP' ORDER BY sl1" 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 Carryover_0708 WHERE (rollno = '"& rollNo &"')" Set rst1 = Conn.Execute(sqlStr) If rst1.Eof = False Then If CInt(rst1("cnt")) > 1 Then duplicate = true '------------------------------------------------- sqlStr = "" sqlStr = "SELECT sl1 FROM Carryover_0708 WHERE (rollno = '"& rollNo &"') ORDER BY sl1" 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="" '------------------- If Trim(rec.fields("spcr")) ="Y" then resultname = resultname & "Special Carry Over Result 2008-09" Else resultname = resultname & "Carry Over Result 2008-09" 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
<% If duplicate = False Then %> <% 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 &"" 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)) <> "") AND trim(rec.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) %>
<%=rec.fields("sem_1")%>
Subject Name
Max. Marks
Obtained Marks
Examination Sessional Total Examination Sessional Total
"& rec.fields("sub"& c &"N_1") &" -"& rec.fields("sub"& c &"_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") &"
<%=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 Carryover_0708 where sl1='"& arrsl(0,0) &"'") Set rst3 = Conn.Execute("SELECT * from Carryover_0708 where sl1='"& arrsl(0,1) &"'") %> <% s8Sub = "" for c = 1 to 13 if (trim(rst2.fields("sub"& c &"N")) <> "" AND trim(rst2.fields("sub"& c)) <> "") AND trim(rst2.fields("sub"& c &"N_1")) <> "" Then '------------------------------------------------------------------------------- s8Sub=s8Sub &"" s8Sub=s8Sub &"" s8Sub=s8Sub &"" s8Sub=s8Sub &"" s8Sub=s8Sub &"" s8Sub=s8Sub &"" s8Sub=s8Sub &"" end if Next response.Write("") %> <% response.Write(s8Sub) %> <% s7Sub = "" for c = 1 to 13 if (trim(rst2.fields("sub"& c &"N")) <> "" AND trim(rst2.fields("sub"& c)) <> "") AND trim(rst2.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) %> <% s8Sub = "" for c = 1 to 13 if (trim(rst3.fields("sub"& c &"N")) <> "" AND trim(rst3.fields("sub"& c)) <> "") AND trim(rst3.fields("sub"& c &"N_1")) <> "" Then '------------------------------------------------------------------------------- s8Sub=s8Sub &"" s8Sub=s8Sub &"" s8Sub=s8Sub &"" s8Sub=s8Sub &"" s8Sub=s8Sub &"" s8Sub=s8Sub &"" s8Sub=s8Sub &"" end if Next response.Write("") %> <% response.Write(s8Sub) %> <% s7Sub = "" for c = 1 to 13 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) %>
<%=rst2.fields("sem_1")%>
Subject Name
Max. Marks
Obtained Marks
Examination Sessional Total Examination Sessional Total
"& rst2.fields("sub"& c &"N_1") &" -"& rst2.fields("sub"& c &"_1") &""& rst2.fields("sub"& c &"TEM_1") &""& rst2.fields("sub"& c &"TSM_1") &""& rst2.fields("sub"& c &"TTM_1") &""& rst2.fields("sub"& c &"TEO_1") &""& rst2.fields("sub"& c &"TSO_1") &""& rst2.fields("sub"& c &"TTO_1") &"
<%=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") &"
 
Carry Over Results Obtained Marks/Max. Marks: <%=rst2.fields("totalobt")%>/<%=rst2.fields("totalMX")%> Status: <%=rst2.fields("rsecond")%>
 
<%=rst3.fields("sem_1")%>
"& rst3.fields("sub"& c &"N_1") &" -"& rst3.fields("sub"& c &"_1") &""& rst3.fields("sub"& c &"TEM_1") &""& rst3.fields("sub"& c &"TSM_1") &""& rst3.fields("sub"& c &"TTM_1") &""& rst3.fields("sub"& c &"TEO_1") &""& rst3.fields("sub"& c &"TSO_1") &""& rst3.fields("sub"& c &"TTO_1") &"
<%=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") &"

Carry Over Results Obtained Marks/Max. Marks: <%=rst3.fields("totalobt")%>/<%=rst3.fields("totalMX")%> Status: <%=rst3.fields("rsecond")%>
<%End If%>

<%If trim(rec.fields("crpp")) <> "" Then%> <%End If%>
Carry Over Paper(Current Year) <%=rec.fields("crpp")%>
<% If duplicate = False Then %>
Carry Over Results Obtained Marks/Max. Marks: <%=rec.fields("totalobt")%>/<%=rec.fields("totalMX")%> Status: <%=rec.fields("rsecond")%>
<%End If%>
<%=sMsg%>
<% END IF callFooterCP(msg) %>