Olha to com um problema aqui........... <%
alunoid = Request.QueryString("ID")
%>
<%
strConnection = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb") & ";"
' ATENÇÃO!! Lembre de inserir na linha acima o caminho correto para o seu arquivo MDB
Set adoDataConn = Server.CreateObject("ADODB.Connection")
adoDataConn.Open strConnection
QNotas = "select * from notas, alunos, materias where notas.aluno =" & alunoid & "and notas.aluno = alunos.id"
Set RS_Notas = adoDataConn.Execute(QNotas)
%>
<%
Set rsNews = Server.CreateObject("ADODB.Recordset")
rsNews.Open QNotas,strConnection
%>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>
<body>
<p>
<%if rsnews("recup") = unchecked then %>
<%recup = "Recuperação"%>
<%Else%>
<%recup = "Direto"%>
<%End If%>
<%if rsnews("2recup") = unchecked then %>
<%recup2 = "Recuperação"%>
<%Else%>
<%recup2 = "Direto"%>
<%End If%>
<%if not rsnews.eof then%>
<%=rsnews("nome")%>
<%=rsnews("serie")%>
<%while not rsnews.eof%>
<table width="200" border="1">
<tr>
<td><%=rsnews("tarefas")%></td>
<td><%=rsnews("apost")%></td>
<td><%=rsnews("trab")%></td>
<td><%=rsnews("emp")%></td>
<td><%=rsnews("prova1")%></td>
<td><%=rsnews("prova2")%></td>
<td><%=rsnews("provao")%></td>
<td><%=rsnews("faltas")%></td>
<td><%=recup%></td>
</tr>
<tr>
<td><%=rsnews("2tarefas")%></td>
<td><%=rsnews("2apost")%></td>
<td><%=rsnews("2trab")%></td>
<td><%=rsnews("2emp")%></td>
<td><%=rsnews("2prova1")%></td>
<td><%=rsnews("2prova2")%></td>
<td><%=rsnews("2provao")%></td>
<td><%=rsnews("2faltas")%></td>
<td><%=recup2%></td>
</tr>
</table>
<%rsnews.movenext%>
<%wend%>
<%end if%>
<%
rs.Close
Set rsnews = Nothing
adodataconn.Close
Set adodataconn = Nothing
Qnotas.Close
Set Qnotas = Nothing
%> e quando vou ver, aparece os Records duplicados!!!! Tipo, aparecem 5 vezes o mesmo record, podem me ajuar ?