Forbedring af kode - hvordan?

Hej eksperter! Jeg har i øjeblikket et rimelig stort problem - jeg har en side med en masse billeder og min database går virkelig slow når den skal vise hvilke nogle fotoalbums der er tilføjet. Jeg kører på en MySQL server og koden nedenfor jeg har smidt er den eneste side der går slow - jeg tænker lidt over om det er forbi jeg ikke kan finde ud af at lukke mine forbindelser eller fordi jeg bruger for meget at den skal tælle billederne, for det gør den nemmelig på denne her side, jeg har aldrig haft problemet før.

    <table border="0" width="97%" id="table3" cellspacing="0" cellpadding="0">
   
    <tr>
    <td height="24" class="Menu" colspan="2">&nbsp;&nbsp;<b><font color="#FFFFFF">Du er her:</b> Fotoalbums -> <%=categoryName%></font></td>
    </tr>
   
    <%
    Set objConn = Server.CreateObject("ADODB.Connection")
    ' DB forbindelse fjernet
   
    SQL = "SELECT * FROM partys WHERE partyCategory='"&request("id")&"' AND Approved=1 ORDER BY id DESC"
    set RS = objConn.Execute(SQL)
   
    if rs.eof then
    %>
   
    <tr><td height="25" align="center"><br><b>Der er i øjeblikket ingen fester tilføjet i denne kategori!</td></tr>
   
    <% else %>
   
    <tr>
    <td>&nbsp;
   
    <!-- Fester -->
   
    <center><table border="0" width="550" align="center"><tr>
   
    <table><tr>
    <%
    AntalKolonner = 2
    rowCounter = 0
    counter = 0
    AktuelSide = "0" & cstr(Request.QueryString("side"))
    AntalPrSide = AntalKolonner * 7  ' 4 linier med 5 i hver
    startRow = AktuelSide * AntalPrSide
    bMoreRows = false
   
    farve = "ff0000" ' sæt farven til "rød"
   
    do until rs.eof
       
    if rowCounter >= startRow and rowCounter < startRow + AntalPrSide then 
    response.Write ""
       
    Set objConn = Server.CreateObject("ADODB.Connection")
    ' DB forbindelse fjernet   
   
    SQL1 = "select count(*) as pictures FROM partyPic WHERE partyid=" & rs("id")
    set RS1 = objConn.Execute(SQL1)
    countPictures = rs1("pictures")
   
    SQL1 = "SELECT * FROM PartyPic WHERE picWidth='640' AND partyid=" & rs("id")
    set RS1 = objConn.Execute(SQL1)
       
    titel = rs("party")
    if len(titel) > 26 then
    titel = "" & left(titel, 26) & " .."
    end if
    %>
    <td width="275">
   
    <!-- <%=rs("party")%> -->
   
    <table width="275" cellpadding="2" cellspacing="0"><tr onMouseOver="this.style.backgroundColor='#EEEEEE'" onMouseOut="this.style.backgroundColor='#FFFFFF'">
   
    <% if countPictures > "0" then %>
    <td width="60" align="left"><a target="_self" title="<%=rs("party")%>" href="ViewParty.asp?ID=<%=rs("id")%>" onclick="location.href='ViewParty.asp?ID=<%=rs("id")%>';" style="cursor: pointer; cursor: hand;"><img height="50" class="PictureStroke" src="<%=pictureUrl%>/Party/Thumb/<%=rs1("url")%>.jpg"></a></td>
    <% else %>
    <td width="60" align="left"><a target="_self" title="<%=rs("party")%>" href="ViewParty.asp?ID=<%=rs("id")%>" onclick="location.href='ViewParty.asp?ID=<%=rs("id")%>';" style="cursor: pointer; cursor: hand;"><img height="50" class="PictureStroke" src="/Pictures/grafik/ingen_festBilleder.gif"></a></td>
    <% end if %>
   
    <td width="215" align="left" valign="top" onclick="location.href='ViewParty.asp?ID=<%=rs("id")%>';" style="padding-left:4px; cursor: pointer; cursor: hand;"><b><a target="_self" title="<%=rs("party")%>" href="ViewParty.asp?ID=<%=rs("id")%>"><%=titel%></a></b><br><%=countPictures%> billeder tilføjet i alt<br><br><i><%=rs("city")%> - <%=rs("peoples")%> personer</i></td>
   
    </tr></table>
   
    <!-- / <%=rs("party")%> -->
   
    </td>
    <%
        RS.MoveNext       
   
        counter = counter + 1
        if counter mod AntalKolonner = 0 then
          response.Write "</tr>"
          if not RS.eof then
            response.Write "<tr>"
          end if
        end if
   
      else
        RS.MoveNext
        if rowCounter > startRow + AntalPrSide then
          bMoreRows = NOT RS.EOF
          exit do
        end if
      end if
      rowCounter = rowCounter + 1
    loop
           
    ' udfyld resten af cellerne i den aktuelle række
    do while counter mod AntalKolonner <> 0
      response.Write "<td width='240'>&nbsp;</td>"
      counter = counter + 1
    loop
   
    ' afslutter rs.eof
    end if
   
    objConn.Close
    %>
   
    </tr>
    </table>