Salve a tutti, ho il seguente codice:

id = 3
Set rs3 = Server.CreateObject("ADODB.Recordset")
Set cmd = Server.CreateObject("ADODB.Command")
cmd.CommandText="ShowAtti"
cmd.CommandType=adCmdStoredProc
Set pId=Server.CreateObject("ADODB.Parameter")
Set pId=cmd.CreateParameter ("Id",adInteger,adParamInput)
cmd.Parameters.Append pId
pId.Value=Id
Set cmd.ActiveConnection=MyConn
set rs3=cmd.Execute
If rs3.eof then
if id=1 then Response.Write ("
Non esistono Ordinanze in archivio.")
if id=2 then Response.Write ("
Non esistono Decreti in archivio.")
if id=3 then Response.Write ("
Non esistono Delibere di Giunta in archivio.")
if id=4 then Response.Write ("
Non esistono Delibere del Consiglio in archivio.")
else
while not rs3.EOF %>
<table border="0" cellpadding="2" cellspacing="0" class="bordoTab" dwcopytype="CopyTableCell">
<tr>
<td><a href=delibere_giunta_zoom.asp?id=<%=rs3.fields("id atto")%>> n. <%=rs3.fields("Numero")%> emesso il <%=rs3.fields("DataEmissioneAtto")%> </a></td>
</tr>
<tr>
<td><a href=delibere_giunta_zoom.asp?id=<%=rs3.fields("id atto")%>>
<% Oggetto = rs3.fields("OggettoAtto")
if Len(Oggetto) >= 110 Then Oggetto = left(Oggetto,107) & "..."
response.write Oggetto
%>
</a> </td>
</tr>
</table>
<div style="color:#CCCCCC;">-------------------------------------------------------------------------------</div>
<% rs3.movenext
wend
end if
rs3.close
set rs3=nothing
set cmd=nothing


Ora mi sorge il problema di dover cambiare la query, per fare l'ordinamento non in base alla data ma bensì in base all'id, solo che non riesco a trovare la query, l'unica cosa che ho trovato è questo sottolineato in rosso nel codice

Come posso accedere alla query?