WebWiz Destek Sitesi

Bu gün Forumu ziyaret eden üyeler eklentisi

webwizdestek — Fri, 22 Aug 2008 19:13:43 +0000

Bu gün Forumu ziyaret eden üyeler eklentisi

Caps:

default.asp de

aşağıdaki kodu aratın


 
  
 
 
  
 
 
  
  
 <%
'Get the number of active users if enabled
If blnActiveUsers Then

 %>
 
  
 
 
  
  
 <%'If birthdays is enabled show who has a birthday today
If strBirthdays <> "" Then

 %>
 
  
 
 
  
  
 <%

End If

 %>
<% = strTxtWhatsGoingOn %>
<% = strTxtForumStatistics %>
forum_statistics.<% = strForumImageType %>" alt="<% = strTxtForumStatistics %>" title="<% = strTxtForumStatistics %>" /> <%
Response.Write(strTxtOurUserHavePosted & " " & FormatNumber(lngTotalNumberOfPosts, 0) & " " & strTxtPostsIn & " " & FormatNumber(lngTotalNumberOfTopics, 0) & " " & strTxtTopicsIn & " " & intNumberofForums & " " & strTxtForums & _
"
" & strTxtLastPost & "; " & DateFormat(dtmLastEntryDateAllForums) & " " & strTxtAt & " " & TimeFormat(dtmLastEntryDateAllForums) & " " & strTxtBy & " " & strLastEntryUserAllForums & "")
'Display some statistics for the members
If lngNoOfMembers > 0 Then
Response.Write("
" & strTxtWeHave & " " & FormatNumber(lngNoOfMembers, 0) & " " & strTxtForumMembers & _
"
" & strTxtTheNewestForumMember & " " & saryMemebrStats(0, 0) & "")
End If
%>
<% = strTxtActiveUsers %>
active_users.<% = strForumImageType %>" alt="<% = strTxtActiveUsers %>" title="<% = strTxtView & " " & strTxtActiveUsers %>" border="0" /> <%

 'Get the active users online
 For intArrayPass = 1 To UBound(saryActiveUsers, 2)

  'If this is a guest user then increment the number of active guests veriable
  If saryActiveUsers(1, intArrayPass) = 2 Then 

   intActiveGuests = intActiveGuests + 1

  'Else if the user is Anonymous increment the Anonymous count
  ElseIf CBool(saryActiveUsers(8, intArrayPass)) Then 

   intAnonymousMembers = intAnonymousMembers + 1

  'Else add the name of the members name of the active users to the members online string
  ElseIf CBool(saryActiveUsers(8, intArrayPass)) = false Then
   If strMembersOnline <> "" Then strMembersOnline = strMembersOnline & ", "
   strMembersOnline = strMembersOnline & "" & saryActiveUsers(2, intArrayPass) & ""
  End If

 Next
 'Calculate the number of members online and total people online
 intActiveUsers = UBound(saryActiveUsers, 2)

 'Calculate the members online by using the total - Guests - Annoymouse Members
 intActiveMembers = intActiveUsers - intActiveGuests - intAnonymousMembers

 Response.Write(strTxtInTotalThereAre & " " & intActiveUsers & " " & strTxtActiveUsers & " " & strTxtOnLine & ", " & intActiveGuests & " " & strTxtGuests & ", " & intActiveMembers & " " & strTxtMembers & ", " & intAnonymousMembers & " " & strTxtAnonymousMembers)
 If strMembersOnline <> "" Then Response.Write(vbCrLf & "   
" & strTxtMembers & " " & strTxtOnLine & ": " & strMembersOnline)
End If
%>
  
<% = strTxtTodaysBirthdays %>
todays_birthdays.<% = strForumImageType %>" alt="<% = strTxtTodaysBirthdays %>" title="<% = strTxtTodaysBirthdays %>" /> <% = strBirthdays %>

aşağıdaki kodla değiştirin




  
    
  
  
    
  
  
    
    
  
  <%
'Get the number of active users if enabled
If blnActiveUsers Then

 %>
  
    
  
  
    
    
  
  <%'If birthdays is enabled show who has a birthday today
If strBirthdays <> "" Then

 %>
  
    
  
  
    
    
  
  <%

End If

 %>
  
    
  
  
    
    
  <% = strTxtWhatsGoingOn %>
<% = strTxtForumStatistics %>
forum_statistics.<% = strForumImageType %>" alt="<% = strTxtForumStatistics %>" title="<% = strTxtForumStatistics %>" /> <%
Response.Write(strTxtOurUserHavePosted & " " & FormatNumber(lngTotalNumberOfPosts, 0) & " " & strTxtPostsIn & " " & FormatNumber(lngTotalNumberOfTopics, 0) & " " & strTxtTopicsIn & " " & intNumberofForums & " " & strTxtForums & _
"
" & strTxtLastPost & "; " & DateFormat(dtmLastEntryDateAllForums) & " " & strTxtAt & " " & TimeFormat(dtmLastEntryDateAllForums) & " " & strTxtBy & " " & strLastEntryUserAllForums & "")
'Display some statistics for the members
If lngNoOfMembers > 0 Then
Response.Write("
" & strTxtWeHave & " " & FormatNumber(lngNoOfMembers, 0) & " " & strTxtForumMembers & _
"
" & strTxtTheNewestForumMember & " " & saryMemebrStats(0, 0) & "")
End If
%>

      <% = strTxtActiveUsers %>
    
active_users.<% = strForumImageType %>" alt="<% = strTxtActiveUsers %>" title="<% = strTxtView & " " & strTxtActiveUsers %>" border="0" /> <%

 'Get the active users online
 For intArrayPass = 1 To UBound(saryActiveUsers, 2)

  'If this is a guest user then increment the number of active guests veriable
  If saryActiveUsers(1, intArrayPass) = 2 Then 

   intActiveGuests = intActiveGuests + 1

  'Else if the user is Anonymous increment the Anonymous count
  ElseIf CBool(saryActiveUsers(8, intArrayPass)) Then 

   intAnonymousMembers = intAnonymousMembers + 1

  'Else add the name of the members name of the active users to the members online string
  ElseIf CBool(saryActiveUsers(8, intArrayPass)) = false Then
   If strMembersOnline <> "" Then strMembersOnline = strMembersOnline & ", "
   strMembersOnline = strMembersOnline & "" & saryActiveUsers(2, intArrayPass) & ""
  End If

 Next
 'Calculate the number of members online and total people online
 intActiveUsers = UBound(saryActiveUsers, 2)

 'Calculate the members online by using the total - Guests - Annoymouse Members
 intActiveMembers = intActiveUsers - intActiveGuests - intAnonymousMembers

 Response.Write(strTxtInTotalThereAre & " " & intActiveUsers & " " & strTxtActiveUsers & " " & strTxtOnLine & ", " & intActiveGuests & " " & strTxtGuests & ", " & intActiveMembers & " " & strTxtMembers & ", " & intAnonymousMembers & " " & strTxtAnonymousMembers)
 If strMembersOnline <> "" Then Response.Write(vbCrLf & "   
" & strTxtMembers & " " & strTxtOnLine & ": " & strMembersOnline)
End If
%>
    
<% = strTxtTodaysBirthdays %>
todays_birthdays.<% = strForumImageType %>" alt="<% = strTxtTodaysBirthdays %>" title="<% = strTxtTodaysBirthdays %>" /> <% = strBirthdays %>
Bugün Forumu Ziyaret Eden Üyeler
active_users.gif" alt="<% = strTxtActiveUsers %>" /> <%

Dim Num
Num = 0
Dim Visiters_of_Members_Today
Dim LngMmeber_Vistor_ID
Dim GroupID_type
If strDatabaseType = "SQLServer" Then
 strSQL = "SELECT tblAuthor.Username, tblAuthor.Author_ID, tblAuthor.Group_ID "
 strSQL = strSQL & "FROM tblAuthor "
 strSQL = strSQL & "where day(tblAuthor.Last_visit) = day(getdate()) and month(tblAuthor.Last_visit) = month(getdate()) and year(tblAuthor.Last_visit) = year(getdate()) "
 strSQL = strSQL & "ORDER BY tblAuthor.Last_visit DESC;"
Else
 strSQL = "SELECT tblAuthor.Username, tblAuthor.Author_ID, tblAuthor.Group_ID "
 strSQL = strSQL & "FROM tblAuthor "
 strSQL = strSQL & "where day(tblAuthor.Last_visit) = day(Date()) and month(tblAuthor.Last_visit) = month(Date()) and year(tblAuthor.Last_visit) = year(Date())"
 strSQL = strSQL & "ORDER BY tblAuthor.Last_visit DESC;"
End If
'Query the database
rsCommon.Open strSQL, adoCon
do while NOT rsCommon.EOF
 Num = Num + 1
 Visiters_of_Members_Today = rsCommon("Username")
 LngMmeber_Vistor_ID = rsCommon("Author_ID")
 GroupID_type = rsCommon("Group_ID")

If GroupID_type = 1 Then Response.Write(vbCrLf & "   " & Visiters_of_Members_Today & "")
If GroupID_type = 3 Then Response.Write(vbCrLf & "   " & Visiters_of_Members_Today & "")
If GroupID_type = 4 Then Response.Write(vbCrLf & "   " & Visiters_of_Members_Today & "")
If GroupID_type = 5 Then Response.Write(vbCrLf & "   " & Visiters_of_Members_Today & "")
If GroupID_type = 6 Then Response.Write(vbCrLf & "   " & Visiters_of_Members_Today & "")
If GroupID_type > 6 Then Response.Write(vbCrLf & "   " & Visiters_of_Members_Today & "")
rsCommon.MoveNext
Loop
%>
        

        

        <%
Response.Write("  " & "Bugün Forumu " & Num & " üye ziyaret etti
   Yönetici      Moderatör      Kýdemli Üye      Üye      Yeni Üye   
" )

'Clean up
Call closeDatabase()
%>

Üye Takım Modülü – V.2

webwizdestek — Fri, 22 Aug 2008 19:10:41 +0000

x serisi için takım modülü vardı 9x içinde yaptık herkeze hayırlı olsun

ilk versiyondan daha güzel olduguna inanıyorum

Access ve Mysql de Çalışmaktadır ,

KURULUM:

İndirdiğiniz dosyadan marzalli.asp çalışıtırınız sonra db ye satır eklenince işimiz bitti silebilirsiniz

sonra diğer dosyaları forum klösründekilerle yer değiştiriniz (yedek almayı unutmayınız)

DOWNLOAD:

http://www.marzalli.com/Download/Uye_Takım_Mod_v.2.0.rar

WebWiz 9.50 – Türkçe Version

webwizdestek — Wed, 20 Aug 2008 18:38:08 +0000

Sürüm : 9.50

Telif : Türkçe Çeviri : Nuri Cengiz

Yapım Tarihi : 8 Mayıs 2008

Boyut : 2.7 MB

Fiyatı : Ücretsiz

İNDİR

Web Wiz Forum Tabela eklentisi

webwizdestek — Wed, 20 Aug 2008 18:32:54 +0000

Eklemiştim Galiba Silinmiş İsteyen Arkdaşlara

Web Wiz Forum Tabela eklentisi

Önizleme:

Eklentiyi Istediginiz Bir Sayaya entegre edebilirsiniz.

Yapmaniz Gerekn Kodlari Çikmasini Istedeiginiz Sayfaya Yapistirmak

http://www.marzalli.com/nufus_marzalli.gif">



Marzalli Forum 

        Nüfus :
 <% Response.Write(""  & FormatNumber(lngNoOfMembers, 0) &  "")
 'Marzalli.Com Tabela eklenti
 %>
    

        Rakim :
    <% Response.Write( FormatNumber(lngTotalNumberOfTopics, 0))
'Marzalli.Com Tabela eklentisi
   %>
    Mesaj Sayisi :
    <% Response.Write(FormatNumber(lngTotalNumberOfPosts, 0))
 'Marzalli.Com Tabela eklenti
 %>

Arşiv Sistemi

webwizdestek — Wed, 20 Aug 2008 16:35:33 +0000

Web Wiz Forum Arşiv Sistemi, aşağıdaki özellikler eklenerek yayınlanmıştır.

+ mySQL ve msSQL veritabanı sistemleri desteği eklendi.
(MySQL 4.1 ve Microsoft SQL Server 2005 Express üzerine test edilmiştir.)

+ Kategori, forum ve konu adları, ilgili adreslerde gösterilmeye başlandı.
(/forum-archive/forum-topic/forum-name.html)

+ Bu isimleri otomatik oluşturan fonksiyonlar eklendi.

+ Dil dosyası ile yerelleştirme kolaylaştırıldı.

+ Parola korumalı forumlar gizlenmeye başlandı.

+ HTML kodları temizlenerek, mesajlar daha temiz gösterilmeye başlandı.

Download

Reklam Alanı Modülü

webwizdestek — Wed, 20 Aug 2008 16:32:16 +0000

includes/status_bar_header_inc.asp içinde en alt satıra

Aşağıdaki Kodları Ekleyiniz Reklamları Kendinize Göre Düzenleyiniz..

KODLARI GÖR

WebWiz Temaları : Vista Black Pack 1.2 | [v.8x]

webwizdestek — Wed, 20 Aug 2008 16:30:27 +0000

Özelikler :

Tema Serisi : JoiThemes (BurakThemes)
Tema Adı : Vista Black Pack
Tema Sürümü : 1.2
Tema Yapımcısı : Burak Güngör (_MeqaN_)
Tema Boyutu : 416KB
Tema Upload Sitesi : www.rapidshare.com

Kurulumu

1)Dosyayı Zipten Çıkarın
2)İçindeki Dosyaları Sunucunuza Atın
3) Hepsi Bu kadar Güle Güle Kullanın

Temayı Bu Adresten İndirebilirsiniz

Denemek İçin Tıkla

Basit WebWiz Açıkları

webwizdestek — Wed, 20 Aug 2008 16:28:42 +0000

Arkadaşlar Bu Konu Altından Sizlere Aklıma Gelen veya Keşfettiğim Bütün Açıkları Yazıcağım Fakat Bu Açıklarla Site Hackleyin Diye Değil Açıklar Sitenizde Mevcutsa Kapatmanız Amacıyla… Yalnız Yazıma Başlamadan Önce Aydınlatmam Gereken 2-3 Mevzu Var. WebWiz Forum Sistemi Neredeyse En Az Açık Bulunan Forum Sistemidir.Hack işinde Cidden Usta Olmayan Biri Kolay Kolay WebWiz Sistemleri Hackleyemez Bu Yüzden Büyük Sitelerde Genellikle WebWiz Forum Sistemleri Kullanılır (Örnek : CW). Ayrıca WebWiz’deki Açıklar Sabittir Siz Düzeltmedikçe Asla Fixlenmez (Kapanmaz) Yani vBulletin,SMF Gibi Php Forumlarda Olduğu Gibi Bir Üst Sürümde Engellenemez Çünkü WebWiz Forum Sistemlerinin Database’si Hostta Bulunur Buda Aslında Çok Büyük Tehdittir. Şuan için Sadece Çalışan Bir Açık Var Ama Bazen Deneye Deneye Açık Bulabiliyorum Buldukça Ekleyeceğim. Açıksız Bir WebWiz Forum Sistemi Dileğiyle…

Database Açığı :

WebWiz Ekibinin Bütün sürümlerindeki Sabit Database Adı “www.siteadi.com/database/wwforum.mdb” şeklindedir. Bu Açık Sayesinde Açığı Bulunan Sitenin Database’sini indirebilirsiniz eee Database inince Admin Şifreleri Üye Şifreleride Elinizde Tabi Md5 Kıran Program Site Vs Elinizde Varsa.

Database Açığı Nasıl Kapatılır ? :

Evet Çok Basit 2-3 Aşama ile Bu Açığı Kapatabiliriz . Dediklerimi Harfiyen Yerine Getirirseniz Bu Açıktan Kurtulursunuz.

1> /Database/database_connection.asp Bu Dosyayı Not Defteri ile Açın
2> İçinde Şu Kodu Taratın “(“database/wwForum.mdb“)”
3> Kırmızı ile Çizili Olan Yere İstediğiniz Database Adını Girin. (Örnek . webwizdestek.mdb)
4> /Database/wwforum.mdb’nin Adını Az Önce Koyduğunuz Ad ile Değiştirin ve Dosyaları Hosta Atın

/rehber.asp Açığı :

Bu Açığımız Her Sitede Mevcut Olmadığı için Kesinlik İfade Edemiyor Malesef. Bu Açık Sadece +Rep Puan Sistemi Kurulu Olan Sitelerde Büyük Tehdit içeriyor. WebWiz Sürümlerine “Gölge” Tarafından Yapılan Rep Sisteminde Bulunan Bu Açık ile Forumdaki Herkesin Rep ve Teşekkür Sayılarını Sıfırlayabilirsiniz. Nasıl mı ? Hedef Aldığınız Siteye Girin Eğer Rep Sistemi Mevcutsa Hemen www.siteadi.com/rehber.asp Sitenin Sonuna Kırmızı ile Yazılmış Kodu Ekleyin. Eğer Açılırsa Devamını Zaten Siz Getirirsiniz Eğer Açılmazsa Açık Fixlenmiş Demektir.

/rehber.asp Açığı Nasıl Kapatılır ?

Bu Açık ile Hack Çok Basit Olduğu Kadar Açığın Kapatılmasıda O Kadar Basit. Tek Bir Aşama ile Açığı Kapatabilirsiniz.

1>Hostunuzdan Rehber.asp dosyasını silin

ve Açığa Güle Güle Diyin.

FrmDunya.Com Scripti – WebWizDestek Güvencesiyle

webwizdestek — Wed, 20 Aug 2008 16:24:05 +0000

Arkadaşlar Merhaba ..

Bu Scripti Paylaşıp Paylaşmamam Hakkında Çok Uzun Süre Düşündüm Çünkü Bu Script’i Tamamiyle Ellerimle Her Eklentisini Kendim Kurdum içinde Çalışmayan 3-4 Tane Eklentinin Düzeltilmiş Yani Çalışıyor Versyonu Var.Emin Olun Tek Bu Scriptte Olan Eklentiler Bile Var. Bu Uzun Süre Düşünme Maratonunun Ardından Bilgisayarımda Boş Boş Kalmaktansa İnsanlar Kullansın Faydalı Oluyim Dedim. Bildiğiniz Üzere FrmDunya Eskiden Admin Olduğum Sitelerden Biri Sitenin Sahibi ile Çıkan Pürüzler Nedeniyle Bırakmıştım. Script’i Çok istek Almıştı Fakat Asla Paylaşılmamıştı Artık Paylaşma Vaktimin Geldiğini Düşünüyorum. Tamamiyle “Burak Güngör” Damgası Taşıyan Bu Eklenti Artık Sizlerle.

Ayrıca İsteğe Göre ” Toplam 3.518 Mesaj, 1.658 Konu ve 176 Forum “ Bu Özellikli Eski FrmDunya DB’sinide Sizlerle Paylaşabilirim Ama Dediğim Gibi İsteğe Göre. Script’in içine Eklemedim çünkü Yaklaşık 15-20 MB arasında Bir Boyutu Var.. Eee Scriptte 20 MB Etti 40Mb İndirmeyi Bırakın Hosta Atmak Baya Zaman ALır. Bu Yüzden Database(DB)yi İsteğe Göre paylaşıcam…Database’yi İsteyenler Aşağıdan Yorum Butonundan Yazarlarsa Cevap Gelicektir…

Son Olarakda Söylemeden Geçemeyeceğim Bir Konu Var. Script Kesinlikle %100 Hatasız Değildir %97 Oranında Hatasız %3 Oranında Hatalıdır. Ama o %3 Hatalı Olduğu Kısım Çok Önemsiz Ve Kimsenin Bulamayacağı Kısımlardır. Bu Yüzden Önemsenmez Ama Genede Hiç Ama Hiç Hatası Olmasın istiyorsanız Kullanmayın Siz Bilirsiniz.

Şimdi Geçelim Kuru Fasülyenin Faydalarına Hee Unutmadan Kullanan Kullanmayan Beğenen Beğenmeyen Herkese Teşekkürler. Umarım Bazı Hırsızlar Gibi Script’te Kendi İmzanızı Basıp Benim Script’im Diye Paylaşmazsınız. Eğer Öyle Yapan Olursa Emeğim Haram Olsun O Kişilere…

Script’in Kurulumu :

1> İndirdiğiniz RAR Dosyasını Masaüstüne Çıkarın (RaR’ın şifresi : www.webwizdestek.blogspot.com)
2> Eğer Kendinize Ait bir DB Varsa Script’in içindeki Dosyaları (DB KLASÖRÜ DIŞINDA) Hostunuza Atın
3> Script Otomatik Kurulmuş Olucaktır…

Not : Kurmadan Önce Mutlaka Eski Scriptinizin Yedeğini Alın.

Script’i İndirmek için Tıkla
Database(DB)yi İndirmek için TIKLA (YAKINDA)

Not : Script WebWiz 9x Versyonlar için Geçerlidir.!

<% = strTxtWhatsGoingOn %>
<% = strTxtForumStatistics %>
forum_statistics.<% = strForumImageType %>" alt="<% = strTxtForumStatistics %>" title="<% = strTxtForumStatistics %>" />	<% Response.Write(strTxtOurUserHavePosted & " " & FormatNumber(lngTotalNumberOfPosts, 0) & " " & strTxtPostsIn & " " & FormatNumber(lngTotalNumberOfTopics, 0) & " " & strTxtTopicsIn & " " & intNumberofForums & " " & strTxtForums & _ " " & strTxtLastPost & "; " & DateFormat(dtmLastEntryDateAllForums) & " " & strTxtAt & " " & TimeFormat(dtmLastEntryDateAllForums) & " " & strTxtBy & " " & strLastEntryUserAllForums & "") 'Display some statistics for the members If lngNoOfMembers > 0 Then Response.Write(" " & strTxtWeHave & " " & FormatNumber(lngNoOfMembers, 0) & " " & strTxtForumMembers & _ " " & strTxtTheNewestForumMember & " " & saryMemebrStats(0, 0) & "") End If %>
<% = strTxtActiveUsers %>
active_users.<% = strForumImageType %>" alt="<% = strTxtActiveUsers %>" title="<% = strTxtView & " " & strTxtActiveUsers %>" border="0" />	<% 'Get the active users online For intArrayPass = 1 To UBound(saryActiveUsers, 2) 'If this is a guest user then increment the number of active guests veriable If saryActiveUsers(1, intArrayPass) = 2 Then intActiveGuests = intActiveGuests + 1 'Else if the user is Anonymous increment the Anonymous count ElseIf CBool(saryActiveUsers(8, intArrayPass)) Then intAnonymousMembers = intAnonymousMembers + 1 'Else add the name of the members name of the active users to the members online string ElseIf CBool(saryActiveUsers(8, intArrayPass)) = false Then If strMembersOnline <> "" Then strMembersOnline = strMembersOnline & ", " strMembersOnline = strMembersOnline & "" & saryActiveUsers(2, intArrayPass) & "" End If Next 'Calculate the number of members online and total people online intActiveUsers = UBound(saryActiveUsers, 2) 'Calculate the members online by using the total - Guests - Annoymouse Members intActiveMembers = intActiveUsers - intActiveGuests - intAnonymousMembers Response.Write(strTxtInTotalThereAre & " " & intActiveUsers & " " & strTxtActiveUsers & " " & strTxtOnLine & ", " & intActiveGuests & " " & strTxtGuests & ", " & intActiveMembers & " " & strTxtMembers & ", " & intAnonymousMembers & " " & strTxtAnonymousMembers) If strMembersOnline <> "" Then Response.Write(vbCrLf & " " & strTxtMembers & " " & strTxtOnLine & ": " & strMembersOnline) End If %>
<% = strTxtTodaysBirthdays %>
todays_birthdays.<% = strForumImageType %>" alt="<% = strTxtTodaysBirthdays %>" title="<% = strTxtTodaysBirthdays %>" />	<% = strBirthdays %>
Bugün Forumu Ziyaret Eden Üyeler
active_users.gif" alt="<% = strTxtActiveUsers %>" />	<% Dim Num Num = 0 Dim Visiters_of_Members_Today Dim LngMmeber_Vistor_ID Dim GroupID_type If strDatabaseType = "SQLServer" Then strSQL = "SELECT tblAuthor.Username, tblAuthor.Author_ID, tblAuthor.Group_ID " strSQL = strSQL & "FROM tblAuthor " strSQL = strSQL & "where day(tblAuthor.Last_visit) = day(getdate()) and month(tblAuthor.Last_visit) = month(getdate()) and year(tblAuthor.Last_visit) = year(getdate()) " strSQL = strSQL & "ORDER BY tblAuthor.Last_visit DESC;" Else strSQL = "SELECT tblAuthor.Username, tblAuthor.Author_ID, tblAuthor.Group_ID " strSQL = strSQL & "FROM tblAuthor " strSQL = strSQL & "where day(tblAuthor.Last_visit) = day(Date()) and month(tblAuthor.Last_visit) = month(Date()) and year(tblAuthor.Last_visit) = year(Date())" strSQL = strSQL & "ORDER BY tblAuthor.Last_visit DESC;" End If 'Query the database rsCommon.Open strSQL, adoCon do while NOT rsCommon.EOF Num = Num + 1 Visiters_of_Members_Today = rsCommon("Username") LngMmeber_Vistor_ID = rsCommon("Author_ID") GroupID_type = rsCommon("Group_ID") If GroupID_type = 1 Then Response.Write(vbCrLf & " " & Visiters_of_Members_Today & "") If GroupID_type = 3 Then Response.Write(vbCrLf & " " & Visiters_of_Members_Today & "") If GroupID_type = 4 Then Response.Write(vbCrLf & " " & Visiters_of_Members_Today & "") If GroupID_type = 5 Then Response.Write(vbCrLf & " " & Visiters_of_Members_Today & "") If GroupID_type = 6 Then Response.Write(vbCrLf & " " & Visiters_of_Members_Today & "") If GroupID_type > 6 Then Response.Write(vbCrLf & " " & Visiters_of_Members_Today & "") rsCommon.MoveNext Loop %> <% Response.Write(" " & "Bugün Forumu " & Num & " üye ziyaret etti Yönetici Moderatör Kýdemli Üye Üye Yeni Üye " ) 'Clean up Call closeDatabase() %>