Ciao, ho dei do nidificati, ma mi da errore dicendo che non sono chiusi. Dove sbaglio?

ecco il codice
if Session("login")=2 then
'N.B.: NON funziona se DB Access è aperto!!!
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:/Inetpub/wwwroot/GammaDarfo/DB/Gestione.mdb")
Set objRs = Server.CreateObject("ADODB.Recordset") 'ORDINI
Set objRs2 = Server.CreateObject("ADODB.Recordset") 'DETTAGLIO ORDINI
Set objRs3 = Server.CreateObject("ADODB.Recordset") 'LOGIN
Set objRs = objConn.Execute("SELECT * from Tab_Ordini order by Ord_DataCreaz desc")
Set objRs2 = objConn.Execute("SELECT * from Tab_Dett_Ordini order by Dett_ID_Ordine desc")
Set objRs3 = objConn.Execute("SELECT * from Tab_Login order by ID desc")
'Controllo Che ci siano degli Ordini Inseriti
if objRs.RecordCount<>0 then
'----------Ordinamento Colonne---------
dim ordine
ordine=request.querystring("ordine")
sSQL="SELECT * from Tab_Ordini"
if ordine<>"" then
sSQL=sSQL&" ORDER BY "&ordine
'Response.Write (sSQL)
Set objRs = objConn.Execute(sSQL)
end if
'ordina x nomeCampo1
'--------------------------------------
%>
<style>
TD {FONT-FAMILY:verdana;FONT-SIZE:12;font-style:normal;text-decoration: none;color:ffffff}
</style>
<P align=center><FONT size=3>Ordine N.ro <%Response.Write objRs("Ord_Numero")%></FONT></P>
<table WIDTH="100%" border="1" bordercolor="#006699">
<tr>
<td align=center>Creato Il

</td>
<td align=center>Numero

</td>
<td align=center>ID Cliente

</td>
<td align=center>Stato

</td>
<td align=center>Pagamento

</td>
</tr>
<%
'Setto la variabile di appoggio sApp=0
Session("sApp")= 0
Do While NOT objRs.EOF
'-------Formattazione Data Corta-------
Dim dDataCreaz,sDataCorta
dDataCreaz=objRs("Ord_DataCreaz")
'Data gg/mm/aa
session.LCID = 1040
sDataCorta=FormatDateTime(dDataCreaz,2)
'Il 2 corrisponde a vbShortDate
'--------------------------------------
'Cliclo per LOGIN
Do While NOT objRs3.EOF
'Controllo ID con Ord_ID_Login
if objRs3("id") = objRs("Ord_ID_Login") then
'Controllo che sia una Società o un Privato
if objRs3("Log_Societa") <> "." then
sLogin=objRs3("Log_Societa")
else
sLogin=objRs3("Log_Nome")& " " & objRs3("Log_Cognome")
end if
loop
'sLogin = Nome Cognome oppure Società
%>
<tr>
<td><%Response.Write(sDataCorta)%></td>
<td>"><%=objRs("Ord_Numero")%></td>
<td><a href="Login_Singolo.asp?id=<%=objRs("id")%>"><%=sL ogin%></td>
<td><%Response.Write objRs("Ord_Stato")%></td>
<td><%Response.Write objRs("Ord_Pag")%></td>
</tr>
<%
objRs.MoveNext
loop
'
%>
</table>

<%
objRs.Close
Set objRs = Nothing
objConn.Close
set objConn = Nothing
else
Response.Write("Nessun Ordine Effettuato")
objRs.Close
Set objRs = Nothing
objConn.Close
set objConn = Nothing
end if
else
Response.Write("Utente Non Autorizzato")
end if
TNKS