Web Wiz - Green Windows Web Hosting

  New Posts New Posts RSS Feed - Who Visited Today Mod - ReWorked Working Edition
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

Who Visited Today Mod - ReWorked Working Edition

 Post Reply Post Reply Page  <1 3456>
Author
WebmasterFF View Drop Down
Newbie
Newbie


Joined: 18 April 2006
Location: United Kingdom
Status: Offline
Points: 10
Post Options Post Options   Thanks (0) Thanks(0)   Quote WebmasterFF Quote  Post ReplyReply Direct Link To This Post Posted: 19 April 2006 at 4:15am
Great mod! I found your instructions very useful and were great for beginners like myself
Well done! Clap
Back to Top
jwoodyu View Drop Down
Newbie
Newbie
Avatar

Joined: 13 April 2006
Status: Offline
Points: 22
Post Options Post Options   Thanks (0) Thanks(0)   Quote jwoodyu Quote  Post ReplyReply Direct Link To This Post Posted: 19 April 2006 at 9:11pm
Worked perfectly out of the box. ThanksThumbs Up
Back to Top
bikrtrash View Drop Down
Groupie
Groupie


Joined: 05 January 2005
Location: United States
Status: Offline
Points: 67
Post Options Post Options   Thanks (0) Thanks(0)   Quote bikrtrash Quote  Post ReplyReply Direct Link To This Post Posted: 20 April 2006 at 12:57am
Thanks for all your help faith.koz.....
 
It's working great now.....Thumbs Up  Clap
Back to Top
oguzhanosman View Drop Down
Newbie
Newbie


Joined: 31 August 2005
Location: Turkey
Status: Offline
Points: 33
Post Options Post Options   Thanks (0) Thanks(0)   Quote oguzhanosman Quote  Post ReplyReply Direct Link To This Post 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?


Edited by oguzhanosman - 22 April 2006 at 5:28pm
Back to Top
fatih.koz View Drop Down
Newbie
Newbie
Avatar

Joined: 04 June 2004
Location: Turkey
Status: Offline
Points: 15
Post Options Post Options   Thanks (0) Thanks(0)   Quote fatih.koz Quote  Post ReplyReply Direct Link To This Post Posted: 22 April 2006 at 9:29pm
Here is the answer ;

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

Back to Top
Ozan View Drop Down
Groupie
Groupie
Avatar

Joined: 11 October 2005
Location: Turkey
Status: Offline
Points: 14
Post Options Post Options   Thanks (0) Thanks(0)   Quote Ozan Quote  Post ReplyReply Direct Link To This Post Posted: 24 April 2006 at 3:03pm

 <tr class="tableSubLedger">
   <td colspan="2"><span class="tHeading"><%= Response.Write("  <span class=""tHeading"">Bugün Forumu Ziyaret Eden Üyelerimiz&nbsp;&nbsp;( " & Date() & " )</font></span><br>" )%></span></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 & "&nbsp;  <span class=""smltext""><a title=""Yönetici-Profil İçin Tıklayın"" href=""member_profile.asp?PF=" & LngMmeber_Vistor_ID & """ class=""tHeading""><font color=""#FF0000"">" & Visiters_of_Members_Today & "</font></a></span>") 
If GroupID_type = 3 Then Response.Write(vbCrLf & "&nbsp;  <span class=""smltext""><a title=""Admin-Profil İçin Tıklayın"" href=""member_profile.asp?PF=" & LngMmeber_Vistor_ID & """ class=""tHeading""><font color=""#000000"">" & Visiters_of_Members_Today & "</font></a></span>") 
If GroupID_type = 4 Then Response.Write(vbCrLf & "&nbsp;  <span class=""smltext""><a title=""Üye-Profil İçin Tıklayın"" href=""member_profile.asp?PF=" & LngMmeber_Vistor_ID & """><font size=""1"" color=""#2755AB"">" & Visiters_of_Members_Today & "</font></a></span>") 
If GroupID_type = 5 Then Response.Write(vbCrLf & "&nbsp;  <span class=""smltext""><a title=""Kıdemli Üye-Profil İçin Tıklayın"" href=""member_profile.asp?PF=" & LngMmeber_Vistor_ID & """><font size=""1"" color=""#FF33CC"">" & Visiters_of_Members_Today & "</font></a></span>") 
If GroupID_type = 6 Then Response.Write(vbCrLf & "&nbsp;  <span class=""smltext""><a title=""Moderatör-Profil İçin Tıklayın"" href=""member_profile.asp?PF=" & LngMmeber_Vistor_ID & """><font size=""1"" color=""#008000"">" & Visiters_of_Members_Today & "</font></a></span>") 
If GroupID_type > 6 Then Response.Write(vbCrLf & "&nbsp;  <span class=""smltext""><a title=""Moderatör-Profil İçin Tıklayın"" href=""member_profile.asp?PF=" & LngMmeber_Vistor_ID & """><font size=""1"" color=""#008000"">" & Visiters_of_Members_Today & "</font></a></span>") 
rsCommon.MoveNext
Loop
%>
     </br>
     </br>
     <%
Response.Write("  <p align=""center""><font color=""#000000"" size=""1"">" & "Bugün Forumu " & Num & " üye ziyaret etti</font><br><font color=""#FF0000"">   Administrator   </font><font color=""#000000"">   Admin   </font><font color=""#008000"">   Moderatör   </font><font color=""#FF33CC"">   Kıdemli Üye   </font><font color=""#2755AB"">   Üye   </font></span><br>" )
End if

'Clean up
adoCon.Close
Set adoCon = Nothing

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

Back to Top
pilot99 View Drop Down
Groupie
Groupie


Joined: 05 July 2004
Status: Offline
Points: 167
Post Options Post Options   Thanks (0) Thanks(0)   Quote pilot99 Quote  Post ReplyReply Direct Link To This Post 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

Back to Top
fatih.koz View Drop Down
Newbie
Newbie
Avatar

Joined: 04 June 2004
Location: Turkey
Status: Offline
Points: 15
Post Options Post Options   Thanks (0) Thanks(0)   Quote fatih.koz Quote  Post ReplyReply Direct Link To This Post 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 ,



Edited by fatih.koz - 05 May 2006 at 6:24am
Back to Top
 Post Reply Post Reply Page  <1 3456>

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.08
Copyright ©2001-2026 Web Wiz Ltd.


Become a Fan on Facebook Follow us on X Connect with us on LinkedIn Web Wiz Blogs
About Web Wiz | Contact Web Wiz | Terms & Conditions | Cookies | Privacy Notice

Web Wiz is the trading name of Web Wiz Ltd. Company registration No. 05977755. Registered in England and Wales.
Registered office: Web Wiz Ltd, Unit 18, The Glenmore Centre, Fancy Road, Poole, Dorset, BH12 4FB, UK.

Prices exclude VAT at 20% unless otherwise stated. VAT No. GB988999105 - $, € prices shown as a guideline only.

Copyright ©2001-2026 Web Wiz Ltd. All rights reserved.