<% response.buffer=true %>
Online Test - Result
Result
<%
CurPath=request.servervariables("path_translated")
DBfile="oltdb.mdb" '-- put actual db filename here!
CurPath=left(CurPath,instrrev(CurPath,"\")) & DBFile
Set conn = Server.CreateObject("ADODB.Connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & CurPath
conn.Open DSNtemp,"UID=;PWD=CKUMS"
' ' sql = "Select A.Name,B.UName,B.Mark,B.QBName from Register A,Answers B where A.UName =B.UName order by B.Uname"
sql = "Select UName,Mark,QBName from Answers order by UName"
set rs=Server.CreateObject("adodb.Recordset")
rs.Open sql,conn,1
if rs.resordcount>0 then
rs.movefirst
Do while not rs.eof
sql = "select sum(Mark) where UName='" & rs.fields("UNAME") &"' group by QBName"
set rs1=Server.CreateObject("adodb.Recordset")
rs1.Open sql,conn,1
Mark = rs.fields(0)
Insert into Results values('" & UName &"'," & Mark &"'," & QBName &"')"
rs.movenext
Loop
end if %>
| Name / ID | Mark | Title |
<%
sql = "Select UName,Mark,QBName from results order by UName"
set rs=Server.CreateObject("adodb.Recordset")
rs.Open sql,conn,1
if rs.resordcount>0 then
rs.movefirst
Do while not rs.eof %>
| <% = rs.fields(0)%>( | <% = rs.fields(1)%> | <% = rs.fields(0)%> |
<% rs.movenext
Loop
%>