que abre um banco com DSN igual a "estudante", usuario igual a "estudante" e uma senha igual a "magic". Isso segue o mesmo procedimento realizado nos relatorios do sistema de pagamento. 1 set conntemp=server.createobject("adodb.connection")2 conntemp.open "estudante","estudante","magic"3 set rstemp=conntemp.execute("select * from autor") O que acontece se nao tivermos um DSN? Se voce conhece o nome do arquivo (baseado em databases como Access, Paradox, FoxPro, etc.) ou o nome do Data Source (SQLserver por exemplo) tudo pode ser resolvido. Abaixo esta uma maneira de abrir um Data Source sem um DSN. Note que voce deve conhecer o path completo do arquivo no servidor, isto e, msapgt.mdb nao e suficiente. E preciso ter "Z:\users\pagamento\msapgt.mdb". Existe uma funcao no ASP chamada server.mappath que pega um nome de arquivo e retorna o path completo do arquivo no servidor, mas nao e muito segura. 1 set conntemp=server.createobject("adodb.connection")2 cnpath="DBQ=" & server.mappath("sua_tabela.mdb")3 conntemp.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath4 set rstemp=conntemp.execute("select * from autor") Aqui estao os tipos mais comuns de nomes para drives ODBC que voce pode precisar: Para Access --> driver = {Microsoft Access Driver (*.mdb)};Para SQL -----> driver = SQL Server; Tabela com consulta SQL Esta pagina demonstra a utilizacao de tabela construida a partir de uma consulta SQL. 1 dbtable.asp23 <%4 ' Programa ASP que se comunica com um database5 set conntemp=server.createobject("adodb.connection")6 ' DSN, usuario e senha7 conntemp.open "Student","student","magic"8 set rstemp=conntemp.execute("select * from authors where AU_ID<100")9 qtde_campos=rstemp.fields.count -110 %>11 1213 <% 'Coloca o cabecalho de cada coluna com o nome do campo14 for i=0 to qtde_campos %>1516 <% next %>1718 <% ' Preenche a tabela com os registros19 do while not rstemp.eof %>2021 <% for i = 0 to qtde_campos%>2223 <% next %>2425 <% rstemp.movenext26 loop27 conntemp.close%>28 <%=rstemp(i).name %><% = rstemp.fields(i).value %>2930 Atualizando Registros Esta pagina demonstra a funcionalidade de se atualizar registros em um database atraves de uma consulta SQL. Supomos que o arquivo ASP seja chamado da seguinte forma:dbupdate.asp?nome=Alexandre&id=9000&ano=1901 O script abaixo faz uma atualizacao no sql atraves do statement Update. E aconselhavel que todas as inclusoes, alteracoes e exclusoes no sql seja feita atraves de Stored Procedures. Assim, fica mais facil controlar permissoes de execucao e seguranca ainda maior com relacao aos codigos. 1 dbupdate.asp234 <%5 on error resume next6 aunome=request.querystring("nome")7 auano=request.querystring("ano")8 auID=request.querystring("ID")9 Set Conn = Server.CreateObject("ADODB.Connection")10 conn.open "Estudante","Estudante","magic"1112 SQLstmt = "UPDATE autores "13 SQLStmt = SQLstmt & "SET autor='" & aunome & "',"14 SQLstmt = SQLstmt & "ano_nasc=" & auano15 SQLStmt = SQLStmt & " WHERE AU_ID=" & auid16 Set RS = Conn.Execute(SQLStmt)17 If err.number>0 then18 response.write "Ocorreram erros no Script:" & ""19 response.write "Numero =" & err.number & ""20 response.write "Descricao =" & err.description & ""21 response.write "Help Context=" & err.helpcontext & ""22 response.write "Help Path=" & err.helppath & ""23 response.write "Native Error=" & err.nativeerror & ""24 response.write "Source=" & err.source & ""25 response.write "SQLState=" & err.sqlstate & ""26 else27 response.write "Nenhum problema aconteceu!" & ""28 end if29 IF conn.errors.count> 0 then30 response.write "Ocorreram erros com o Database" & ""31 for counter= 0 to conn.errors.count32 response.write "Numero " & conn.errors(counter).number & ""33 response.write "Descricao -> " & conn.errors(counter).description & ""34