Hey guys..
Har fundet ud af det.. fik det fikset med noget den her lille kode..
for i = 0 to 8
if i mod 3 = 0 then response.write("<BR>")
next
"news.inet.tele.dk" <walther_jensen@hotmail.com> wrote in message
news:3ea4b4df$0$654$edfadb0f@dread11.news.tele.dk...
> Hey you guys :)
>
> Jeg har et mindre problem.
> Jeg har lavet en side som jeg vil bruge til billeder.
> MEN, på den side vil jeg have det så der er 3 rækker med 3 billeder i hver
> række.
> Ligesom på denne side ->
>
http://strandhygge.wallys.dk/default.asp?vis=Tilmeldte
> Dette er dog lavet i en database streng og ser således ud
> --------------------------------------------------------------------------
--
> <%
> DO WHILE NOT rs.EOF
> UserID = rs("UserID")
> %>
> <tr>
> <%
> for i = 0 to 4
> If rs.EOF = True Then Exit For
> UserName = rs("UserName")
> %>
>
> <td width=100 align=center bgcolor=#00D9FF><b><a class=menu
target="_blank"
> href="
http://chat.jubii.dk/logbook/Profile/Profile.asp?x=<% = UserName
> %>"><% = UserName %></td>
> <%
> rs.MoveNext
> next %>
> </tr>
> <%
> LOOP
> RS.Close
> conn.Close
> Set conn = nothing
> Set SQLstmt = nothing
> %>
> --------------------------------------------------------------------------
--
> Hvordan får jeg dette til at virke i denne kode ?
> --------------------------------------------------------------------------
--
> <%
> ImageDir = "images/" ' Mappen med filerne
> Set objFS = CreateObject("Scripting.FileSystemObject")
> Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
> Set objFiles = objFolder.Files
>
> intPage = Request.Querystring("page")
> If isNumeric(intPage) = False Or intPage < 1 Then
> intPage = 1
> End If
>
> intPageSize = 1 ' Antal filer på hver side
> intImgCount = objFiles.Count
> intPageCount = -Int(-(intImgCount/intPageSize))
>
> Response.Write "<p><strong>" & intImgCount & " Billeder - "
> Response.Write "viser side " & intPage & " af " & intPageCount &
> ":</strong></p>"
>
> For Each Image In objFiles
> intFile = intFile +1
> If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =<
> (intPageSize*intPage)) Then
> Response.Write "<p><img src='" & ImageDir & Image.Name & "' /></p>"
> End If
> Next
>
> strScriptName = Request.Servervariables("ScriptName")
> Response.Write "<p>Gå til side "
> For i = 1 To intPageCount
> Response.Write "<a href=" & strScriptName & "?page=" & i & ">" & i &
"</a>
> "
> Next
> Response.Write "</p>"
> Set objFS = Nothing
> %>
> --------------------------------------------------------------------------
--
>
> Jeg håber en forstår hvad jeg mener og kan hjælpe mig :)
>
> CheerZ
> Walther aka D-Runner
>
>
>
>