b'\n_START_ARTICLE_\nASP\n_START_SECTION_\nExemplos de c\xc3\xb3digo ASP\n_START_PARAGRAPH_\nUm exemplo de uma p\xc3\xa1gina ASP conforme os padr\xc3\xb5es web pode ser representado pelo seguinte c\xc3\xb3digo:_NEWLINE__NEWLINE_O exemplo 1 mostra uma tabela com links que aparecer\xc3\xa3o nas colunas iniciais. Clicando em um dos links o exemplo 2 ser\xc3\xa1 chamado e receber\xc3\xa1 um ID como par\xc3\xa2metro.  No exemplo 2 ser\xc3\xa1 permitido alterar as informa\xc3\xa7\xc3\xb5es e ap\xc3\xb3s clicar no bot\xc3\xa3o Submit, o exemplo 3 ser\xc3\xa1 chamado para processar as informa\xc3\xa7\xc3\xb5es e atualiz\xc3\xa1-las no banco de dados em SQL._NEWLINE__NEWLINE_Exemplo 1 (1a parte):_NEWLINE_1    <html>_NEWLINE_2    <head>_NEWLINE_3    <title>dbfullteste1.asp</title>_NEWLINE_4    </head>_NEWLINE_5    <body bgcolor="#FFFFFF">_NEWLINE_6    <body bgcolor="#FFFFFF">_NEWLINE_7    <% _NEWLINE_8    \' Conex\xc3\xa3o com o banco9    set conntemp=server.createobject("adodb.connection")10   conntemp.open "Estudante","Estudante","magic"11   _NEWLINE_12   set rstemp=conntemp.execute("select * from autores where AU_ID<100")13   qtde_campos=rstemp.fields.count -114   %>_NEWLINE_15   <table border="1">_NEWLINE_16   <tr>_NEWLINE_17   <td valign="top">---</td>_NEWLINE_18   <% \'Preenche a primeira linha com o nome dos campos19   for i=0 to qtde_campos %>_NEWLINE_20    <td><b><%=rstemp(i).name %></b></td>_NEWLINE_21   <% next %>_NEWLINE_22   </tr>_NEWLINE_23   <% \' Preenche a tabela com os registros do banco24   do while not rstemp.eof %>_NEWLINE_25   <tr>_NEWLINE_26   <td valign="top"><a HREF="dbfullteste2.asp?str_ID=<%=rstemp("AU_ID")%>">Editar</a></td>_NEWLINE_27   <% for i = 0 to qtde_campos%>_NEWLINE_28    <td valign="top"><% = rstemp.fields(i).value %></td>_NEWLINE_29   <% next %>_NEWLINE_30   </tr>_NEWLINE_31   <% rstemp.movenext32   loop33   conntemp.close%>_NEWLINE_34   </table>_NEWLINE_35   </body>_NEWLINE_36   </html>_NEWLINE__NEWLINE_Exemplo 2 (2a. parte):_NEWLINE_1    <html>_NEWLINE_2    <head>_NEWLINE_3    <title>dbfullteste2.asp</title>_NEWLINE_4    </head>_NEWLINE_5    <body bgcolor="#FFFFFF">_NEWLINE_6    </body>_NEWLINE_7    </html>_NEWLINE_8    <html>_NEWLINE_9    <% \' Conecta com o banco e pega o valor do str_ID permitindo a edicao do registro10   set conntemp=server.createobject("adodb.connection")11   conntemp.open "Estudante","Estudante","magic"12   _NEWLINE_13   ID=request.querystring("str_ID")14   sqltemp="select * from autores where AU_ID=" & ID15   set rstemp=conntemp.execute(sqltemp)16   atual_ID=rstemp("AU_ID")17   atual_nome=rstemp("autor")18   atual_ano_nasc=rstemp("ano_nasc")19   %>_NEWLINE_20   <body>_NEWLINE_21   <form name="meu_autor" action="dbfullteste3.asp" method="GET">_NEWLINE_22   <p>ID: <input type="TEXT" name="id" value="<%=atual_id%>"></p>_NEWLINE_23   <p> Nome do autor: <input type="TEXT" name="nome" value="<%=atual_nome%>"></p>_NEWLINE_24   <p> Ano de Nascimento: <input type="TEXT" name="ano" value="<%=atual_ano_nasc%>"></p>_NEWLINE_25   <p> <input type="SUBMIT"> </p>_NEWLINE_26   </form>_NEWLINE_27   </body>_NEWLINE__NEWLINE_Exemplo 3 (parte):_NEWLINE_1    <html><head>_NEWLINE_2    <title>dbfullteste3.asp</title>_NEWLINE_3    <body bgcolor="#FFFFFF"></head>_NEWLINE_4    <%5    on error resume next6    au_nome=request.querystring("nome")7    \' Corrige os ap\xc3\xb3strofos8    au_nome=Replace(au_nome, "\'", "\'\'") _NEWLINE_9    _NEWLINE_10   au_ano=request.querystring("ano")11   au_ID=request.querystring("ID")12   Set Conn = Server.CreateObject("ADODB.Connection")13   conn.open "Estudante","Estudante","magic"14   _NEWLINE_15   SQLstmt = "UPDATE autores "16   SQLStmt = SQLstmt & "SET autor=\'" & au_nome & "\',"17   SQLstmt = SQLstmt & "ano_nasc=" & au_ano _NEWLINE_18   SQLStmt = SQLStmt & " WHERE AU_ID=" & au_ID _NEWLINE_19   Set RS = Conn.Execute(SQLStmt)20   If err.number>0 then21    response.write "Ocorreram erros no script:" & "<P>"22    response.write "N\xc3\xbamero=" & err.number & "<P>"23    response.write "Descri\xc3\xa7\xc3\xa3o=" & err.description & "<P>"24    response.write "Help Context=" & err.helpcontext & "<P>" _NEWLINE_25    response.write "Help Path=" & err.helppath & "<P>"26    response.write "Native Error=" & err.nativeerror & "<P>"27    response.write "Source=" & err.source & "<P>"28    response.write "SQLState=" & err.sqlstate & "<P>"29   else30    response.write "Nenhum problema aconteceu!" & "<P>"31   end if32   IF conn.errors.count> 0 then33    response.write "Ocorreram erros com o banco de dados" & "<P>"34    response.write SQLstmt & "<P>"35   for counter= 0 to conn.errors.count36    response.write "N\xc3\xbamero do erro:" & conn.errors(counter).number & "<P>"37    response.write "Descri\xc3\xa7\xc3\xa3o --> " & conn.errors(counter).description & "<P>"38   next39   else40    response.write "Parece que tudo est\xc3\xa1 ok. O Autor foi atualizado!" & "<P>"41   end if42   Conn.Close43   %>_NEWLINE_44   </body>_NEWLINE_45   </html>_NEWLINE__NEWLINE_Exemplo 4: Exemplo em ASP.Net de uma rotina de falha no ISS._NEWLINE_        <location path="http://www.exemplo.com.br"> _NEWLINE_            <system.webServer> _NEWLINE_                <tracing> _NEWLINE_                    <traceFailedRequests> _NEWLINE_                        <add path="*"> _NEWLINE_                            <traceAreas> _NEWLINE_                                <add provider="WWW Server" areas="Security" verbosity="Verbose" /> _NEWLINE_                            </traceAreas> _NEWLINE_                            <failureDefinitions statusCodes="404.2" /> _NEWLINE_                        </add> _NEWLINE_                    </traceFailedRequests> _NEWLINE_                </tracing> _NEWLINE_            </system.webServer> _NEWLINE_        </location>'