Dropdown Problem

webmaster72 · August 26th, 2005, 04:00 PM

I have a dropdown list populated with data from access database. It displays data in sequence order. However, I want it to display in reverse order, start with the latest entry. I have the code below:

<select name="ID">
<option></option>
<%
    ' Continue until we get to the end of the recordset.
    Do While Not objRS.EOF
        ' For each record we create a option tag and set it's value to the employee id
        ' The text we set to the employees first name combined with a space and then their last name
        %>
<option value="<%= objRS.Fields("ID") %>"><%= objRS.Fields("DDATE") %>/<%= objRS.Fields("DDATE1") %>/<%= objRS.Fields("DDATE2") %></option>
        <%
    ' Get next record
    objRS.MoveNext
    Loop
    %>
    </select>

Can anyone please tell me what do I need to change in the above code to make it display in reverse order? Thanks.

Steven · September 20th, 2005, 02:07 AM

Depending on how you open your recordset, objRs.Sort "ID Desc" might not work, so....
in the source of your recordset, state the sorting order.
eg:

Code:

Dim objRs
<%
Set objRs = Server.CreateObject("ADODB.RecordSet")
objRs.ActiveConnection = SomeConnectionString
objRs.CursorType = 3
objRs.LockType = 1
objRs.Source = "SELECT ID, DDATE, DDATE1, DDATE2 FROM YourTable ORDER BY ID DESC"
objRs.Open
If Not objRs.EOF Then
%>
<select name="ID">
<option></option>
<%
    ' Continue until we get to the end of the recordset.
    Do While Not objRS.EOF
        ' For each record we create a option tag and set it's value to the employee id
        ' The text we set to the employees first name combined with a space and then their last name
        %>
<option value="<%= objRS.Fields("ID") %>"><%= objRS.Fields("DDATE") %>/<%= objRS.Fields("DDATE1") %>/<%= objRS.Fields("DDATE2") %></option>
        <%
    ' Get next record
    objRS.MoveNext
    Loop
    %>
    </select>

I am a loud man with a very large hat. This means I am in charge