debugar problemas. 1 dbg.asp234 <%5 Response.Write("VARIAVEIS DO FORMULARIO:")6 Response.Write("-------------------------------")7 For Each Key in Request.Form8 Response.Write( Key & " = " & Request.Form(Key) & "")9 Next1011 Response.Write("VARIAVEIS QUERY STRING:")12 Response.Write("------------------------------")13 For Each Key in Request.QueryString14 Response.Write( Key & " = " & Request.QueryString(Key) & "")15 Next1617 Response.Write("VARIAVEIS TIPO COOKIE:")18 Response.Write("-----------------------------")19 For Each Key in Request.Cookies20 Response.Write( Key & " = " & Request.Cookies(Key) & "")21 Next2223 Response.Write("VARIAVEIS DE SERVIDOR:")24 Response.Write("-----------------------------")25 For Each Key in Request.ServerVariables26 Response.Write( Key & " = " & Request.ServerVariables(Key) & "")27 Next28 %>2930 Rotina de Erro Esta pagina demonstra uma rotina basica para tentar interpretar alguns erros que podem ser de script ou de banco de dados. Aconselho sempre usar esse tipo de rotina em todos os arquivos ASP que fazem acesso a Banco de Dados. E espero que ele nunca seja executado em seus programas... <% on error resume next...Set Conn = Server.CreateObject("ADODB.Connection")...SQLstmt = "..."Set RS = Conn.Execute(SQLStmt)If err.number>0 then%>Ocorreram Erros no Script:Numero do erro=<%=err.number%>Decricao do erro=<%=err.description%>Help Context=<%=err.helpcontext%>"Help Path=<%=err.helppath%>Native Error=<%=err.nativeerror%>Source=<%=err.source%>SQLState=<%=err.sqlstate%><%else%>Nenhum problema aconteceu!<%end ifIF conn.errors.count> 0 then%>Ocorreram erros com o Database<%=SQLstmt%><%for counter= 0 to conn.errors.count%>Erro #<%=conn.errors(counter).number%>Descricao -><%=conn.errors(counter).description%><%nextelse%>Nenhum erro com o Database<%end ifConn.Close%> Funcoes O exemplo abaixo e de uma funcao que recebe um numero (mes) e converte para o valor em extenso (nome). A declaracao de funcoes segue o esquema abaixo. Como dissemos anteriormente, e bom ter um arquivo Include com todas as funcoes usadas por um determinado sistema ou pagina, semelhante aos modulos do VB. 1 <%functions.asp2 Public Function MesExtenso (mes)3 Select Case mes4 Case 15 MesExtenso = "Janeiro"6 Case 27 MesExtenso = "Fevereiro"8 Case 39 MesExtenso = "Marco"10 Case 411 MesExtenso = "Abril"12 Case 513 MesExtenso = "Maio"14 Case 615 MesExtenso = "Junho"16 Case 717 MesExtenso = "Julho"18 Case 819 MesExtenso = "Agosto"20 Case 921 MesExtenso = "Setembro"22 Case 1023 MesExtenso = "Outubro"24 Case 1125 MesExtenso = "Novembro"26 Case 1227 MesExtenso = "Dezembro"28 End Select29 End Function Content Rotator Esta pagina demonstra a funcionalidade do componente Content Rotator. O script e simples. 123 cr.asp456 <%7 Set Dica = Server.CreateObject("IISSample.ContentRotator")8 response.write "Este e o meu conselho:"9 response.write Dica.ChooseContent("/dicas/dicas.txt")10 %>1112 O arquivo Dicas.txt pode se parecer com o seguinte: 1 %%#32 Cante sempre que estiver tomando banho.3 %%#34 Planeje o seu dia logo no inicio da manha.5 %%#36 Tenha pelo menos 8 horas de sono por dia! Funcoes para String As funcoes para String sao muito uteis para passar dados para ASCII, formatar saidas complexas e entradas para formularios, por exemplo. O seguinte script e so uma amostra da funcao MID. A maioria das funcoes de formatacao de string utilizadas no VB podem ser usadas aqui no ASP. Mais abaixo existem alguns exemplos. 1 strings.asp23 <% Dim teste4 teste="Hello. How are you today Student."5 response.write ("teste=" & teste)6 response.write ("mid(teste,1,5)=" & mid(teste,1,5))7 %>8 Outras funcoes do VBScript Asc, AscB, AscW, Chr, ChrB, ChrW, Filter, Instr, InStrB, InstrRev, Join, Len, LenB, LCase, UCase, Left, LeftB, Mid, MidB, Right, RightB, Replace, Space, Split, StrComp, String, StrReverse, LTrim, RTrim, Trim Subrotinas Subrotinas servem basicamente para poupar a repeticao de tarefas. O exemplo abaixo ilustra uma simples subrotina para formatar uma string. Lembrando