Üyeleri Puana Göre Sıralama

<%
vt_yol = Server.MapPath("db/db.mdb" )
set conn = server.createobject("adodb.connection" )
conn.open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & vt_yol & ";"

Set rs = Server.CreateObject("ADODB.Recordset" )
sql="select * from uye"
rs.open sql,conn,1,3


if rs("puan" ) > = 0 and rs("puan" ) < 50 then
response.write "Yeni Üye"
else
end if

if rs("puan" ) > = 51 and rs("puan" ) < 100 then
response.write "Normal Üye"
else
end if

if rs("puan" ) > = 101 and rs("puan" ) < 250 then
response.write "Bronz Üye"
else
end if

if rs("puan" ) > = 251 and rs("puan" ) < 500 then
response.write "Gümüş Üye"
else
end if

if rs("puan" ) > = 501 and rs("puan" ) < 1000 then
response.write "Altın Üye"
else
end if

%>