Çevrimdışı

Üye 15 dakika sonra offline olsun


<%
Set istatistik4 = server.createobject("adodb.recordset" )
SQL="Select * from uyeler where online = 'evet' order by id desc"
istatistik4.Open SQL,baglantim,1,3

If istatistik4.Eof Then
Response.Write "Şu anda online üye yok!!!"
Else
Do While not istatistik4.Eof
Response.Write "<a href=javascript:YeniPencere('uye_profil.asp?uye_id =" &istatistik4("id" )&"','200','150','650','167')>" &istatistik4("kadi" )&"</a>, "
istatistik4.Movenext
Loop
End If
%>

Çıkış.ASP :


----
<%
uye_online.update
uye_online("online" ) = "hayir"
uye_online.update

Session ("kadi" ) = ""
Session ("sifre" ) = ""
Session ("uye_seviyesi" ) = ""
Session ("online" ) = "cikti"

Response.Cookies ("kadi" ) = ""
Response.Cookies ("sifre" ) = ""
Response.Cookies ("uye_seviyesi" ) = ""


Response.Redirect "default.asp"
%>