fso - omskrivning

Hej eksperter

Jeg denne kode som jeg bruger til galleri. Den henter oplysninger fra en database. Dette vil jeg ikke bruge mere, men vil bruge fso i stedet. Så i stedet for at køre en tabel igennem, så skal den køre en mappe igennem.

Er der en der lige kan klare sådan en omskrivning?


/Bjarke


KODEN:

<%
strSQL = "Select * From billeder Where kat = '3dsmax'"
Set rs = Conn.Execute(strSQL)

Do

if rs.EOF then
  Response.write "<font face=""Geneva, Arial, Helvetica, san-serif"" size=""2"" color=""#999999"">Ingen billeder i databasen.</font>"
else
  colPrRow = 4
  colInRow = 0
  response.write "<table border=""0"">"
  do while NOT RS.EOF
    if colInRow = 0 then response.write "<tr>"
    response.write "<td><table><tr><td></td></tr><tr><td></td></tr><tr><td></td></tr><tr><td></td></tr></table></td>"
   
    colInRow = colInRow + 1
    if colInRow >= colPrRow then
      colInRow = 0
      response.write "</tr>"
    end if
    RS.MoveNext
  loop
  if colInRow > 0 then
    Response.Write "</tr>"
  end if
  response.write "</table>"
end if

Loop While Not rs.EOF

conn.Close
Set Conn = Nothing
set rs = nothing
%>