3 celler med billeder og paging.
Jeg har et problem. Jeg vil gerne have denne kode til at smide billederne ud i 3 rækker med forskællige billeder i hver.----------------------------------------------------------------
<html>
<head>
<title>Picture Gallery</title>
</head>
<body>
<%
ImageDir = \"/test/pic/pic/\" \' 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><a href=\'\" & ImageDir & Image.Name & \"\' target=\'_blank\'><img border=\'0\' src=\'\" & ImageDir & Image.Name & \"\' / width=\'140\' height=\'150\'></a></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
%>
</body>
</html>
----------------------------------------------------------------
Der er bare det at jeg er ret nybegynder og jeg kan bare ikk\' hit ud af det. Er der nogen der kan hjælpe...
På forhånd tak...
