<% Response.Expires = 0 %> <% Set Conn = Server.CreateObject("ADODB.Connection") Set Comm = Server.CreateObject("ADODB.Command") Set RS = Server.CreateObject("ADODB.Recordset") Conn.Open "DSN=Windows NT Bugs:Raid4;UID=ntbugRW;PWD=ntbugRW" Comm.CommandText = "Select DBColName,FriendlyName,Type from flds Order by DBColName" Set Comm.ActiveConnection = Conn Set RS.Source = Comm RS.Open FldArray = RS.GetRows() RS.Close Conn.Close if Request.QueryString("type") = "sort" then fl = "," & Session("FieldSort") & "," Response.Write "Field sort order" fSort = TRUE sClick = "setorder('dest');" else fl = "," & Session("FieldList") & "," Response.Write "Field list" fSort = FALSE sClick = "" end if Response.Write "







<% if fSort then Response.Write "Ascending
" Response.Write "Descending
" end if %>