Langsom ASP kode

Hejsa,

Jeg er ved at bygge en "vagt kalender" - som giver mig en del problemer - dvs. siden tager ca. 20 sek. at loade, hvilket er alt for langsomt ;)

Sådan gør jeg:
Først hentes alle brugerne ud af databasen, derefter loopes hver enkelt bruger ca. 30 gange, altså en kalender måned. Inde i det loop henter jeg så også yderlige ting fra databasen...
Så der er altså vildt mange forbindelser til databasen.

Er der en som evt. vil kigge min kode igennem og evt. komme med rettelser eller andre gode forslag ? Ville gerne kunne loade siden hurtigere nemlig.

På forhånd tak!

KODEN:
sql = "SELECT * FROM bruger ORDER BY gruppe_id,navn"
SET rs = Conn.execute(sql)
    IF NOT rs.EOF THEN
        DO UNTIL rs.EOF
        resultat_bruger_id_2_iframe = resultat_bruger_id_2_iframe & rs("id") &","

        Response.Write "</tr><tr>"
       
        FOR t=1 TO intDayInMonth
           
            feltnr = feltnr + 1
            dtmDate = DateSerial(intYear,intMonth,t)
            dtmDay = arrDayNames(Weekday(dtmDate)-1)
           
            sql2 = "SELECT vagtreg.id,vagtreg.vagter_id,vagter.farve,vagter.start_tid,vagter.slut_tid FROM vagtreg,vagter WHERE vagtreg.vagter_id = vagter.id AND vagtreg.bruger_id = '"& rs("id") &"' AND vagtreg.dato = '"& FormatDateDDMMYYYY(dtmDate) &"'"
            SET rs2 = Conn.execute(sql2)
            IF NOT rs2.EOF THEN
                vagtreg_id            = rs2("id")
                vagtreg_vagter_id    = rs2("vagter_id")
                td_bgcolor            = rs2("farve")
                vagter_start_tid    = rs2("start_tid")
                vagter_slut_tid        = rs2("slut_tid")
            ELSE
                vagtreg_vagter_id = ""
                vagter_start_tid    = "08:30"
                vagter_slut_tid        = "15:54"
            END IF
            rs2.close
            SET rs2 = NOTHING
            SET sql2 = NOTHING
                           
            IF td_bgcolor <> "" THEN
                Response.Write "<td bgcolor='"& td_bgcolor &"' height='"& table_height_bottom &"' id='td_"& dtmDate &"_"& rs("id") &"' valign='top'>"
            ELSE IF dtmDay = "Lørdag" OR dtmDay = "Søndag" THEN
                enuWeekday = TRUE
                Response.Write "<td bgcolor='#C0C0C0' height='"& table_height_bottom &"' id='td_"& dtmDate &"_"& rs("id") &"' valign='top'>"
            ELSE
                enuWeekday = FALSE
                Response.Write "<td height='"& table_height_bottom &"' id='td_"& dtmDate &"_"& rs("id") &"' valign='top'>"
            END IF
            END IF
           
            td_bgcolor = ""
           
            IF rq_kalender = "plan" THEN
                Response.Write "<input class='form_input' type='text' name='tekst' value='' size='16' /><br/>"
           
                Response.Write "<select name='select_"& dtmDate &"_"& rs("id") &"' id='select_id_"& dtmDate &"_"& rs("id") &"' class='form_input' onchange=""document.getElementById('iframe_vagter_update').setAttribute('src','iframe_vagter_update.asp?'+this.value);"" tabindex='"& feltnr &"'>"
                Response.Write "<option value='bruger_id="& rs("id") &"&dato="& dtmDate &"&vagt_id=0&feltnr="& feltnr &"'></option>"
           
           
                sql2 = "SELECT id,navn FROM vagter ORDER BY start_tid"
                SET rs2 = Conn.execute(sql2)
                    IF NOT rs2.EOF THEN
                        DO UNTIL rs2.EOF
                           
                            IF vagtreg_vagter_id = rs2("id") THEN
                                selected = " selected='selected' "
                            ELSE
                                selected = ""
                            END IF
                           
                            Response.Write "<option '"& selected &"' accesskey='"& feltnr &"' name='"& rs2("id") &"' value='bruger_id="& rs("id") &"&dato="& dtmDate &"&vagt_id="& rs2("id") &"'>"& rs2("navn") &"</option>"
                            rs2.movenext
                        LOOP
                    END IF
                rs2.close
                SET rs2 = NOTHING
                SET sql2 = NOTHING
                Response.Write "<option name='' value=''>----------</option>"
                Response.Write "<option name='' value='slet_id="& vagtreg_id &"'>(SLET VAGT)</option>"
                Response.Write "</select>"
                Response.Write "<br/>"
                Response.Write "Flag:<input type='checkbox' name='flag' value='flag'>"
            END IF               
            Response.Write "</td>"
           
        NEXT
       
        rs.movenext
        LOOP
    END IF
rs.close
SET rs = NOTHING
SET sql = NOTHING