<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
  Dim CS As New Tornado.z
  With CS
    .dbQP = "U=12| S=17|Gdf=0,1,2,3,4| D=Nwind| Q=Orders| Th=tit=Single Col Sort"
    .dbSortFlds = "0,1,employeeid,3"
    .dbSortColLeftJustify = True
'...Following option force single column sort
    .dbOptions = "SingleColumnSort=true"
    .ASPdbNET()
  End With
End Sub
</script>