%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>



|
Já procurou um conteúdo para fazer um trabalho e, não achando na internet, pensou: "gostaria de ter uma boa biblioteca aqui"? Então, precisamos de uma biblioteca voltada para o curso de Programação Visual e mais referências bibliográficas para os projetos desenvolvidos durante o curso. Se solicitarmos aos professores uma referência bibliográfica de acordo com cada matéria oferecida, poderemos checar a existência dos livros na biblioteca da EBA e avaliar a possibilidade de solicitar os livros com a direção da EBA. |
|
quero participar
<%
set conexao=server.CreateObject("Adodb.connection")
set tabela=server.CreateObject("Adodb.recordset")
banco="driver={driver do microsoft access (*.mdb)}; dbq="&server.MapPath("ufrj.mdb")
conexao.open banco
sql="select * from interessados where projeto_interessado like 'biblioteca'"
tabela.open sql,conexao,3,3
if not tabela.eof then
%>
|
|
Interessados até o momento: | <% while not tabela.eof if tabela("apelido_interessado") <> "" then %> <%= tabela("apelido_interessado") %> <% else %> <%= tabela("nome_interessado") %> <% end if %> (<%= tabela("periodo_interessado") %>º) | <% tabela.movenext wend end if tabela.close conexao.close %> |






