Web Wiz Forums Modifications - Who Visited Today Mod

Print Page | Close Window

Who Visited Today Mod - ReWorked Working Edition

Printed From: Web Wiz Forums
Category: Web Wiz Web App Support Forums
Forum Name: Web Wiz Forums Modifications
Forum Description: Mod's and Add-on's for Web Wiz Forums.
URL: https://forums.webwiz.net/forum_posts.asp?TID=19298
Printed Date: 29 March 2026 at 8:34pm
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com

Topic: Who Visited Today Mod - ReWorked Working Edition

Posted By: fatih.koz
Subject: Who Visited Today Mod - ReWorked Working Edition
Date Posted: 14 April 2006 at 3:27pm

Here you go ,

Lastest working mod of the famous "Who Visited Today Mod"

BTW I think this is the first post on 8.x Version Mods , I hope futhers mods come in Wink

For WWF 8 SQL Version


<%
'-------------------------------------------------------------------------------
'Visitors today MOD (Modded Again and Again) SQL Db , WWF Ver 8 / By Fatih Koz
'-------------------------------------------------------------------------------
'Declare Variables
Dim MyCheck 'As Boolean
Dim intDay,intMonth,intYear 'As Integer
Dim dtmDate, dtmTempDate 'As datetime
Dim AddTimeOffset 'as String like +7 or -8 - Holds The Time Difference
Dim TotalVisit 'as Integer Holds The Total Visitor Count
Dim strModTableHeading, strModTableNote
strModTableHeading = "Members Visited Today"
strModTableNote = "Member"
'Get Date
dtmDate = Now()
' Build The Time Difference
AddTimeOffset = strTimeOffset & intTimeOffset
dtmTempDate = DateAdd("h", AddTimeOffset, dtmDate)
'Seprate the date into differnet strings
intDay = CInt(Day(dtmTempDate))
intMonth = CInt(Month(dtmTempDate))
intYear = CInt(Year(dtmTempDate))
MyCheck = False
'First Of All Take The Count
strSQL = "SELECT Count(tblAuthor.Username) as TotalVisitors "
strSQL = strSQL & " FROM tblAuthor WITH (NOLOCK) WHERE"
strSQL = strSQL & " day(DateAdd(hh, " & AddTimeOffset &", tblAuthor.Last_visit)) = " & intDay & " and"
strSQL = strSQL & " month(DateAdd(hh, " & AddTimeOffset &", tblAuthor.Last_visit)) = " & intMonth & " and"
strSQL = strSQL & " year(DateAdd(hh, " & AddTimeOffset &", tblAuthor.Last_visit)) = " & intYear 
strSQL = strSQL & " ;"
' Run The Code
rsCommon.Open strSQL, adoCon
TotalVisit = rsCommon("TotalVisitors")
rsCommon.Close
%>
<tr class="tableSubLedger">
<td colspan="2"><%=strModTableHeading%> - (<%=TotalVisit%>)</td>
</tr>
<tr class="tableRow">
<td
width="4%" align="center"><img src="<% = strImagePath
%>active_users.gif" alt="Bug�ne Ait Forum Ziyaretcileri" border="0"
/></td>
<td width="96%">
<%
'Build Up The SQL For Member Names Selection
strSQL = "SELECT tblAuthor.Username, tblAuthor.Author_ID, tblAuthor.Last_visit,"
strSQL = strSQL & " DateAdd(hh, " & AddTimeOffset &", tblAuthor.Last_visit) AS FFGG"
strSQL = strSQL & " FROM tblAuthor WITH (NOLOCK) WHERE"
strSQL = strSQL & " day(DateAdd(hh, " & AddTimeOffset &", tblAuthor.Last_visit)) = " & intDay & " and"
strSQL = strSQL & " month(DateAdd(hh, " & AddTimeOffset &", tblAuthor.Last_visit)) = " & intMonth & " and"
strSQL = strSQL & " year(DateAdd(hh, " & AddTimeOffset &", tblAuthor.Last_visit)) = " & intYear
strSQL = strSQL & " ORDER BY tblAuthor.Username;"
' Run The Code
rsCommon.Open strSQL, adoCon 
' Write UserNames In Order With Profile Links
Response.Write " "
Do Until rsCommon.eof
 If MyCheck = True then
  Response.Write " , "
 Else
  MyCheck = True
 End If
