quote:

---

Danm, No!
I Meant I DOnt Want To Edit The Table With My Hands I DOnt Wanna Open TheDataBase And Order The Table.
I Wanna Do It From The Form.
Si I Will Be Able To Set The Order Of The Fields! i wrote evverthing i want can some one help me?

---

CoolGil, calm down. He didn't totally understand what you wanted so he asked for clarification

To get the effect you want, you are going to need to create a hidden field that you will use to sort by. That's the only way I know of to achieve the result you want.

Dave Maxwell
--------------
Proud to be a "World Class" Knucklehead

<%

set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("***.mdb")

Conn.Errors.Clear

set rs = Server.CreateObject("ADODB.Recordset")

Sql = "SELECT * FROM crew"
set rs = Conn.Execute (Sql)

DO UNTIL rs.EOF
response.write "<tr><td bordercolor=green dir=rtl><p align=left>" & rs("Profile") & "</p></td><td bordercolor=green dir=rtl><p align=left>" & rs("Name") & "</p></td></tr>"
rs.movenext
LOOP

rs.close
set rs=nothing
conn.close
set conn=nothing
%>

<%
'---------------------------------
' Get our Record Set into an Array
'---------------------------------
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("***.mdb")
Conn.Errors.Clear
set rs = Server.CreateObject("ADODB.Recordset")
Sql = "SELECT * FROM crew"
set rs = Conn.Execute (Sql)
if not rs.EOF then
  MyArray = rs.GetRows()
  rs.Close()
  set rs = nothing
  Conn.Close()
  set Conn = nothing
  NumCols = ubound(MyArray,1)
  NumRows = ubound(MyArray,2)
else
  NumCols = 0
  NumRows = 0
end if


'---------------------------------------
' Determine Sort order requested by User
'---------------------------------------
req = Request("sortBy")
If Len(req) < 1 Then sortBy = 0 Else sortBy = CInt(req)
req = Request("priorSort")
If Len(req) < 1 Then priorSort = -1 Else priorSort = CInt(req)
If sortBy = priorSort Then
    reverse = true
    priorSort = -1
Else
    reverse = false
    priorSort = sortBy
End If


'-----------------------------
' Heres where the work is done
'-----------------------------
Dim SortArray()
ReDim SortArray(NumRows)
' Put the data into an Array of Arrays
For RowCount = 0 to NumRows
  MyData = ""
  For ColCount = 0 to NumCols
    MyData = MyData & MyArray(ColCount,RowCount) & "|"
  next
  MyData = left(MyData,Len(MyData)-1) ' Remove last pipe
  tempArray = split(MyData,"|")
  SortArray(RowCount) = tempArray
next


' Determine field type for sorts ie String or Number
If VarType( SortArray( 0 )( sortBy ) ) = 8 Then 
    If reverse Then kind = 1 Else kind = 2 ' sorting strings...
Else
    If reverse Then kind = 3 Else kind = 4 ' non-strings (numbers, dates)
End If


'----------------------------------------
' Sort the data with a simple bubble sort
'----------------------------------------
For i = ubound(SortArray) TO 0 Step -1
    minmax = SortArray( 0 )( sortBy )
    minmaxSlot = 0
    For j = 1 To i
        Select Case kind ' which kind of sort are we doing?
        Case 1 ' string, reverse...we do case INsensitive!
            mark = (strComp( SortArray(j)(sortBy), minmax, vbTextCompare ) < 0)
        Case 2 ' string, forward...we do case INsensitive!
            mark = (strComp( SortArray(j)(sortBy), minmax, vbTextCompare ) > 0)
        Case 3 ' non-string, reverse ...
            mark = (SortArray( j )( sortBy ) < minmax)
        Case 4 ' non-string, forward ...
            mark = (SortArray( j )( sortBy ) > minmax)
        End Select
        ' so is the current slot bigger/smaller than the remembered one?
        If mark Then 
            ' yep, so remember this one instead!
            minmax = SortArray( j )( sortBy )
            minmaxSlot = j
        End If
    Next
    ' is the last slot the min (or max), as it should be?
    If minmaxSlot <> i Then 
        ' nope...so do the needed swap...
        temp = SortArray( minmaxSlot )
        SortArray( minmaxSlot ) = SortArray( i )
        SortArray( i ) = temp
    End If
Next


'---------------------
' Now Display our page
'---------------------
%>
<FORM Name="doSort" Method="Get">
<INPUT Type=Hidden Name=priorSort Value="<% = priorSort %>">
<INPUT Type=Hidden Name=sortBy Value="-1">
</FORM>

<SCRIPT Language="JavaScript">
function reSort( which )
{
    document.doSort.sortBy.value = which;
    document.doSort.submit( );
}
</SCRIPT>

<TABLE Border="1" cellPadding="4" cellspacing="0">
<TR>
    <TH align="left"><A HREF="javascript:reSort(0);">RecordId</span></A></TH>
    <TH align="left"><A HREF="javascript:reSort(1);">Name</span></A></TH>
    <TH align="left"><A HREF="javascript:reSort(2);">Profile</span></A></TH>
</TR>
<%


'------------------------------------
' Now Display our nicely sorted table
'------------------------------------
For i = 0 To NumRows
  Response.Write "  <TR>" & vbNewLine
  For j = 0 To UBound( SortArray(i) )
    Response.Write "    <TD>" & SortArray(i)(j) & "</TD>" & vbNewLine
  Next
Response.Write "  </TR>" & vbNewLine
Next
%>
</TABLE>

quote:

---

To resort the table order you just click on the column heading.

---