<% 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
<% 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) %>
2nd Semester
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") &"
1st Semester
"& 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") &"

<%If trim(rec.fields("crpp")) <> "" Then%> <%End If%>
Carry Over Paper(Current Year) <%=rec.fields("crpp")%>

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) %>