Response.Write "<a class=""smlink"" href=""member_profile.asp?PF=" & rsCommon("Author_ID") & """>"
Response.Write rsCommon("Username")
Response.Write "</a>"
rsCommon.MoveNext
Loop
rsCommon.Close
' If You Wish You Can Delete The Table Heading Count And Use This Line Under or Over The UserNames 
Response.Write "<br><br>" & TotalVisit & " " & strModTableNote & " ...<br><br>"
'Clean up
Call closeDatabase()
%>
</td>
 </tr>
<%
'-------------------------------------------------------------------------------------------
'End Visitors Today MOD ( Latest Mod By Fatih Koz - For Turkish Virtual Aviation Forum )
'-------------------------------------------------------------------------------------------
%>

Installation is simple ;

Insert The Code To Your Default.asp just after the Online Members Display Area .

Change The Texts For Your Needs

Find the other


'Clean up

Call closeDatabase()

Section in your default.asp file and delete it , if you wish just add ' before them

If you miss this step you will get an error 'cause the DB connection will be closed .

It will work .

You can both have the total amount in the table heading area and after the member names .

So choose one and delete the other section

I prefer havind it in the table heading section .

Here is a screenshot of what it look likes

Hope this helps you and ends the ongoing wait for this great mod .

Thanks for the authors worked on this from the start .

Note : I'm not an SQL or ASP expert 'cause of this I can not build a colored version of this ... If it can be done , it will be great

Note 2 : If needed please optimize this code for performance issues 'cause this is best I can do Embarrassed

-------------
B. Fatih Koz

http://virtual.planepictures.net/search.cgi?fatih.koz@atlasvirtual.org - VPP Flightsim Screenshots

Replies:

Posted By: Mikey
Date Posted: 14 April 2006 at 3:30pm

Only problem i'm having now is i thought the 'pop up profile' was redundant in version 8?

Your above code tries to include an old Javascript for creating the pop-up profile.

Apart from that it's great to have this back again woohoo Clap

-------------
Handyman man?

Posted By: fatih.koz
Date Posted: 14 April 2006 at 3:34pm

Yes you are right :(

I forgot to change the Link Code , even I forgot to test it ... Sorry for that , will try to correct it now .

I think I'm confused of having a working mod and miss the links completely Tongue

-------------
B. Fatih Koz

http://virtual.planepictures.net/search.cgi?fatih.koz@atlasvirtual.org - VPP Flightsim Screenshots

Posted By: Mikey
Date Posted: 14 April 2006 at 3:42pm

ha ha it's a great mod and it's only a minor problem which should be very easy to fix, i am very gratefull that you have updated and released this mod as it is one of my and my users favourite add ons Clap

-------------
Handyman man?

Posted By: fatih.koz
Date Posted: 14 April 2006 at 3:43pm

Here is the quick solution ;


Response.Write "<a class=""smlink"" href=""member_profile.asp?PF=" & rsCommon("Author_ID") & """>"

First post edited with this update .

Hope this helps ,

-------------
B. Fatih Koz

http://virtual.planepictures.net/search.cgi?fatih.koz@atlasvirtual.org - VPP Flightsim Screenshots

Posted By: Mikey
Date Posted: 14 April 2006 at 3:54pm

Spot on mate,
Nice one Thumbs Up

-------------
Handyman man?

Posted By: JasonPEC
Date Posted: 14 April 2006 at 4:30pm

Excellent job. Thanks!!!

Posted By: k6irk
Date Posted: 14 April 2006 at 10:50pm

Does this code work with the Access version as well or will someone be doing that mod?

Thanks

Posted By: graper
Date Posted: 15 April 2006 at 1:47am

THANKS

-------------
WWF论坛讨论QQ群:2652358
WWF论坛讨论: Http://Www.CNWWF.Com/Forum/ - Http://Www.CNWWF.Com/Forum/

Posted By: wistex
Date Posted: 15 April 2006 at 4:23am

Thanks, and congrats on making the first mod for version 8. Clap

-------------
http://www.wistex.com" rel="nofollow - WisTex Solutions
http://www.caribbeanchoice.com/forums" rel="nofollow - CaribbeanChoice Forums

Posted By: fatih.koz
Date Posted: 15 April 2006 at 6:28am

k6irk wrote:

Does this code work with the Access version as well or will someone be doing that mod?

Thanks

It must work 'cause I think I did not use SQL specific codes , give it a try ... If it does not work please post the error with details so we can try solutions .

Regards,

-------------
B. Fatih Koz

