Puanlı üyelik Sistemi

28/6/2010, 17:31 tarafından Admin

» Delphi kod Arşivi

28/6/2010, 17:26 tarafından Admin

» Visual Basic

28/6/2010, 17:22 tarafından Admin

» GIMP - Bedava Photoshop

28/6/2010, 16:45 tarafından Admin

» Html'ye giriş

28/6/2010, 16:29 tarafından Admin

WWW.XXENESXX.HAREKETFORUM.ORG

Puanlı üyelik Sistemi

28/6/2010, 00:30 tarafından Admin

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 %>

Kullanıcılarımız toplam 34 mesaj attılar bunda 34 konu

Toplam 3 kayıtlı kullanıcımız var

Son kaydolan kullanıcımız: maraz-erkan

Toplam 1 kullanıcı online :: 0 Kayıtlı, 0 Gizli ve 1 Misafir

Yok

Sitede bugüne kadar en çok 7 kişi 28/12/2008, 02:32 tarihinde online oldu.