ASP Galleri kode

Hele siden se sådan ud:
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="1" id="AutoNumber2">
  <tr>
    <td width="100%">&nbsp;</td><td width="100%">
    <img border="0" src="images/galleri/top.jpg" width="199" height="148"></td>
    <td width="100%" rowspan="2" background="images/galleri/side.jpg">
    <img border="0" src="images/spacer.gif" width="11" height="14"></td>
  </tr>
  <tr>
    <td width="1" background="images/galleri/side.jpg" rowspan="2">
    <img border="0" src="images/spacer.gif" width="11" height="14"></td>
    <td width="1">
    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
      <tr>
        <td width="100%">
        <img border="0" src="images/galleri/midt.jpg" width="199" height="2"></td>
      </tr>
      <tr>
        <td width="100%">
        <img border="0" src="images/galleri/midt.jpg" width="199" height="2"></td>
      </tr>
      <tr>
        <td width="100%">
        <img border="0" src="images/galleri/dvs.jpg" width="199" height="148"></td>
      </tr>
      <tr>
        <td width="100%">
        <img border="0" src="images/galleri/midt.jpg" width="199" height="2"></td>
      </tr>
      <%
        Set Conn = Server.CreateObject("ADODB.Connection")
        Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db/database.mdb")
        strSQL = "select * from Billeder, (Film = 1) ORDER BY Id"
        set rs = Conn.execute(strSQL)

        if rs.EOF then
        Response.write "<img border='0' src='images/galleri/dibfdf.jpg' width='199' height='148'><br>"
        else
        Do Until rs.EOF
        %><tr>
        <td width="100%">
        <img border="0" src="images/galleri/midt.jpg" width="199" height="2"></td>
      </tr>
      <tr>
        <td width="100%">
        <img border="0" src="<%=RS("Img")%>" width="199" height="148"></td>
      </tr>
      <tr>
        <td width="100%">
        <img border="0" src="images/galleri/midt.jpg" width="199" height="2"></td>
      </tr><%
        RS.MoveNext
        Loop
        end if

        Conn.Close
        set Conn = Nothing
      %>
      <tr>
        <td width="100%">
        <img border="0" src="images/galleri/midt.jpg" width="199" height="2"></td>
      </tr>
      <tr>
        <td width="100%">
        <img border="0" src="images/galleri/hk.jpg" width="199" height="148"></td>
      </tr>
      <tr>
        <td width="100%">
        <img border="0" src="images/galleri/midt.jpg" width="199" height="2"></td>
      </tr>
      <%
        Set Conn = Server.CreateObject("ADODB.Connection")
        Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db/database.mdb")
        strSQL = "select * from Billeder, (Film = 2) ORDER BY Id"
        set rs = Conn.execute(strSQL)

        if rs.EOF then
        Response.write "<img border='0' src='images/galleri/dibfdf.jpg' width='199' height='148'><br>"
        else
        Do Until rs.EOF
        %><tr>
        <td width="100%">
        <img border="0" src="images/galleri/midt.jpg" width="199" height="2"></td>
      </tr>
      <tr>
        <td width="100%">
        <img border="0" src="<%=RS("Img")%>" width="199" height="148"></td>
      </tr>
      <tr>
        <td width="100%">
        <img border="0" src="images/galleri/midt.jpg" width="199" height="2"></td>
      </tr><%
        RS.MoveNext
        Loop
        end if

        Conn.Close
        set Conn = Nothing
      %>
      <tr>
        <td width="100%">
        <img border="0" src="images/galleri/midt.jpg" width="199" height="2"></td>
      </tr>
      <tr>
        <td width="100%">
        <img border="0" src="images/galleri/ffa.jpg" width="199" height="148"></td>
      </tr>
      <tr>
        <td width="100%">
        <img border="0" src="images/galleri/midt.jpg" width="199" height="2"></td>
      </tr>
      <%
        Set Conn = Server.CreateObject("ADODB.Connection")
        Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db/database.mdb")
        strSQL = "select * from Billeder, (Film = 3) ORDER BY Id"
        set rs = Conn.execute(strSQL)

        if rs.EOF then
        Response.write "<img border='0' src='images/galleri/dibfdf.jpg' width='199' height='148'><br>"
        else
        Do Until rs.EOF
        %><tr>
        <td width="100%">
        <img border="0" src="images/galleri/midt.jpg" width="199" height="2"></td>
      </tr>
      <tr>
        <td width="100%">
        <img border="0" src="<%=RS("Img")%>" width="199" height="148"></td>
      </tr>
      <tr>
        <td width="100%">
        <img border="0" src="images/galleri/midt.jpg" width="199" height="2"></td>
      </tr><%
        RS.MoveNext
        Loop
        end if

        Conn.Close
        set Conn = Nothing
      %>
      <tr>
        <td width="100%">
        <img border="0" src="images/galleri/midt.jpg" width="199" height="2"></td>
      </tr>
      <tr>
        <td width="100%">
        <img border="0" src="images/galleri/fp.jpg" width="199" height="148"></td>
      </tr>
      <tr>
        <td width="100%">
        <img border="0" src="images/galleri/midt.jpg" width="199" height="2"></td>
      </tr>
      <%
        Set Conn = Server.CreateObject("ADODB.Connection")
        Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db/database.mdb")
        strSQL = "select * from Billeder, (Film = 4) ORDER BY Id"
        set rs = Conn.execute(strSQL)

        if rs.EOF then
        Response.write "<img border='0' src='images/galleri/dibfdf.jpg' width='199' height='148'><br>"
        else
        Do Until rs.EOF
        %><tr>
        <td width="100%">
        <img border="0" src="images/galleri/midt.jpg" width="199" height="2"></td>
      </tr>
      <tr>
        <td width="100%">
        <img border="0" src="<%=RS("Img")%>" width="199" height="148"></td>
      </tr>
      <tr>
        <td width="100%">
        <img border="0" src="images/galleri/midt.jpg" width="199" height="2"></td>
      </tr><%
        RS.MoveNext
        Loop
        end if

        Conn.Close
        set Conn = Nothing
      %>
      <tr>
        <td width="100%">
        <img border="0" src="images/galleri/midt.jpg" width="199" height="2"></td>
      </tr>
      <tr>
        <td width="100%">
        <img border="0" src="images/galleri/foe.jpg" width="199" height="148"></td>
      </tr>
      <tr>
        <td width="100%">
        <img border="0" src="images/galleri/midt.jpg" width="199" height="2"></td>
      </tr>
      <%
        Set Conn = Server.CreateObject("ADODB.Connection")
        Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db/database.mdb")
        strSQL = "select * from Billeder, (Film = 5) ORDER BY Id"
        set rs = Conn.execute(strSQL)

        if rs.EOF then
        Response.write "<img border='0' src='images/galleri/dibfdf.jpg' width='199' height='148'><br>"
        else
        Do Until rs.EOF
        %><tr>
        <td width="100%">
        <img border="0" src="images/galleri/midt.jpg" width="199" height="2"></td>
      </tr>
      <tr>
        <td width="100%">
        <img border="0" src="<%=RS("Img")%>" width="199" height="148"></td>
      </tr>
      <tr>
        <td width="100%">
        <img border="0" src="images/galleri/midt.jpg" width="199" height="2"></td>
      </tr><%
        RS.MoveNext
        Loop
        end if

        Conn.Close
        set Conn = Nothing
      %>
      <tr>
        <td width="100%">
        <img border="0" src="images/galleri/midt.jpg" width="199" height="2"></td>
      </tr>
    </table>
    </td>
  </tr>
  <tr>
    <td width="100%">
    <img border="0" src="images/galleri/buttom.jpg" width="199" height="148"></td><td width="100%">&nbsp;</td>
  </tr>
</table>
</center>

Så ta jeg pointne tilbage, så lang tid kan jeg ikke vente