| Navigation |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
Üyeleri Puana Göre Sıralamak |
|
| |
| Kod Alanı: |
<%
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
%> |
|
|
|
|
|
|
|
|
|
|
| |
Bugün 43 ziyaretçi (55 klik) buradaydı |
|
|
|
|
|
|
|
