<%
  orderType = Request.QueryString("orderType")
  ascDescType = Request.QueryString("ascDescType")
  If orderType <> "name" AND orderType <> "authority" Then
    orderType = "dataregistrazione"
  End If
  If ascDescType <> "DESC" Then
    ascType = "ASC"
  End If
  
  'Creo una nuova stringa SQL 
  validateSQL = "SELECT * FROM tbl_Authors ORDER BY " & orderType & " " & ascDescType
  
  'Creo un nuovo recordsheet
  Set rs_userlist = Server.CreateObject ("ADODB.RecordSet")
  
  'Apro il record sheet e eseguo SQL
  rs_userlist.open validateSQL,adoCon
%>

<%
  While not rs_userlist.EOF
  If rs_userlist("stato") = "Active" Then
%>

<%
  End If
  rs_userlist.MoveNext()
  WEnd
%>

<%=rs_viewuser("id")%>