http://virtual.planepictures.net/search.cgi?fatih.koz@atlasvirtual.org - VPP Flightsim Screenshots

Posted By: vassabi
Date Posted: 15 April 2006 at 7:55am

I got this error when run the forum

Error Type:
Microsoft JET Database Engine (0x80040E14)
Syntax error in WITH OWNERACCESS OPTION declaration.
/portal/forum/default.asp, line 815

I use Access DB

Posted By: fatih.koz
Date Posted: 15 April 2006 at 8:53am

Could you please delete the WITH (NOLOCK) sections from the code and try again ...

I think Access does not understand this command and stop executing .

Search this ;


strSQL = strSQL & " FROM tblAuthor WITH (NOLOCK) WHERE"

There are two of them , one in the count section and the other is in the username selection section ... Then change them like this ;



strSQL = strSQL & " FROM tblAuthor WHERE"

This must solve the problem ...

-------------
B. Fatih Koz

http://virtual.planepictures.net/search.cgi?fatih.koz@atlasvirtual.org - VPP Flightsim Screenshots

Posted By: vassabi
Date Posted: 15 April 2006 at 9:05am

Unfortunately it doesn't solve the problem now I got

No value given for one or more required parameters.
In the same line :-(

Thanks for your help.

Posted By: fatih.koz
Date Posted: 15 April 2006 at 9:07am

Let me try , I'm now downloading the access version and will try it on my local server .

Just give me some minutes ...

-------------
B. Fatih Koz

http://virtual.planepictures.net/search.cgi?fatih.koz@atlasvirtual.org - VPP Flightsim Screenshots

Posted By: vassabi
Date Posted: 15 April 2006 at 9:25am

Thanks a lot fatih.koz your help is highly appreciated ;-)

Posted By: fatih.koz
Date Posted: 15 April 2006 at 9:38am

Here is the Access compatible version ;


<%
'-------------------------------------------------------------------------------
'Visitors today MOD (Modded Again and Again) Access , WWF Ver 8 / By Fatih Koz
'-------------------------------------------------------------------------------
'Declare Variables
Dim MyCheck 'As Boolean
Dim intDay,intMonth,intYear 'As Integer
Dim dtmDate, dtmTempDate 'As datetime
Dim AddTimeOffset 'as String like +7 or -8 - Holds The Time Difference
Dim TotalVisit 'as Integer Holds The Total Visitor Count
Dim strModTableHeading, strModTableNote
strModTableHeading = "Members Visited Today"
strModTableNote = "Member"
'Get Date
dtmDate = Now()
' Build The Time Difference
AddTimeOffset = strTimeOffset & intTimeOffset
dtmTempDate = DateAdd("h", AddTimeOffset, dtmDate)
'Seprate the date into differnet strings
intDay = CInt(Day(dtmTempDate))
intMonth = CInt(Month(dtmTempDate))
intYear = CInt(Year(dtmTempDate))
MyCheck = False
'First Of All Take The Count
strSQL = "SELECT Count(tblAuthor.Username) as TotalVisitors "
strSQL = strSQL & " FROM tblAuthor WHERE"
strSQL = strSQL & " day(DateAdd('h', " & AddTimeOffset &", tblAuthor.Last_visit)) = " & intDay & " and"
strSQL = strSQL & " month(DateAdd('h', " & AddTimeOffset &", tblAuthor.Last_visit)) = " & intMonth & " and"
strSQL = strSQL & " year(DateAdd('h', " & AddTimeOffset &", tblAuthor.Last_visit)) = " & intYear 
strSQL = strSQL & " ;"
' Run The Code
rsCommon.Open strSQL, adoCon
TotalVisit = rsCommon("TotalVisitors")
rsCommon.Close
%>
<tr class="tableSubLedger">
<td colspan="2"><%=strModTableHeading%> - (<%=TotalVisit%>)</td>
</tr>
<tr class="tableRow">
<td
width="4%" align="center"><img src="<% = strImagePath
%>active_users.gif" alt="Bug�ne Ait Forum Ziyaretcileri" border="0"
/></td>
<td width="96%">
<%
'Build Up The SQL For Member Names Selection
strSQL = "SELECT tblAuthor.Username, tblAuthor.Author_ID, tblAuthor.Last_visit,"
strSQL = strSQL & " DateAdd('h', " & AddTimeOffset &", tblAuthor.Last_visit) AS FFGG"
strSQL = strSQL & " FROM tblAuthor WHERE"
strSQL = strSQL & " day(DateAdd('h', " & AddTimeOffset &", tblAuthor.Last_visit)) = " & intDay & " and"
strSQL = strSQL & " month(DateAdd('h', " & AddTimeOffset &", tblAuthor.Last_visit)) = " & intMonth & " and"
strSQL = strSQL & " year(DateAdd('h', " & AddTimeOffset &", tblAuthor.Last_visit)) = " & intYear
strSQL = strSQL & " ORDER BY tblAuthor.Username;"
' Run The Code
rsCommon.Open strSQL, adoCon 
' Write UserNames In Order With Profile Links
Response.Write " "
Do Until rsCommon.eof
 If MyCheck = True then
  Response.Write " , "
 Else
  MyCheck = True
 End If
