messaggi a video

[teomano]

Dato il seguente codice come posso mettere un messaggio a video di "ricerca in corso" fino a che rs.EOF e un messaggio che avvisi che la ricerca non ha trovato nessun criterio corrispondente?

Ho provato ma è meglio che mi do all'ippica. Potete aiutarmi?

Set Rs=Server.createobject("ADODB.Recordset")
SQLStr="Select * from VTOPSQLSEARCH where ISNULL(DESCRIZION,' ') like '%" & Cerca & "%' or ISNULL(DED_FILE,' ') like '%" & Cerca & "%' or ISNULL(MATERIALE,' ') like '%" & Cerca & "%' or ISNULL(DISEGNATOR,' ') like '%" & Cerca & "%' or ISNULL(PRJ,' ') like '%" & Cerca & "%'or TIPO like '%" & Cerca & "%'"
rs.open SQLStr, cn
Do while NOT Rs.EOF
if Colore Mod 2 = 0 Then
strColore = "#DDDDDD" Else
strColore = "#ffffff"
End if
link = left(rs("DED_DIS"),1)
link2 = mid(rs("DED_DIS"), 3, 3)
link3= "db/" + link + "/" + link2 + "/" + rs("DED_FILE") + ".dwg"
%>


..........


<%
Rs.MoveNext
Colore = Colore + 1
loop
Rs.close
Set Rs = Nothing
%>

[teomano]

ho provato ad inserire questo:

<%
Rs.MoveNext
Colore = Colore + 1
loop
if not rs.EOF then
response.write("Ricerca in corso")
else
response.write("Ricerca terminata")
end if
Rs.close
Set Rs = Nothing
%>

Ricerca terminata si vede alla fine mentre ricerca in corso non compare. why?

[teomano]

dovrei sempre qui il messaggio "ricerca terminata senza successo"? se si come posso fare?