Campo vuoto

[Mattatore2]

Vorrei fare un ciclo if su un campo di un database, se il campo "data" è vuoto deve comparire la scritta "Nazione vuota" se non è vuota allora mi compare il dato che è nel campo del database...ma non funziona così:

<%
Dim conn5
Dim rs5
Dim sSql5
Dim aggiornata
'Imposto la connessione
Set conn5 = Server.CreateObject("ADODB.Connection")
conn5.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/banconote.mdb")

'Imposto la stringa SQL di selezione dati


sSql5 = "Select MAX(data) as aggiornata from banconote where numero="&numero&""

'Creo e apro il Set di Record
Set rs5 = Server.CreateObject("ADODB.Recordset")
rs5.Open sSql5, conn5, 3, 3
%><%
if rs5("data") = "" then <-------Errore
Response.write ("Nazione Vuota")
else
Response.Write (rs5("aggiornata"))
end if
%> <%'Chiudo il recordset e libero la memoria
rs5.Close
Set rs5 = Nothing
'Chiudo la connessione al database e libero la memoria
conn5.Close
Set conn5 = Nothing
%>


questo è l'errore: ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/catalogo/tipocatalogo.asp, line 896

Grazie

[Mattatore2]

ho sostituito... ma mi da questo errore:
ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/catalogo/tipocatalogo.asp, line 896



il campo è di tipo data!

[Mattatore2]

come devo fare allora? (grzie ancora)

[Mattatore2]

si voglio estrarre il valore più grande e metterlo in "aggiornata"...
Ora vorrei che se aggiornata è piena mi scrivesse il valore o pure la se è vuota mi scrive la stringa "NAZIONE VUOTA". ho modificato così ma non mi da niente a video:

<%
if rs5("aggiornata") ="" then
Response.write ("Nazione Vuota")
else
Response.Write (rs5("aggiornata"))
end if
%>

[Mattatore2]

Nessun saluzione?