Le he puesto la función IsNull, pero sigue igual...
Código:
Dim rst, sqltext, UltimoEvento
set rst = Server.CreateObject("ADODB.RecordSet")
sqltext = "SELECT TOP 1 Fecha FROM UsuariosEventos WHERE (Fecha < #"&FechaEventos&"# OR Fecha is null) AND (idusuario="&usuario&" OR usuario is null) ORDER BY Fecha DESC"
rst.Open sqltext, cnn
if IsNull(rst("Fecha")) then
UltimoEvento = "01-01-2008"
else
UltimoEvento = rst("Fecha")
end if
strSQL = "INSERT INTO UsuariosEventos (idusuario,idevento,Fecha) VALUES('"&usuario&"','"&evento&"','"&UltimoEvento&"')"
Cnn.Execute(strSQL)
No estoy seguro de estar usandola adecuadamente
Gracias Myakire...