Subrotinas
Subrotinas servem basicamente para poupar a repetição de tarefas. O exemplo abaixo ilustra uma simples subrotina para formatar uma string. Lembrando que as subrotinas também podem ficar nos arquivos tipo Include.
1 <%response.buffer=false%>
2 <html><head>
3 <title>subs.asp</title></head>
4 <body
bgcolor="#FFFFFF">
5 <br><br>
6 Fazer uma conexão
com o banco de dados de contratado, por exemplo.
7 Montar um recordset
com o nro do contratado e outras informações quaisquer.
8 Dim
NroContratado
9 Nrocontratado
= RS("NroContratado")
10 ZerosAEsquerda
NroContratado, 8
11 Response.write
NroContratado
12
13 ' Acrescenta zeros a
esquerda da string até um tamanho máximo para a string
14 '
15 Public Sub
ZerosAEsquerda (ByRef strString, intTamString)
16 If IsNull(strString)
Then
17 strString =
String(intTamString, "0")
18 Else
19 strString =
String(intTamString - Len(strString), "0") &
strString
20 End If
21 End Sub
22 </body></html>
Copyright (c) 1998 - Alexandre Barreto