in futuro per questo genere di cose ti consiglio di fare una JOIN tra due tabelle,invece di fare 3 diverse query,tenere in memoria 3 diversi recordset e fare 3 cicli annidati per ottenere le corrispondeze tra gli id...(il 3° recordset objrs3 tra l'altro nemmeno lo usi...forse in un pezzo di codice che non hi postato)...

una cosa del genere...

codice:
if Session("login")=2 then 
    session.LCID = 1040 
		dim ordine 
    ordine=request.querystring("ordine") 
		
    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")
 		
    sSQL="SELECT * FROM Tab_Ordini INNER JOIN Tab_Login ON Tab_Ordini.Ord_ID_Login=Tab_Login.ID" 
    if ordine<>"" then 
      sSQL=sSQL&" ORDER BY "&ordine
		else
		  sSQL=sSQL&" ORDER BY Ord_DataCreaz desc"
    end if 		
    Set objRs = objConn.Execute(sSQL)

    if objRs.RecordCount<>0 then 'Controllo Che ci siano degli Ordini Inseriti 
        %> 
          <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 Data gg/mm/aa ------- 
          Dim dDataCreaz,sDataCorta 
          dDataCreaz=objRs("Ord_DataCreaz") 
          sDataCorta=FormatDateTime(dDataCreaz,2) 'Il 2 corrisponde a vbShortDate 
          '-------------------------------------- 
  				

          'Controllo che sia una Società o un Privato 
            if objRs("Log_Societa") <> "." then 
               sLogin=objRs("Log_Societa") 
            else 
               sLogin=objRs("Log_Nome")& " " & objRs("Log_Cognome") 
            end if 
            '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")%>"><%=sLogin%></td> 
          <td><%Response.Write objRs("Ord_Stato")%></td> 
          <td><%Response.Write objRs("Ord_Pag")%></td> 
          </tr> 
          <% 
          objRs.MoveNext 
          loop 
          ' 
          %> 
          </table>
 
          <% 
    else 
       Response.Write("Nessun Ordine Effettuato") 
    end if	
			
    objRs.Close 
    Set objRs = Nothing 
    objConn.Close 
    set objConn = Nothing 	
else 
    Response.Write("Utente Non Autorizzato") 
end if