Tabella con possibilità di ordinare i risultati crescenti/decrescenti

[Marco7303]

Buongiorno

Ho questa tabella dentro uno script di impaginazione... e vorrei sapere come fare per poter impaginare i dati per nome, per data o per città... Nel senso che premendo sopra la relativa scritta si ordinino per la categoria scelta...

<table width="100%" border="0" bgcolor="#CC99FF" cellspacing="1" cellpadding="3">
      <tr bgcolor="#9966FF"> 
        <td width="10%"> <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">Data 
            iscrizione</font></font></div></td>
        <td width="10%" nowrap><div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">Nome Agenzia </font></font></div></td>
        <td nowrap> <div align="center"></div> <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">Citt&agrave;</font></font></div></td>
        <td width="5%" nowrap> 
          <div align="center"><font size="1"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">Sito Internet</font></font></font></div></td>
        <td width="10%" nowrap> <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">Indirizzo e-mail </font></font></div></td>
        <td> <div align="center"><font size="1"></font></div> 
        <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">Foto</font></font></div></td>
        <td width="7%"> <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">Vedi
                  scheda</font></font></div></td>
      </tr>
      <% 
	  adesso=Round(getCurrentTime(),0)
	  my_nickname=CStr(Session("IM_nickname"))
	  
	  if RS.EOF = False then
		 for count=1 to RS.PageSize
			if RS.EOF = False then 
			%>
      <tr bgcolor="#E6CCFF"> 
        <td width="10%" height="30"> 
          <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%if RS.Fields.Item("Data").Value<>"" then Response.Write(FormatDateTime(RS.Fields.Item("Data").Value,2))%></font></div></td>
        <td height="30" nowrap> 
        <div align="center"><span class="Stile1"><%=(RS.Fields.Item("AgenziaNome").Value)%></span></div></td>
        <td height="30" nowrap><div align="center" class="Stile1"></div> 
        <div align="center"><span class="Stile1"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(RS.Fields.Item("Citta").Value)%></font></span></div></td>
        <td height="30" nowrap>          <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><span class="Stile1"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(RS.Fields.Item("AgenziaSito").Value)%></font></span> </font></div></td>
        <td height="30" nowrap> 
          <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><span class="Stile1"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(RS.Fields.Item("Email").Value)%></font></span></font></div></td>
        <td width="3%" height="30"> 
          <div align="center"></div> 
          <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
            			
            <%
				if RS.Fields.Item("UsaFoto").Value=False then
					Response.Write "No"
				else
					Response.Write "Si"
				
				end if
				%>	
		  </font></div></td>
        <td height="30"> 
          <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">">&raquo;&raquo;</font></div></td>
      </tr>
      <% 
  RS.MoveNext()
  else 
  	Exit For
end if
	Next
end if
%>
    </table>