Hola Alemán, si bien Vb o VBScript no son lenguajes hasta su proxima versión lenguajes orientados a objetos, si puedes crear las clases e instanciar los objetos.
Un ejemplo:
la clase
<%
Class Escribir 'Carlos de la Orden Dijs -- http://www.aspfacil.com --
Dim iEstilo
Public Property Let DefEstilo ( valor )
'Define el estilo HTML del texto.
'Acepta:
'0 para escribir normal
'1 para escribir en negrita <b></b>
'2 para escribir en cursiva <i></i>
'3 para escribir subrayado <u></u>
select case CInt(valor)
case 1
iEstilo = 1
case 2
iEstilo = 2
case 3
iEstilo = 3
case else
'0 u otros valores
iEstilo = 0
end select
End Property 'DefEstilo
Public Sub Escribir ( cadena )
'Escribe una cadena con el estilo actual
Response.Write ( DarFormato(cadena) )
End Sub 'Escribir
Public Sub EscribirLinea ( cadena )
'Escribe una cadena con un <BR> y un retorno de carro al final
'Util para generar código HTML "bonito"
'Llama al procedimiento anterior
Response.Write ( DarFormato(cadena) & "<br>" & VbCrLf )
End Sub 'EscribirLinea
Private Function DarFormato ( cadena )
'Funcion privada, que añade las marcas HTML
'correspondientes al estilo actual
select case iEstilo
case 1
DarFormato = "<b>" & cadena & "</b>"
case 2
DarFormato = "<i>" & cadena & "</i>"
case 3
DarFormato = "<u>" & cadena & "</u>"
case else
DarFormato = cadena
end select
End Function 'DarFormato
End Class 'Escribir
%>
-----------> Continúa
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>