ayuda para optimizar código

[Tarecito]

Holas de nuevo, tengo este código donde se muestran todas las areas de una isntitucion y donde se indica ql numero de documentos que cada area tiene, el problema es que cuando se quiere entrar a esta página la carga es demasiado lenta, tal vez sea por el código (les pongo las primeras areas pero son como 50):

<%
...
<TABLE cellSpacing=1 cellPadding=0 align=left
border=0><TBODY>
<TR class=clsListOuterTableCell>
<TD align=middle><b>Dependencia</b></TD>
<TD width=10>&nbsp;No&nbsp;</TD></TR>
<% Dim sql, rs
sql = "Select count(cod_docxdesp) as cant from DocxDespacho where estado_desp = 1 and destino = 'D1'"
set rs = conexion.Execute(sql)
%>
<TR class=clsListData STYLE="cursor: hand;" onMouseOver="style.background='#daeafa'" onMouseOut="style.background='#ffffff'" onclick="location.href='control_doc_int1.asp?id=D1 &dep=4'">
<TD><B>&nbsp;JEFATURA</B></TD>
<TD align=middle>
<% if rs("cant") > 0 then %>
<b><font color="red"><% Response.Write(rs("cant")) %></font></b>
<% else
Response.Write(rs("cant"))
end if%>
</TD></TR>
<% sql = "Select count(cod_docxdesp) as cant from DocxDespacho where estado_desp = 1 and destino = 'D2'"
set rs = conexion.Execute(sql)
%>
<TR class=clsListData STYLE="cursor: hand;" onMouseOver="style.background='#daeafa'" onMouseOut="style.background='#ffffff'" onclick="location.href='control_doc_int1.asp?id=D2 &dep=4'">
<TD><B>&nbsp;SUB JEFATURA</B></TD>
<TD align=middle>
<% if rs("cant") > 0 then %>
<b><font color="red"><% Response.Write(rs("cant")) %></font></b>
<% else
Response.Write(rs("cant"))
end if%>
</TD></TR>
<% sql = "Select count(cod_docxdesp) as cant from DocxDespacho where estado_desp = 1 and destino = 'D2_2'"
set rs = conexion.Execute(sql)
%>
<TR class=clsListData STYLE="cursor: hand;" onMouseOver="style.background='#daeafa'" onMouseOut="style.background='#ffffff'" onclick="location.href='control_doc_int1.asp?id=D2 _2&dep=1'">
<TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Comunicaciones </TD>
<TD align=middle>
<% if rs("cant") > 0 then %>
<b><font color="red"><% Response.Write(rs("cant")) %></font></b>
<% else
Response.Write(rs("cant"))
end if%>
</TD></TR>
...
%>
a ver si alguien me ayuda a optimizarlo si es que es factible, soy algo nuevo en esto asi que enitendan mis deficiencias :), muchas gracias