Here is my code:
User_id   Firstname   Lastname   Role
-------------------------------------
1         Jenny       Rogers     A
2         Jenny2      Rogers2    B
1         Jenny       Rogers     B
2         Jenny2      Rogers2    A
3         Jenny3      Rogers3    C

ASP code:
<form action="" method="post" id="newMenu" name="frmReport" onSubmit="return validateForm(this)">

<table>

<thead>

                <tr>

                <td>

            <strong>New User: </strong>

          <select name="UserID">

            <option value="">All Users</option>

            <%

                sSQL = "SELECT DISTINCT User_id, Lastname, Firstname FROM User "

                objRS.Open sSQL, objConn

                Do Until objRS.EOF

                    Response.Write("<option value='" & objRS("User_id") & "'>" & objRS("Lastname") & ", " & objRS("Firstname") & "</option>")

                objRS.MoveNext

                Loop

                objRS.Close

            %>

        </select>



                <%          If Len("UserID") > 0 Then

                                sSQL = "SELECT User_id, Role FROM Users WHERE User_id = '" & request.Form("UserID") & "' ; "

                                objRS.Open sSQL, objConn

                Do Until objRS.EOF

            %>

                <input type="text" name="Role" value="<%= objRS("Role") %>">

            <%

                objRS.MoveNext

                Loop

                objRS.Close

End If

            %>

<input type="hidden" name="FormSource" value="SubmitForm">

<input type="submit" value="Submit Form">

</th></tr></table>

</form>