que as subrotinas tambem podem ficar nos arquivos tipo Include. 1 <%response.buffer=false%>23 subs.asp456 Fazer uma conexao com o banco de dados de contratado, por exemplo.7 Montar um recordset com o nro do contratado e outras informacoes quaisquer.8 Dim NroContratado9 Nrocontratado = RS("NroContratado")10 ZerosAEsquerda NroContratado, 811 Response.write NroContratado1213 ' Acrescenta zeros a esquerda da string ate um tamanho maximo para a string14 '15 Public Sub ZerosAEsquerda (ByRef strString, intTamString)16 If IsNull(strString) Then17 strString = String(intTamString, "0")18 Else19 strString = String(intTamString - Len(strString), "0") & strString20 End If21 End Sub22 Funcoes de Browser (Browser Capabilites) O script abaixo demonstra a maioria das propriedades usadas do componente Browser Capabilites. 12 asp_browser.htm34 <% Set bc = Server.CreateObject("MSWC.BrowserType") %>5 Browser Name: <%= bc.browser %>6 Browser Version: <%= bc.version %>78 <% if (bc.frames = TRUE) then %>9 Voce pode usar frames10 <% else %>11 Voce nao pode usar frames12 <% end if %>13 <% if (bc.tables = TRUE) then %>14 Voce pode usar tabelas15 <% else %>16 Voce nao pode usar tabelas17 <% end if %>18 <% if (bc.BackgroundSounds = TRUE)then %>19 Voce me permite tocar musicas20 <% else %>21 Voce nao colocou musicas no codigo22 <% end if %>2324 <% if (bc.vbscript = TRUE) then %>25 Voce pode rodar script da linguagem VBscript26 <% else %>27 Voce nao pode rodar script da linguagem VBscript28 <% end if %>2930 <% if (bc.javascript = TRUE) then %>31 Voce pode rodar script da linguagem JScript32 <% else %>33 Voce nao pode rodar script da linguagem JScript34 <% end if %>3536 Select Case Usando IF-THEN pode ser incomodo e propenso a ter erros de programacao e lentidao na execucao. Uma construcao mais eficiente e o SELECT CASE que utiliza uma variavel com varias condicoes. 12 asp_case.asp34 5 Your First Name6 Your Last Name7 8 Este e o select case que determinara o que significa cada input do usuario. 12 caserespond.asp34 <%5 fname=request.querystring("Firstname")6 lname=request.querystring("Lastname")7 salary=request.querystring("Salary")8 %>9 Nice to Meet You <%=fname%> <%=lname%>10 <%If fname="" then%>11 Sorry we are not on a first name basis...12 <%end if13 select case lcase(lname)14 case "washington","adams"15 response.write "The first president has same last name"16 case "jefferson"17 response.write "The third president has same last name"18 case "lincoln"19 response.write "The sixteenth president has same last name"20 end select%>21 Select Case - Exemplo 2 Usando IF-THEN pode ser incomodo e propenso a ter erros de programacao e lentidao na execucao. Uma construcao mais eficiente e o SELECT CASE que utiliza uma variavel com varias condicoes. 12 asp_case2.asp34 5 Your First Name6 Your Last Name7 Your Title8 Entry Level9 Temporary Employee10 Management Candidate11 Executive12 The Vice President of...13 The Boss14 15 Este e o select case que determinara o que significa cada input do usuario. 12 case2respond.asp34 <%fname=request.querystring("Firstname")5 lname=request.querystring("Lastname")6 title=request.querystring("title")7 response.write "Nice to Hire You " & fname & " " & lname & ""8 Select Case lcase(Title)9 case "employee","temp"10 response.write("The washroom is in the hall")11 case "manager","executive"12 response.write("Here is your key to the Executive washroom")13 case "CEO", "vice-prez"14 response.write("The maid will attend to your private washroom")15 End Select%>16 Banco de Dados na WEB Banco de Dados e a razao para