Ir para conteúdo
Fórum Script Brasil

Ivan_puppets1

Membros
  • Total de itens

    2
  • Registro em

  • Última visita

Sobre Ivan_puppets1

Ivan_puppets1's Achievements

0

Reputação

  1. Pior que não....................só tem os primeiros dados realmente, que será que é ?
  2. 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 ?
×
×
  • Criar Novo...