Ultimo record

[zetaweb]

Ho creato un visualizzatore di immagini, tale che al click del pulsante mipassa al record successivo. Quando però arrivo all'ultimo record se clicco poi, ovviamnete mi da errore. Non riesco a capire come risolvere l'errore.
Questo è il codice:

<%
pid = request.QueryString("pid")

if pid = "" then
sql = "SELECT *FROM tab_foto" 
set rs = conn.execute(sql)
else 
	 sql = "SELECT *FROM tab_foto WHERE prog=" & pid
	 set rs = conn.execute(sql)
end if

prog = rs("prog") + 1
prec = rs("prog") - 1
%>

Il pid lo passo inquesto modo:

<a href="gallery.asp?pid=<%=prog%>">

Potete aiutarmi.
Grazie mille

[nextart]

prova a mettere un controllo su rs.EOF

[zetaweb]

Avevo già provato ma in modo sbagliato,penso:

if rs.eof then
prog = rs("prog")
else
prog = rs("prog") + 1
end if

e nonfunziona così

[nextart]

crea una variabile di controllo
var almeno_uno = !ris.EOF;

if (almeno_uno) {
esegui ........
}
se troverà almeno_uno = EOF
fagli scrivee terminate, bho!

[zetaweb]

Scusami ma non riesco proprio a seguirti...
penso che tu hai usato javascript, ma io uso VB, e non ho capito molto di quello che hai scritto.
Potresti essere un pò più preciso?
Grazie

[nextart]

si e' js.


<%
pid = request.QueryString("pid")

if pid = "" then
sql = "SELECT *FROM tab_foto"
set rs = conn.execute(sql)
else
sql = "SELECT *FROM tab_foto WHERE prog=" & pid
set rs = conn.execute(sql)
end if
if (!rs.EOF) {
prog = rs("prog") + 1
prec = rs("prog") - 1
} %>

[zetaweb]

Scusami caro nextart, ma misembra di capire che tu non hai scritto altro che quello che ho provato a fare io però inlinguaggio js...
Potete aiutarmi per favore?

[zetaweb]

Help please!!!

[salvo8788]

traduci in vbscript quello che ha scritto nextstart e prova se funziona!
If not rs.eof then
prog = rs("prog") + 1
prec = rs("prog") -1
end if

[salvo8788]

scusa fai finta che non ho scritto, non avevo letto bene il post!