dato non trovato visualizzare messaggio di errore

[djjunior]

Carissimi,
ho questo script ma se non trova il dato non mi visualzza il messaggio di errore ma:

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

Dove sbaglio?

<select size="1" name="con">
<option value="">Seleziona</option> 
<%
sql = "SELECT * FROM ese WHERE codice = '" & request.form("condo") &"'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3

If rs.EOF Then
%>

<font face="Tahoma" size="2">[b]Nessun dato disponibile[b]</font>
<%
else
Do While Not rs.EOF	
%>
<option value="<%=rs("ese")%>"><%=rs("ese")%></option> 
<%
rs.MoveNext
Loop
end if
rs.Close
set rs = Nothing
%>							
</select>

Grazie
G.

[Roby_72]

Al di là dell'errore se il campo "codice" è testo la query è sbagliata e se è numerico è sbagliata lo stesso...

Roby

[djjunior]

comunque se il dato è presente la query funziona correttamente, il campo codice contiene numeri ma è memo.
Il mio problema è relativo solo alla visualizzazione dell'errore se non presente nel db
Grazie
G.

[Roby_72]

Scusa la query è giusta, ne vedevo solo un pezzo...
Prova ad invertire:

if not rs.EOF then
...'scorri
else
...'mandi messaggio
end if

Roby

[djjunior]

grazie ho provato così ma stessa cosa:

<select size="1" name="con">
<option value="">Seleziona</option> 
<%
sql = "SELECT * FROM esercizio WHERE codice = '" & request.form("condo")&"'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
if not rs.EOF then
rs.MoveFirst 
Do Until rs.EOF
%>
<option value="<%=rs("ese")%>"><%=rs("ese")%></option> 
<%
rs.MoveNext
Loop
%>
<%
else
%>
<font face="Tahoma" size="2">[b]Nessun dato disponibile[b]</font>
<%
end if
rs.Close
set rs = Nothing
%>							
</select>

[Roby_72]

Credo che il problema sia comprensibilmente il campo di tipo MEMO.
Trasformalo in testo almeno.

Roby

[djjunior]

convertito in testo ma stesso errore....

[Roby_72]

Prova
Do While not rs.EOF

Roby

[djjunior]

stessa cosa

[Massimo61]

Ciao,

il messaggio <font face="Tahoma" size="2">[b]Nessun dato disponibile[b]</font>

sta tra <select> e </select> quindi non lo vedresti a video ma

<select size="1" name="con">
<option value="">Seleziona</option>
<font face="Tahoma" size="2">[b]Nessun dato disponibile[b]</font>
</select>

deve stare fuori

<%
sql = "SELECT * FROM ese WHERE codice = '" & request.form("condo") &"'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3

If rs.EOF Then
%>
<font face="Tahoma" size="2">[b]Nessun dato disponibile[b]</font>
<% end if %>
<select size="1" name="con">
<option value="">Seleziona</option> 

<%
'else
Do While Not rs.EOF	
%>
<option value="<%=rs("ese")%>"><%=rs("ese")%></option> 
<%
rs.MoveNext
Loop
end if
rs.Close
set rs = Nothing
%>							
</select>

il campo si chiama codice e la tabella ese?

Massimo.