---

Hejsa.

Jeg ville bare høre om det var muliigt at lave sådan at efter
hvert 4. billede så skal den lave linie skift. Jeg har brugt
scriptet fra: http://www.html.dk/scripts/asp/00011/ men jeg har
lavet lidt ændringer så derfor sætter jeg også lige det ind...

<%
ImageDir = "pics/" & Request.Querystring("id") & "/"
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
int Page = 1
End If

intPageSize = 12
intImgCount = objFiles.Count
intPageCount = -Int(-(intImgCount/intPageSize))

Response.Write "<p>" & intImgCount & " pictures - "
Response.Write "shows page " & intPage & " of " & intPageCount &
"</p><center>"

For Each Image In objFiles
intFile = intFile +1
If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =<
(intPageSize*intPage)) Then
Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a
target='_blank'
href=http://www.friserverplads.dk/zlinky/pics/pics/" &
Request.Querystring("id")& "/" & Image.Name & "><img
src='http://www.friserverplads.dk/zlinky/pics/pics/" &
Request.Querystring("id") & "/lille/" & Image.Name &
"'></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
End If
Next

strScriptName = Request.Servervariables("ScriptName")
Response.Write "<p>Go to page "
For i = 1 To intPageCount
Response.Write "</center><a href=" & strScriptName & "?id=" &
Request.Querystring("id") & "&page=" & i & ">" & i & "</a>"
Next
Response.Write "</p>"
Set objFS = Nothing
%>

Jeg er nybegynder til ASP så jeg vil gerne vide om det er muligt,
og evt. hvordan??.. :)

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

"Nicky Mogensen" <zlinky87@hotmail.com> skrev i en meddelelse
news:aij6mk$b95$1@sunsite.dk...
> Hejsa.
>
> Jeg ville bare høre om det var muliigt at lave sådan at efter
> hvert 4. billede så skal den lave linie skift. Jeg har brugt
> scriptet fra: http://www.html.dk/scripts/asp/00011/ men jeg har
> lavet lidt ændringer så derfor sætter jeg også lige det ind...

Jeps. Det er ikke ret svært

> <%
> ImageDir = "pics/" & Request.Querystring("id") & "/"
> 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
> int Page = 1
> End If
>
> intPageSize = 12
> intImgCount = objFiles.Count
> intPageCount = -Int(-(intImgCount/intPageSize))
>
> Response.Write "<p>" & intImgCount & " pictures - "
> Response.Write "shows page " & intPage & " of " & intPageCount &
> "</p><center>"
>

AntalBilleder=0

> For Each Image In objFiles
> intFile = intFile +1
> If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =<
> (intPageSize*intPage)) Then
> Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a
> target='_blank'
> href=http://www.friserverplads.dk/zlinky/pics/pics/" &
> Request.Querystring("id")& "/" & Image.Name & "><img
> src='http://www.friserverplads.dk/zlinky/pics/pics/" &
> Request.Querystring("id") & "/lille/" & Image.Name &
> "'></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
> End If

AntalBilleder = AntalBilleder + 1
if AntalBilleder = 4 then
AntalBilleder = 0
response.write "<br>"
end if

> Next
>
> strScriptName = Request.Servervariables("ScriptName")
> Response.Write "<p>Go to page "
> For i = 1 To intPageCount
> Response.Write "</center><a href=" & strScriptName & "?id=" &
> Request.Querystring("id") & "&page=" & i & ">" & i & "</a>"
> Next
> Response.Write "</p>"
> Set objFS = Nothing
> %>
>
> Jeg er nybegynder til ASP så jeg vil gerne vide om det er muligt,
> og evt. hvordan??.. :)

Hilsen
SumSum


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.380 / Virus Database: 213 - Release Date: 24-07-2002

---

Jeg siger takker :)

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials