- Kod:
<%
vt_yol = Server.MapPath("db/veritabanim.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 uyeleriniz"
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
%>
Puanlı üyelik Sistemi
Admin- Admin
Mesaj Sayısı: 63
Yaş: 15
Şehir: İzmir
Hobiler: Yazılım,Teknoloji
Lakap: Ceyfada
Kayıt tarihi: 15/08/08
XxenesxX
