error función para acomodar fecha

[impio_joe]

Hola actualice mi compu a Windows XP y no me deja utilizar una función que acostumbro para arreglar el formato de la fecha que tomo de una base de datos antes de desplegarlo en la página: me marca lo siguiente:

Tipo de error:
Error de compilación de Microsoft VBScript (0x800A03EA)
Error de sintaxis
/Default.asp, línea 163
Function FechaArreglada (Lafecha)

la función completa es esta:

<%
Function FechaArreglada (Lafecha)
Dim Dia, Mes, Anio
Dia=Right(Lafecha,2)
Mes=Mid(Lafecha, 5, 2)
select case Mes
case 01
Mes="enero"
case 02
Mes="febrero"
case 03
Mes="marzo"
case 04
Mes="abril"
case 05
Mes="mayo"
case 06
Mes="junio"
case 07
Mes="julio"
case 08
Mes="agosto"
case 09
Mes="septiembre"
case 10
Mes="octubre"
case 11
Mes="noviembre"
case 12
Mes="diciembre"
case else
Mes=Mid(Lafecha, 5, 2)
end select
Anio=Left(Lafecha, 4)
Lafecha= Dia & "/" & Mes & "/" & Anio
FechaArreglada=Lafecha
End Function
%>

no se porqué no me deja utilizar la función si esta misma la uso en otra pag. en internet y jala bien

está mal declarada?? o qué pex??

Espero que alguien me pueda ayudar, se lo agradeceré mucho

[impio_joe]

Ejem, ejem, pues resulta que el error era que la función la metí en un
DO While NOT...

y no me había dado cuenta, je,je

por eso no funcaba, bueno que sirva de ejemplo de lo que NO se les debe olvidar checar.

Y yo que tanto sufrí anoche , pero bueno hoy desperte menos tarugo... creo :-p

GRACIAS A TODOS LOS QUE SE TOMARON LA MOLESTIA DE CHECAR EL POST!!