This is the simplest and fastest code that implements table sorting in ASP (Sort Ascending & Sort Descending). Excellent for ASP/SQL beginers.

<style>
    th{font-family:arial;font-size.gif:10pt;}
    td{font-family:verdana;font-size.gif:9pt;}
</style>

  
<% 
      Dim conn,  connString  
      connString = "nwind" 
      Set conn = Server.CreateObject("ADODB.Connection")  
      conn.Open connstring   
    
      Dim rs,  sql,  url, fname  
      url = Request.ServerVariables("URL")  
      sql = "SELECT CompanyName,  ContactName,  Address,  City,  Phone From Customers" 
      sort = Request("sort")  
      lastsort = Request("lastsort")  
      if ""sort<>Then  
            If lastsort=sort  Then  
                sort = sort & " desc" 
            End  If  
           sql = sql & " order by "& sort  
      End  If  
      Set rs = conn.Execute(SQL)  
    
     'print headers   
      Response.Write "<TABLE border=1><TR>" 
      For i=0  To rs.fields.count - 1  
           fname = rs.fields(i).name  
           Response.Write "<TH><A href= """ & url & "?sort= "& fname &"&lastsort= "& sort & """>"& fname   
            If sort = fname  Then  
                Response.Write "  + " 
            ElseIf sort = fname & " desc" Then  
                Response.Write " -" 
            End  If  
           Response.Write "</TH>" 
      next  
      Response.Write "</TR>" 
    
     'print recs   
      Do  While Not rs.eof  
           Response.Write "<TR>" 
            For i=0  To rs.fields.count - 1  
                Response.Write "<TD>"& rs(i) & "</TD>" 
            Next  
           Response.Write "</TR>" 
           rs.movenext  
      loop  
      Response.Write "</TABLE>" 
    
      rs.close  
      conn.Close   
      Set rs =  Nothing  
      Set conn =  Nothing  
      %>