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
%>
