עזרה ב Asp | הצגת רשומים לפי הסטטוס שלהם

[somebody]

order by status
אתה מסדר ע"פ סטטוס, אבל בהגדרות של המשתמשים שעשית, לא קבעת הגדרות טובות, הייתה צריך לעשות:
מנהל-2
משתמש-1
מושעה-0

ואז אתה שולף ע"פ
order by status desc
ואז זה היה שולף:
מנהלים
משתמשים
מושעים

לפי איך שאתה עשית, זה ישלוף:
מנהלים
מושעים
משתמשים

כמובן שיש עוד דרכים, אבל הן דפוקות, ולא יעילות, הכי טוב אם תשנה מ את 0ל-1 ואת 1 ל-0.

[0xfo7d]

תוכל אולי לומר לי איך אני משלב את מה שהסברת לי בקטע קוד הזה:

<%
dim conn,rs,sql

Set conn = Server.CreateObject("ADODB.Connection") 
conn.Open "db"

sql="select * from users "

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

rs.Open sql,conn

do while not rs.EOF 
Response.Write "<tr>"


Response.Write "<td bgcolor='#FFFFFF' width='0%' align='right' valign='middle' class='textnews' style='border-bottom: 1px solid #E4E4E4;font-size: 12px;'>" & rs("User_name")  & "</td>"


Response.Write "<td bgcolor='#E4E4E4' width='0%' align='center' valign='middle' class='textnews' style='border-bottom: 1px solid #E4E4E4;font-size: 12px;'>" & rs("Password")  & "</td>"


Response.Write "<td bgcolor='#FFFFFF' width='25%' align='center' valign='middle' class='textnews' style='border-bottom: 1px solid #E4E4E4;font-size: 12px;'>&nbsp;" & rs("Name_Price_List")  & "</td>"


Response.Write "<td bgcolor='#E4E4E4' width='25%' align='center' valign='middle' class='textnews' style='border-bottom: 1px solid #E4E4E4;font-size: 12px;'>"
select case rs("Status")
case 0
Response.Write  "משתמש רגיל"
case 1
Response.Write  "<font color='red'>מנהל</font>"
case 2
Response.Write  "מושעה"
end select
Response.Write "</td>"


Response.Write "<td bgcolor='#FFFFFF' width='25%' align='center' valign='middle' class='textnews' style='border-bottom: 1px solid #E4E4E4;font-size: 12px;'><a href=UpdateMembers.asp?User_name=" &  rs("User_name") & "><img src='edit.gif' border='0'></a></td>"


Response.Write "<td bgcolor='#FFFFFF' width='25%' align='center' valign='middle' class='textnews' style='border-bottom: 1px solid #E4E4E4;font-size: 12px;'>"
if rs("Status")=1 then
Response.Write "---"
else
Response.Write "<a href=DelMembers.asp?User_name=" &  rs("User_name") & "><img src='delete.gif' border='0'></a>"
end if
Response.Write "</td>"

Response.Write "</tr>"

rs.MoveNext 
loop
	
	rs.Close
	set rs=nothing
	conn.Close 
	set conn=nothing
	
%>

תודה רבה.