visualizzare le ultime 5 immagini

vatuss

Ciao, nel tentivo di risolvere da solo ho modificato così una porzione di codice:
da
<%
a_strSQL = "Select * From news where Data ORDER by Data desc"
Set catRS = Server.CreateObject ("ADODB.Recordset")
catRS.Open a_strSQL, objConn
%>

a
<%
a_strSQL = "Select * From news where Data ORDER by Data desc"
Set catRS = Server.CreateObject ("ADODB.Recordset")
catRS.Open a_strSQL, objConn
i=0
do until i=5 or catRS.EOF
i=i+1
%>

adesso ho questo errore:
Microsoft VBScript compilation error '800a03fb'
Expected 'Loop'

la riga a cui si riferisce è:
set catRS=Nothing

si può risolvere?
Buonaserata

marcocarrieri

Sbaglio o vedo solo un do until i=5 or catRS.EOF? Manca il terminatore di ciclo.
Appunto la parola Loop.
All'interno va inserito il codice che deve essere "ciclato".

vatuss

E' alla fine della pagina:

<%
catRS.MoveNext
Loop
catRS.close
set catRS=Nothing
%>

dove devo inserirlo?
Ciao e grazie

vatuss

Buonasera, un riepilogo.
Con il nuovo codice ho eliminato l'errore sul loop, adesso la pagina si apre, mostra però solo l'ultima immagine, dove sbaglio visto che vorrei visualizzare le ultime cinque?

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.Mappath("/mdb-database/db.mdb")
objConn.Open
%>
<%
a_strSQL = "Select * From news where DataPost ORDER by DataPost desc"
Set catRS = Server.CreateObject ("ADODB.Recordset")
catRS.Open a_strSQL, objConn
%>
<html>
<head>
<title></title>
</head>
<body>
<%
%>
<%
'Mostra le prime 5 News
i=0
do until i=5 or catRS.EOF
i=i+1
dim file2
ID = catRs ("ID")
file2 = catRS ("file2")
catRS.movenext
Loop
%>
<img src="z<=file2%>">
</a>
</body>
</html>
<%
catRS.close
set catRS=Nothing
%>

vatuss

Finalmente adesso è ok, solo una svista.
A beneficio di chi leggerà la discussione, per la visualizzazione delle immagini bisogna spostare solo "loop" alla fine della pagina.
Ecco la porzione di codice interessata:

<%
i=0
do until i=5 or catRS.EOF
i=i+1
dim file2
ID = catRs ("ID")
file2 = catRS ("file2")
catRS.movenext
%>
<img src="z<=file2%>">
</a>
</body>
</html>
<%
Loop
catRS.close
set catRS=Nothing
%>

ciao

fusionman

@vatuss said:

Finalmente adesso è ok, solo una svista.
<%
i=0
do until i=5 or catRS.EOF
i=i+1
dim file2
ID = catRs ("ID")
file2 = catRS ("file2")
catRS.movenext
%>
<img src="z<=file2%>">
</a>
</body>
</html>
<%
Loop
catRS.close
set catRS=Nothing
%>

ciao

Loop non va spostato alla fine della pagina ma alla fine del pezzo da ciclare.
Nel tuo caso stai replicando i tag di chiusura body e html per 5 volte.
Devi mettere fuori dal ciclo quei tag (apri l'html e controlla)

vatuss

ciao FuSioNmAn, sono alle prime armi e sicuramente il codice è migliorabile.
La pagina funziona ho controllato l'html e mostra le cinque immagini inserite in ordine di data.
Nello spirito dei forum, credendo di aver trovato la soluzione ho postato il risultato, se non va bene si può anche eliminare.

ciao
**

fusionman

Modifica così:


<%
i=0
do until i=5 or catRS.EOF
i=i+1
dim file2
ID = catRs ("ID")
file2 = catRS ("file2")
catRS.movenext
%>
<a href="tuopercorso">
<img src="z<=file2%>">
</a>
<%
Loop
catRS.close
set catRS=Nothing
%>

<!--Questo va fuori dal ciclo-->
</body>
</html>

vatuss

Scusa la mia ignoranza non avevo capito, ho provveduto a fare la modifica.
ciao e grazie

vatuss

Buonasera.
Rispolvero questa discussione per sapere se le immagini estratte possono essere visualizzate utilizzando slideshow, magari con effetto fade.
Ho cercato uno script ma non sono riuscito a trovare nulla.
Grazie.

ps. se necessario apro un nuovo post