---

Hej.
Jeg bruger nedenstående til at vise nogle billeder på min hjemmeside, men
jeg er i tvivl om at der måske skulle være noget galt et sted i dokumentet
fordi at når jeg vil åbne siden med billederne, så kommer der en melding om
"Network is busy" og så tager det en hulens masse tid inden billederne er
loadet... hvis de overhovedet loader. Er der en der kan se om der er en fejl
der kan skyldes ovenstående eller er det bare en "skod-server" min
hjemmeside ligger på ?

Her er så det jeg bruger til at vise billeder:

<%
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 = 15 ' Antal filer på hver side
intImgCount = objFiles.Count
intPageCount = -Int(-(intImgCount/intPageSize))

Response.Write "<p align='center'><strong>" & intImgCount & " Billeder - "
Response.Write "viser side " & intPage & " af " & intPageCount &
":</strong></p>"
Response.Write "<table align='center'><td>"

For Each Image In objFiles
intFile = intFile +1
If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =<
(intPageSize*intPage)) Then

Response.Write "<a href='" & ImageDir & Image.Name & "' &
target='_blank'><img src='" & ImageDir & Image.Name & "' & width='100'
height='100' border='0' /></a>&nbsp&nbsp&nbsp"
End If
t=t+1
if t = 5 then
Response.Write "<br>" ' hvis mere end 3 i linien så linieskift
t = 0
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 "</td></table>"
Set objFS = Nothing
%>


Mvh.
Preben
www.pdcs.dk