Næste billede i galleri

Jeg har faktisk lige nettop lavet det samme..
Hvis dine billeder hedder 1.jpg, 2.jpg, 3.jpg osv så kan du bare lave en querystring og kalde den på siden du viser billederne.
Ved hjælp at en replace kan du fjerne .jpg of plusse filnavnet med 1 for så bagefter at at lave et link til næste billede

Har dette


sql = "SELECT * FROM billeder WHERE ID > " & id
set rs = conn.execute (sql)
if rs.EOF then
  nextID = ""

else
  nextID = rs("id")
  nextURL = RS("filnavn")
end if

sql = "SELECT * FROM billeder WHERE ID < " & id & " ORDER BY ID DESC"
set rs = conn.execute (sql)
if rs.EOF then
  prevID = ""
else
  prevID = rs("id")
  prevURL = RS("filnavn")
end if


Det finder det forrige/næste id i databsen


Og her, link til forrige/næste

<%
        if prevID = "" then
          'Response.write "Forrige"
        else
          Response.write "<a href=./?S=Pictures&id="&prevID&" style=""font-size:28px;"" title=""Forrige billede""><b>«</b></a>"
        end if
        %>




<%
        if nextID = "" then
          'Response.write "<div style=""font-size:28px;"">»</div>"
        else
          Response.write "<a href=./?S=Pictures&id="&nextID&" style=""font-size:28px;"" title=""Næste billede""><b>»</b></a>"
        end if
        %>

Ja men den trækker ud fra en database, så det hjælper mig desværre ikke. Den skal trække filerne ud direkte fra en mappe.

du kan lave det sådan her:
thumbs.asp
---------------------------------------------
<%
subfolder = request.querystring ("folder")
set fs = CreateObject("Scripting.FileSystemObject")
set f = fs.GetFolder(Server.MapPath ("gallery/"))


    For Each Item in f.files
    Response.Write "<a href='showpicture.asp&next="& Item.Name & "&pic=gallery/" & Item.Name "'><img src='gallery/thumbnails/" & Item.Name & "'></a>"

        Next


    set folder = nothing
    set file = nothing
    set sfolder = nothing
set fs = nothing
%>
---------------------------------------------
showpicture.asp
---------------------------------------------
<%
sti = Request.Querystring("pic")

filnavn = Replace(Request.Querystring("next"), ".JPG", "")

%>
<center>
<%
If filnavn = 1 Then
%>
<a href="default.asp?site=show&source=<%Response.Write sti%>&next=<%Response.Write filnavn + 1%>.jpg"> Next >></a>
<%Else%>
<a href="default.asp?site=show&source=<%Response.Write sti%>&next=<%Response.Write filnavn - 1%>.jpg"><< Previous </a>
<a href="default.asp?site=show&source=<%Response.Write sti%>&next=<%Response.Write filnavn + 1%>.jpg"> Next >></a>
<%End If%>


<br>
<img src="http://DINADRESSE.com/gallery/<%Response.Write filnavn%>.jpg">
</center>


Jeg har ikke lige testet det, men håber du kan forstå ideen med det. Det er bare vigtigt at dine filnavnet er 1, 2 3.jpg osv. at der ligger en undermappe ved dine billeder der hedder thumbnails hvor billederne har samme filnavn.