archivos de texto y arreglos

[AlZuwaga]

Creo saber de que se trata...

Estoy seguro que tenés el servidor en inglish (o la configuración regional, no lo se) y cuando tenés una fecha como la de hoy (17/06/03) en el archivo, el script interperta al "17" como el mes (mes = month(sDate)) y como no existe ese mes, se cae.

cambiá esto:

dia = day(sDate)
mes = month(sDate)
ano = year(sDate)


por esto:

dia = Left(sDate, 2)
mes = Mid(sDate, 4, 2)
ano = Right(sDate, 2)


una posible solución para "que no inserte dos veces lo mismo" es crear un nuevo archivo vacío. colocá la siguiente línea luego del "next":

Set CrearNuevoEnBlanco = FSO.CreateTextFile(Server.MapPath("REPORTES.txt"), TRUE)


ahh.. y recordá destruir todas las cosas que instanciaste con SET al final...

Set FSO = Nothing
Set CrearNuevoEnBlanco = Nothing
... etc


saludos