[ASP] Fotoboek

[Verwijderd]

Oke, ik ben dus van plan om een fotoboek te maken in asp. Het idee is het volgende:

- ik maak 1 pagina aan met de naam fotos.asp
- vanuit een andere pagina wil ik linken naar fotos.asp en wel op die manier dat er direct een aantal gegevens verstuurd worden (bijvoorbeeld het aantal fotos en de bestandsnaam).
- vervolgens moet er dmv een loop in fotos.asp het fotoboek in een tabel geladen worden.

Mijn idee in de praktijk.
Ik stuur de volgende gegevens naar fotos.asp:
aantal = 5 // Aantal foto's die geladen moeten worden
naam = foto // de naam van de foto

Vervolgens moet er dan zoiets in de loop komen te staan (naar mijn idee):

code:

   [img]"foto/<%=[/img]_<%= n %>.jpg">

waarbij n dan staat voor het aantal keren dat de loop is doorlopen.

Het probleem is nu dat ik het niet voor elkaar kan krijgen om het aantal door te sturen.

Oke, een beetje vaag, maar wie heeft er een idee hoe ik dit aan moet pakken???

[Verwijderd]

===============================
Linkje:
fotos.asp?naam=foto&n=5
===============================
Dan in fotos.asp aanroepen met
naam = Request.Querystring("naam")
n = Request.Querystring("n")
===============================


Anders laat ff wat code zien hoe je ut nu doet

[4of9]

hmm dit heb ik oot gemaakt....mischien heb heb je er iets aan...

ASP:

<%
OPTION EXPLICIT

Dim iNext, i, iPageCount
Dim parsetime
Dim cur, Current
Dim x, c, y, nr
Dim totalpages

parsetime = TIMER

Const PageJump = 5

iNext = Request.Querystring("next")
cur = Cint(Request.Querystring("cur"))

Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim objFolder
Set objFolder = objFSO.GetFolder("c:\jouwdir\pics\")

i = 0
Dim objFile
Dim strImage()
For Each objFile in objFolder.Files
    Redim Preserve strImage(i)
    strImage(i) = objFile.Name
    i = i+1
Next

iPageCount = i

If iNext = "" Then
    Current = 0
Else
    Current = iNext
End If

 For x = Current To Current + PageJump - 1
    If x > Ubound(strImage) Then exit For
    Response.Write "<a href=""pics/" & strImage(x) & """>[img]""pics/"[/img]</a>&nbsp;"
Next

Response.Write "<br>"

    totalpages = int((iPageCount + PageJump - 1) / PageJump)

If cur = "" Then
    cur = 1
End If

c = 1
For y = 1 to totalpages

If y = cur Then
    Response.Write y & "&nbsp;"
Else
    Response.Write "<a href=""index.asp?next=" & nr & "&cur=" & c & """>" & y & "</a>&nbsp;"
End If
    nr = nr + PageJump
    c = c + 1
Next

Response.Write "<br><br><hr>Debug info:<br><br>"
Response.Write "Images per Pagina: " & PageJump & "<br>"
Response.Write "Totaal aantal Pagina's: " & totalpages & "<br>"
Response.Write "Current first image: " & Current & "<br>"
Response.Write "Totaal aantal Images: " & iPageCount & "<br>"
Response.Write "Laagste Index: " & Lbound(strImage) & "<br>"
Response.Write "Hoogste Index: " & Ubound(strImage) & "<br>"
Response.Write "Huidige pagina: " & cur & "<br><br>"

If parseTime <> "" then
    Response.Write " Pagina uitgepoept in&nbsp;" & (TIMER - parseTime) & "&nbsp;seconden :)" 
End If

%>

[Verwijderd]

Nee eigenlijk helemaal niet Ik heb geen flauw idee hoe ik dit moet lezen eerlijk gezegt, zoveel verstand heb ik nou ook weer niet van ASP...

Wel ben ik er nu achter wat precies mijn probleem is, misschien dat iemand mij nu kan helpen.

Ik wil dus een CIJFER hebben om het aantal keren doorlopen van de loop aan te geven. Dus als ik als cijfer 6 gebruik, dat de loop 6 keer doorlopen wordt.

Het probleem is nu dat het cijfer niet als numerieke waarde wordt uitgelezen, maar als een tekst. Hoe kan ik er voor zorgen dat dat cijfer ook als numerieke waarde (uit de tabel of uit de URL) gelezen wordt?

Wat doe ik fout???

[gorgi_19]

code:

Dim qrsGetal
Dim I
qrsGetal = Cint(Request.QueryString("getal")
'Cint staat voor: Convert To Integer
For I = 1 to qrsGetal
    Response.Write I
Next

aanroepen met URL.asp?getal=4

[robjanssen]

Gebruik CLng of CInt