Modularidade. Os exemplos utilizam um DSN, mas voce pode executa-los sem. 12 dblist.asp34 <%5 ' Conexao com o Database6 set conntemp=server.createobject("adodb.connection")7 ' DSN usuario senha8 conntemp.open "Estudante","Estudante","magic"9 set rstemp=conntemp.execute("select autor from autores where AU_ID<100")10 %>11 12 13 <% ' Loop para preencher os nomes14 do while not rstemp.eof %>15 <%=RStemp(0)%> 16 <% rstemp.movenext17 loop18 conntemp.close%>19 20 2122 Adicionando Registros com o metodo ADO Add New 1 dbnewADO.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 ' DSN usuario senha11 conn.open "Estudante","Estudante","magic"12 Set RS = Server.CreateObject("ADODB.Recordset")13 RS.Open "autores",Conn,3,314 RS.AddNew15 RS("AU_ID")=auid16 RS("autor") = aunome17 RS("ano_nasc")= int(auano)18 RS.Update19 RS.Close20 Conn.Close21 If err.number>0 then22 response.write "Ocorreram Erros:" & ""23 response.write "Numero=" & err.number & ""24 response.write "Descricao=" & err.description & ""25 response.write "Help Context=" & err.helpcontext & ""26 response.write "Help Path=" & err.helppath & ""27 response.write "Native Error=" & err.nativeerror & ""28 response.write "Source=" & err.source & ""29 response.write "SQLState=" & err.sqlstate & ""30 else31 response.write "Nenhum erro apareceu!" & ""32 end if33 IF conn.errors.count> 0 then34 response.write "Ocorreram erros no Database!" & ""35 for counter= 0 to conn.errors.count36 response.write "Numero " & conn.errors(counter).number & ""37 response.write "Descricao -> " & conn.errors(counter).description & ""38 next39 else40 response.write "Nenhum ocorreu no Database!" & ""41 end if42 %>4344 Adicionando Registros com Statement SQL Esta pagina demonstra como adicionar registros em um Database com um statement sql. Para melhor entender o exemplo, suponha que a pagina chamada seja: http://www.geap.com.br/tutorial_asp/asp_dbnewSQL.asp?nome="Alexandre Barreto"&id=9000&ano=1974 1 dbnewrecSQL.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 ' DSN usuario senha11 conn.open "Estudante","Estudante","magic"12 SQLStmt = "INSERT INTO autors (AU_ID,autor,ano_nasc) "13 SQLStmt = SQLStmt & "VALUES (" & auid14 SQLStmt = SQLStmt & ",'" & aunome & "'"15 SQLStmt = SQLStmt & "," & int(auano) & ")"16 Set RS = Conn.Execute(SQLStmt)17 If err.number>0 then18 response.write "Ocorreram Erros:" & ""19 response.write "Erro 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 "Nao ocorreram erros!!" & ""28 end if29 IF conn.errors.count> 0 then30 response.write "Ocorreram erros no 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 next35 else36 response.write "Nao ocorreram erros no Database!" & ""37 end if38 Conn.Close39 %>4041 Abrindo Databases Qualquer script ASP que precisa conectar em um database, deve primeiramente abri-lo no servidor. Para isso existem duas formas: uma conexao via DSN uma conexao sem DSN Uma conexao via DSN requer que o Administrador do banco ou da rede, configure um DSN no servidor Internet/Intranet usando o Painel de Controle (ODBC 32 bits) ou utilize um componente ASP que implementado no seu script pode fazer mudancas na registry do servidor e criar o DSN necessario. Esses componentes sao de terceiros e podem ser encontrados em sites especializados em ASP. Conexoes via DSN geralmente requerem um nome de DSN, um usuario e uma senha. Abaixo temos o codigo