Paging på billedside...?

Hej,

Jeg er ved at ligge nogle billeder op på min hjemmeside og jeg har derfor fundet et gratis paging-system på html.dk. Jeg har dog 2 problemer med systemet.

Det ene problem er, at billeder bliver vist på én lang række, i dette tilfælde 9 (antallet kan ændres). Jeg vil gerne have vist billederne, sådan at der er 3
henad og 3 nedad (i alt 9), men det kan jeg ikke finde ud af?

Det andet problem er, at systemet skal hente billeder fra en database i stedet for fra et dir.

Min kode ser sådan her ud:

<%
ImageDir = \"../grafik/billeder/tn/\" \' Mappen med de små billeder
ImageDir1 = \"../grafik/billeder/\" \' Mappen med de store billeder
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 = 9 \' Antal filer på hver side
intImgCount = objFiles.Count
intPageCount = -Int(-(intImgCount/intPageSize))

Response.Write \"<p><strong>\" & intImgCount & \" Billeder i alt - \"
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 \"<a href=java script:pic(\'\" & ImageDir1 & Image.Name & \"\') title=\" & Image.Name & \">\"
  Response.Write \"<img src=\'\" & ImageDir & Image.Name & \"\' />\"
  Response.Write \"</a>&nbsp;\"
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
%>

----------------------------------------------------------------------------

Håber at få hjælp.

/Jacob.