%
resultname="Harcourt Butler Technological Institute,Kanpur, (U. P.) India
"&_
"M. Tech. ODD Semester Result 2014-15(Tentative Result)"
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 HBTI_MTECH_2014_2015_ODD 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 HBTI_MTECH_2014_2015_ODD 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 HBTI_MTECH_2014_2015_ODD 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")%> | |
Date of Declaration: | <% If InStr( Trim(rec.fields("result")),"DIV") > 0 then %>29/Jan/2014 | <% ElseIf Not InStr( Trim(rec.fields("result")),"DIV") > 0 then %>22/Jul/2014 | <% End If %>
MARKS DETAIL |
<%
If duplicate = False Then
%>
|
---|
Note:- *Carry Over |
Semester | Obtained Marks/Max. Marks: | |
First | <%=rec.fields("total1")%>/<%=rec.fields("ttmx1")%> | |
Second | <%=rec.fields("total2")%>/<%=rec.fields("ttmx2")%> | |
Third | <%=rec.fields("total3")%>/<%=rec.fields("ttmx3")%> | |
Fourth | <%=rec.fields("total4")%>/<%=rec.fields("ttmx4")%> | |
Grand Total | <%=rec.fields("total")%>/<%=rec.fields("ttmx")%> | |
First | <%=rec.fields("total1")%>/<%=rec.fields("ttmx1")%> | |
Second | <%=rec.fields("total2")%>/<%=rec.fields("ttmx2")%> | |
Third | <%=rec.fields("total3")%>/<%=rec.fields("ttmx3")%> | |
Fourth | <%=rec.fields("total4")%>/<%=rec.fields("ttmx4")%> | |
Fifth | <%=rec.fields("total5")%>/<%=rec.fields("ttmx5")%> | |
Sixth | <%=rec.fields("total6")%>/<%=rec.fields("ttmx6")%> | |
Grand Total | <%=rec.fields("total")%>/<%=rec.fields("ttmx")%> | |
First | <%=rec.fields("total1")%>/<%=rec.fields("ttmx1")%> | |
Second | <%=rec.fields("total2")%>/<%=rec.fields("ttmx2")%> | |
Third | <%=rec.fields("total3")%>/<%=rec.fields("ttmx3")%> | |
Fourth | <%=rec.fields("total4")%>/<%=rec.fields("ttmx4")%> | Fifth | <%=rec.fields("total5")%>/<%=rec.fields("ttmx5")%> |
Sixth | <%=rec.fields("total6")%>/<%=rec.fields("ttmx6")%> | |
Status | <%=rec.fields("result")%> |