<% Session.LCID = 1033
tarih1 = now()
tarih2 = DateAdd("n" , -5, Now())
set RS3 = server.createobject("ADODB.Recordset")
sql3 = "select * from uyeler where songiris between #" & tarih1 & "# and #" & tarih2 & "# "
RS3.open sql3,baglanti,1,3
if RS3.eof and RS3.bof then
toplamuye="0"
else
while not rs3.eof
toplamuye=toplamuye+1
rs3.movenext
wend
end if %>
Aktif kulanıcı:
<%
response.Write(""&toplamuye&"")
tarih7=date-2
tarih8=date-1
set RS5 = server.createobject("ADODB.Recordset")
sql5 = "select * from toplam where tarih between #" & tarih8 & "# and #" & tarih7 & "# "
RS5.open sql5,baglanti,1,3
while not rs5.eof
dun=dun+1
rs5.movenext
wend
%>
Dün Giris : <%= dun %>
Bugün Giris : <%= bugun %>
<% set topp = server.createobject("ADODB.Recordset")
sql4 = "select * from toplam"
topp.open sql4,baglanti,1,3
do while not topp.eof
j=j+1
topp.movenext
loop %>
Arık Hırdavat
(c) 2005 Her Hakkı
Saklıdır.
Fiyatlar, özellik bilgileri ve resimler kullanıcıya
haber verilmeden değiştirilebilir. Yazım hatalarından ve ürün
fotoğraflarındaki
olası yanlış bilgilendirmelerden ARIK HIRDAVAT sorumlu değildir.