•<Script runat=“server”
language=“vb”>
•Dim strAux As String ‘Page level variable
•Private Sub AtualizaDados()
•‘ As funções devem ser
declaradas agora
•‘ dentro da tag script.
•Select Case strAux
•Case “SQL”
• AtualizaSQL
•Case “Oracle”
• AtualizaOracle
•Case Else
• AtualizaODBC
•End Sub
•</Script >