if isdate(SqlInfo(11,i)) then if CDate(SqlInfo(11,i))=date() then sTemp = sTemp & "" else sTemp = sTemp & "" end ifelse sTemp = sTemp & ""end if