Growmedia.net

Función para cortar una cadena de texto hasta donde lo limitemos:

Variables: texto - Cadena a cortar (texto - string)
                   max  - Número de carácteres a mostrar (númerico - int)

function cortarcadena (texto,max)
m = 0
Maximo = max       ' Tamaño máximo permitido'
Cadena = texto
If len ( Cadena ) > Maximo Then
    Cadena2 = Split ( Cadena, " " )
    Cadena = ""
    Do While len ( Cadena ) + len ( Cadena2 ( m ) ) < Maximo
       Cadena = Cadena & " " & Cadena2 (m )
       m = m + 1
    Loop
End if
response.write ( Cadena )
end function

Función muy útil para saber cual es el último día del mes que le pasamos a la función. 

'Función para saber cuál es el último día del mes'
'Variables: imonth - variable númerica del mes (Ej: Enero = 0, Febrero = 1 ...)'
'           iyear  - variable númerica del año (Ej: 2009, 2010 ...)'
function ultimDiaMes(imonth, iyear)
   nextmonth = dateadd("m", 1, dateserial(iyear, imonth, "01"))
   ultimDiaMes = day(dateadd("d", -1, nextmonth))
end function

Uso:

ultimDia = ultimDiaMes(mes,any)
'Imprimir en pantalla el último dia del mes (númerico)'
response.write ultimDia