1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60
|
sub affiche_image_avec_navigation(image_courante)
sql = "SELECT TOP 3 * "&_
" FROM table_images "&_
" WHERE abs(id_image - "& image_courante &")<=1 "&_
" ORDER BY id_image ASC"
set rs = server.CreateObject("ADODB.Reccordset")
rs.open sql,ma_connexion
if rs.eof then
response.write "pas d'image"
else
n = rs.reccordCount
if n=3 then
prec = rs("id_image")
rs.moveNext
image = rs("url_image")
rs.moveNext
suiv = rs("id_image")
rs.moveNext
elseIf n=2 then
if rs("id_image")=image_courante then
prec = -1
image = rs("url_image")
else
prec = rs("id_image")
end if
rs.moveNext
if prec<0 then
suiv = rs("id_image")
else
image = rs("url_image")
suiv = -1
end if
else
prec = -1
suiv = -1
image = rs("url_image")
end if
if prec>=0 then response.Write "<a href=diapo.asp?img="& prec &">précédente</a>"
response.Write "<img src="& image &">"
if suiv>=0 then response.Write "<a href=diapo.asp?img="& suiv &">suivante</a>"
end if
rs.close
set rs = nothing
end sub |