Problema curioso con fechas

[freesoftwarrior]

Buenos días:
Tengo el siguiente código

If Tabla1("fecha")="" Then
Response.Write ("fecha no disponible")
Else
Response.Write(FormatDateTime(Tabla1("fecha"),1))
End If

pero no me reconoce cuando no hay fecha, siempre, aún cuando el campo esta vacío completamente, se pasa a la siguiente opción y arroja un error en el formato de fecha (el formatdatetime).

Probé con Len(Tabla1("fecha"))=0 y es lo mismo.

¿Alguna idea?. Lo que busco es que si no hay fecha muestre un mensaje, así de simple.

Un saludo desde Lima, Perú

[dicuenca77]

Prueba con la función:

Isdate(fecha)

Devuelve TRUE si la fecha es válida y FALSE en caso contrario.

[freesoftwarrior]

Mil gracias, funcionó de mil maravillas