visualizzare il Response.Write "non ci sono dati"

[dodema]

Ciao a tutti

il mio problema e di far visualizzare in flash, se non trova nessun record la risposta "nessu dato"

Mi riesce ma all'interno della casella dinamica con variabile TITOLO,
mi appare l'intero record e la dicitura
"non ci sono dati".

Ho provato a creare nel filmato una casella di testo con variabile Totale
ma non succede nulla.
ho sbagliato qualcosa in asp oppure in flash
ecco il codice ASP


<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")

' connessione a database Access
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.MapPath("/mdb-database/prova.mdb")
' "Driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/prova.mdb")

dim Param
Param = request.queryString("Param")

dim muovi
muovi = request.queryString("muovi")

objConn.open

Dim objRS, strSQL

set objRS = Server.CreateObject("ADODB.Recordset")

Dim operazione
Dim stringa

if Param <> "" then
if muovi="successivo" then
stringa = " where AD_ID > " + Param + " order by AD_ID ASC"
else
stringa = " where AD_ID < " + Param + " order by AD_ID DESC"
end if
else
stringa = " order by AD_ID DESC "
end if

strSQL = "select * from PROVA " + stringa + ";"

objRS.open strSQL, objConn, 3, 3

Dim Totale
Totale = objRS.RecordCount



dim AD_ID
AD_ID = objRS("AD_ID")

dim DATA
DATA = objRS("DATA")

dim TITOLO
TITOLO = objRS("TITOLO")


Response.Write ("AD_ID=" & AD_ID & "
")

Response.write("&AD_ID=" & AD_ID & "&DATA=" & DATA & "&TITOLO=" & TITOLO)


if Totale = 0 and muovi=0 then
end if
Response.Write "non ci sono dati"



if Totale = 1 and muovi="precedente" then
end if

Response.Write (" ")

if (Totale = 1 and muovi="successivo") or muovi="" then
end if



objRS.close
set objRS = nothing

objConn.close
set objConn = nothing
%>