Response.Write "<a class=""smlink"" href=""member_profile.asp?PF=" & rsCommon("Author_ID") & """>"
Response.Write rsCommon("Username")
Response.Write "</a>"
rsCommon.MoveNext
Loop
rsCommon.Close
' If You Wish You Can Delete The Table Heading Count And Use This Line Under or Over The UserNames 
'Response.Write "<br><br>" & TotalVisit & " " & strModTableNote & " ...<br><br>"
'Clean up
Call closeDatabase()
%>
</td>
 </tr>
<%
'-------------------------------------------------------------------------------------------
'End Visitors Today MOD ( Latest Mod By Fatih Koz - For Turkish Virtual Aviation Forum )
'-------------------------------------------------------------------------------------------
%>

Installation is same ...

Changes ;

- Access does not recognize "WITH (NOLOCK)" call [ removed from the mod ]
- Access does not recognize the DateAdd function like SQL [ changed to meet Access Requirements ]

Runs without problems now .

Please test and if you got errors do not hesitate to report :))

-------------
B. Fatih Koz

http://virtual.planepictures.net/search.cgi?fatih.koz@atlasvirtual.org - VPP Flightsim Screenshots

Posted By: vassabi
Date Posted: 15 April 2006 at 9:50am

Great job Fatih

it works wonderful.

Thanks again.

Posted By: fatih.koz
Date Posted: 15 April 2006 at 9:52am

You are welcome Vassabi ... It was a pleasure for me

Best Wishes ,

-------------
B. Fatih Koz

http://virtual.planepictures.net/search.cgi?fatih.koz@atlasvirtual.org - VPP Flightsim Screenshots

Posted By: bikrtrash
Date Posted: 15 April 2006 at 5:34pm

I can't seem to get it to work....

Is there any way that you could post the modded default page for the access version???

Posted By: fatih.koz
Date Posted: 15 April 2006 at 6:55pm

Of course I can post the default.asp pages for Access and SQL in seperate zip files if it not harming the WebWiz License ...

I'm not sure of it .

Will ask Borg for it with a PM , if he accepts "your wish" I will post the zips here .

Regards,

-------------
B. Fatih Koz

http://virtual.planepictures.net/search.cgi?fatih.koz@atlasvirtual.org - VPP Flightsim Screenshots

Posted By: Epperson
Date Posted: 15 April 2006 at 7:28pm

Yeh, I am not very skilled at this stuff, would appreciate a screen shot of where to put the code.

Thanks

http://www.surplus.cc - http://www.surplus.cc

Posted By: fatih.koz
Date Posted: 15 April 2006 at 9:28pm

Sure ;

Here is the screenshots with simple insturctions ;

Pre Step 1 : Take A Backup Copy Of Your Default.asp file ! In case you will need an untouched copy .

Step 1 : Comment Out The CloseDatabase Function Call

Step 2 & 3 : Find Our Insertion Point and Prepare ;)

Step 4 & 5 : Paste The Code Here And Check The Installation

Save your file and upload it to the server (if you are not editing online)

Hope this helps ,

Best Wishes

-------------
B. Fatih Koz

http://virtual.planepictures.net/search.cgi?fatih.koz@atlasvirtual.org - VPP Flightsim Screenshots

Posted By: Mikey
Date Posted: 16 April 2006 at 12:10am

That is the clearest modding instructions i have ever seen Clap

I think all mods should have to come with instructions like that lol LOL

-------------
Handyman man?

Posted By: Epperson
Date Posted: 16 April 2006 at 7:36am

Thanks for the update instruction post.

Even a rookie like me could do it:)

Shane

http://www.surplus.cc - http://www.surplus.cc

Posted By: Ritchie
Date Posted: 16 April 2006 at 7:46am

2 fatih.koz

Thanks

! Excellent work!

-------------
Чем дальше в лес, тем толще партизаны

Posted By: pauli
Date Posted: 16 April 2006 at 2:48pm

Thanks for the assistance, best guidence ever. I have not had this mod working for a very long time

Posted By: bikrtrash
Date Posted: 16 April 2006 at 4:56pm

I guess I am still doing something wrong...I keep getting an error...

Could someone please post the modded default.asp page ?????

Posted By: YaGMuR_PreNSi
Date Posted: 17 April 2006 at 9:11am

Thank Fatih.... Veriy Nice

-------------
MSN and Mail admin@yagmurprensi.net

My WWF: http://www.fatihaytekin.com" rel="nofollow - www.FatihAytekin.com

Posted By: fatih.koz
Date Posted: 17 April 2006 at 10:11am

bikrtrash wrote:

I guess I am still doing something wrong...I keep getting an error...

Could someone please post the modded default.asp page ?????

Sorry but this is not possible at this time ...

What errors do you get ?

Did you use the correct version for your Database Backend ?

Did you make the insertion correctly as explained in the screenshots ?

If you answer this questions maybe we can help .

Regards ,

-------------
B. Fatih Koz

http://virtual.planepictures.net/search.cgi?fatih.koz@atlasvirtual.org - VPP Flightsim Screenshots

Posted By: bikrtrash
Date Posted: 18 April 2006 at 1:26am

Well now i can get the page to come up correctly...However it does not seem to function...

I am using the access version

Posted By: fatih.koz
Date Posted: 18 April 2006 at 8:09am

What is your WWF Version ?

-------------
B. Fatih Koz

http://virtual.planepictures.net/search.cgi?fatih.koz@atlasvirtual.org - VPP Flightsim Screenshots

Posted By: WebmasterFF
Date Posted: 19 April 2006 at 4:15am

Great mod! I found your instructions very useful and were great for beginners like myself

Well done!

Posted By: jwoodyu
Date Posted: 19 April 2006 at 9:11pm

Worked perfectly out of the box. Thanks Thumbs Up

Posted By: bikrtrash
Date Posted: 20 April 2006 at 12:57am

Thanks for all your help faith.koz.....

It's working great now.....

Posted By: oguzhanosman
Date Posted: 22 April 2006 at 5:24pm

Pleaase HELP:

My Access version wwf8.1

That Mod (Who Visited Today Mod - ReWorked Working Edition)

bring this :

*****************************************

Microsoft VBScript derleme hatası hata '800a0408'

Ge�ersiz karakter

/Zambak/default.asp, line 840

 If MyCheck = True then
^

*********************************************

What can I do?

-------------
O�UZHAN http://www.oguzhan.org - www.oguzhan.org

Ne mutlu T�rk�m diyene !

Posted By: fatih.koz
Date Posted: 22 April 2006 at 9:29pm

Here is the answer ;

Why do I get 800A0408 errors?

http://www.aspfaq.com/2376 created: 2002-08-19 last updated: 2002-08-19 10:27 this article is http://www.aspfaq.com/show.asp?id=2376# - printer friendly

Microsoft VBScript compilation error '800a0408'
Invalid character

If you cut and paste code from other sources (e.g. web sites, other editors, etc) you often bring along characters that don't show up in Notepad but are, nonetheless, present -- or do appear as non-prinatable characters, that look like little squares. If you're looking at the line in question and it isn't simply an unclosed string or a premature carriage return, try deleting the line(s) altogether and re-typing them by hand. This should eliminate the possibility of 'invisible' problem characters mucking up the stream.

In short words , this is not an error from the base code ! It is an error from your copy-paste procedure .

For correcting this you have some solutions ;

A. Write the non working line by hand again to a new line then delete the original .

B. Go to the line which reports this error , step one line above and press delete . Continue this delete until the non working line touches the last char of your last working line . Then press enter , and save your asp file !

I know this is spooky but if you do this you will eliminate any unshown chars from your code .

C. Copy the entire code to a blank text document , than copy it again to your default.asp page . DO NOT directly copy the code from source webpages to your asp pages .

My best choices are A and C ;)

Give it a try , this will solve your problems I think .

Regards ,

---------- In Turkish ;

Dostum hata veren satırdan bir �nceki satıra �ıkıp delete tuşuna bas , bu işlemi hata veren satırın ilk harfi �alışan satırın son harfi ile temas edene kadar tekrarla .

İki satır birleştiğinde enter'a bas ve kodu eski haline getirmiş ol .

Kaydet ve �ık , �alışacaktır .

Bu şekilde kopyala-yapıştır işlemi ile koduna eklenen ama g�remediğin ( satır başı , satır sonu gibi kodsal ) bilimum karakterleri yok etmiş olacaksın .

Bir dene ...

Saygılar

-------------
B. Fatih Koz

http://virtual.planepictures.net/search.cgi?fatih.koz@atlasvirtual.org - VPP Flightsim Screenshots

Posted By: Ozan
Date Posted: 24 April 2006 at 3:03pm

<tr class="tableSubLedger">
 <td colspan="2"><%= Response.Write(" Bug�n Forumu Ziyaret Eden �yelerimiz  ( " & Date() & " ) " )%></td>
</tr>
<tr class="tableRow">
 <td align="center"><img src="<% = strImagePath %>active_users.gif" alt="<% = strTxtActiveUsers %>" /></td>
 <td><%
If intGroupID = 0 Then
 Response.Write(vbCrLf & "Bug�n forumu ziyaret eden �yeleri g�rme yetkiniz yok.")
Else

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 & "  <a title=""Y�netici-Profil İ�in Tıklayın"" href=""member_profile.asp?PF=" & LngMmeber_Vistor_ID & """ class=""tHeading"">" & Visiters_of_Members_Today & "</a>")
If GroupID_type = 3 Then Response.Write(vbCrLf & "  <a title=""Admin-Profil İ�in Tıklayın"" href=""member_profile.asp?PF=" & LngMmeber_Vistor_ID & """ class=""tHeading"">" & Visiters_of_Members_Today & "</a>")
If GroupID_type = 4 Then Response.Write(vbCrLf & "  <a title=""�ye-Profil İ�in Tıklayın"" href=""member_profile.asp?PF=" & LngMmeber_Vistor_ID & """>" & Visiters_of_Members_Today & "</a>")
If GroupID_type = 5 Then Response.Write(vbCrLf & "  <a title=""Kıdemli �ye-Profil İ�in Tıklayın"" href=""member_profile.asp?PF=" & LngMmeber_Vistor_ID & """>" & Visiters_of_Members_Today & "</a>")
If GroupID_type = 6 Then Response.Write(vbCrLf & "  <a title=""Moderat�r-Profil İ�in Tıklayın"" href=""member_profile.asp?PF=" & LngMmeber_Vistor_ID & """>" & Visiters_of_Members_Today & "</a>")
If GroupID_type > 6 Then Response.Write(vbCrLf & "  <a title=""Moderat�r-Profil İ�in Tıklayın"" href=""member_profile.asp?PF=" & LngMmeber_Vistor_ID & """>" & Visiters_of_Members_Today & "</a>")
rsCommon.MoveNext
Loop
%>
 
 
 <%
Response.Write(" " & "Bug�n Forumu " & Num & " �ye ziyaret etti Administrator Admin Moderat�r Kıdemli �ye �ye " )
End if

'Clean up
adoCon.Close
Set adoCon = Nothing

%> </td>
</tr>
</table>

Posted By: pilot99
Date Posted: 05 May 2006 at 2:55am

i get this error

Microsoft OLE DB Provider for SQL Server error '80040e14'

Invalid column name 'False'.

/lockerroom/default.asp, line 797

-------------
http://www.globaltornado.com">

Posted By: fatih.koz
Date Posted: 05 May 2006 at 6:23am

@Ozan ;

What is this ? Will you mind writing at least a description !

@pilot99 ;

What is your DB type ?
Which code did you use ? ( Access , SQL or the unknown code of Ozan's )

Regards ,

-------------
B. Fatih Koz

http://virtual.planepictures.net/search.cgi?fatih.koz@atlasvirtual.org - VPP Flightsim Screenshots

Posted By: pilot99
Date Posted: 05 May 2006 at 3:43pm

i am running mssql and i used the code on the very first post.

-------------
http://www.globaltornado.com">

Posted By: balearicjobs
Date Posted: 06 May 2006 at 7:59pm

Thank you for all the hard work which has gone into this mod. It is extremley helpful for my site. Smile

Posted By: klaithem
Date Posted: 11 May 2006 at 9:46am

can we have a little modification to the mod to display the user logged last time next to the user's name?