Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 New feature: How many using your forum now
 New Topic  Topic Locked
 Printer Friendly
Previous Page | Next Page
Author Previous Topic Topic Next Topic
Page: of 6

Ken
Starting Member

3 Posts

Posted - 11 November 2000 :  16:20:45  Show Profile
I just installed the new default and forum and I get the following now
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/forum/default.asp, line 84

line 84 is set rs = my_Conn.Execute (strSql)

Any suggestion how to fix this

Go to Top of Page

Kal Corp
Average Member

USA
878 Posts

Posted - 11 November 2000 :  18:09:59  Show Profile  Visit Kal Corp's Homepage
<BLOCKQUOTE id=quote><font size=1 face="Verdana, Arial, Helvetica" id=quote>quote:<hr height=1 noshade id=quote>
Kal, I think you need the AS keyword in the else part of the statement.
<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Verdana, Arial, Helvetica" size=2 id=quote>


I got it working <img src=icon_smile.gif border=0 align=middle> and yes the As was it.

I just wanted to say that the IF check is not working

Go to Top of Page

Flaimo
New Member

Austria
72 Posts

Posted - 12 November 2000 :  10:30:06  Show Profile  Visit Flaimo's Homepage  Send Flaimo an AOL message  Send Flaimo an ICQ Message  Send Flaimo a Yahoo! Message
the mod works fine but there is one error that comes up when i want to display a locked forum (doesn't matter if i'm logged in or not):
<BLOCKQUOTE id=quote><font size=1 face="Verdana, Arial, Helvetica" id=quote>quote:<hr height=1 noshade id=quote>
Microsoft OLE DB Provider for ODBC Drivers-Fehler '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression ''<a href=forum.asp?FORUM_ID=24&CAT_ID=8&Forum_Title=FAQ%27s>FAQ's</a>' ,
DateCreated = '20001112162743' WHERE UserID = '62.46.231.48Guest''.

/forum/FORUM.asp, Zeile 82
<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Verdana, Arial, Helvetica" size=2 id=quote>

it's the FAQ forum at http://charmed-net.de/forum/default.asp
Go to Top of Page

Kal Corp
Average Member

USA
878 Posts

Posted - 13 November 2000 :  14:22:13  Show Profile  Visit Kal Corp's Homepage
Mod works good with the Sub category Mod

Just added in some code to display the Sub category name as the location - not just Main Forum

Nice work
Go to Top of Page

Kal Corp
Average Member

USA
878 Posts

Posted - 13 November 2000 :  15:21:46  Show Profile  Visit Kal Corp's Homepage
<b>You could put the code </b>

if strDBNTUserName = "" then
User = Request.ServerVariables("REMOTE_ADDR") & "Guest"
else
User = strDBNTUserName
end if

Dated = DateToStr(strForumTimeAdjust)
CheckInTime = DateDiff( "s", CDate("01/01/1970"), Now)

set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString

strSql = "SELECT " & strTablePrefix & "ONLINE.UserID "
strSql = strSql & " FROM " & strTablePrefix & "ONLINE "
strSql = strSql & " WHERE " & strTablePrefix & "ONLINE.UserID = '" & user & "'"

set rsWho = my_Conn.Execute (strSql)


Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = strConnString
objConn.Open
SQL = "UPDATE FORUM_ONLINE SET M_BROWSE = '" & OnlineLocation & "' , DateCreated = '" & Dated & "' WHERE UserID = '" & User & "'"
objConn.Execute SQL

TimedOut = CheckInTime - 300 'time out the user

SQL = "DELETE FROM FORUM_ONLINE WHERE CheckedIn < '" & TimedOut & "'"
objConn.Execute SQL

[b]At end of inc_footer.asp.

Then Set the OnlineLocation for each page. This would give you member location location for everything. If you wanted it. I have this working like this, and i dont see a problem.


Go to Top of Page

Kal Corp
Average Member

USA
878 Posts

Posted - 14 November 2000 :  14:23:58  Show Profile  Visit Kal Corp's Homepage
Also when updating the Database with OnlineLocation

You should Check it. Some of my Forum names and Topic names was casuing a problem with the Online MOD.

Change
<b>OnlineLocation</b>
TO
<b>ChkString(OnlineLocation,url) </b>

Go to Top of Page

superpon
Starting Member

USA
7 Posts

Posted - 14 November 2000 :  16:31:26  Show Profile  Visit superpon's Homepage
This mod doesn't work well in mine.
My problem is:
even if user login as a member, it still shows that he is a regular visitor, not a member.

Like this:
I login with my username & pwd.
It shows "0 members and 1 visitors......"

Who can help me plz.....?

Go to Top of Page

HuwR
Forum Admin

United Kingdom
20587 Posts

Posted - 14 November 2000 :  17:26:56  Show Profile  Visit HuwR's Homepage
If you refresh the page imediately after logging in, does it display correctly ?

<font color=blue>'Resistance is futile'</font id=blue>
Go to Top of Page

superpon
Starting Member

USA
7 Posts

Posted - 14 November 2000 :  18:48:46  Show Profile  Visit superpon's Homepage
no....
It still doesn't work correctly...<img src=icon_smile_sad.gif border=0 align=middle>

Go to Top of Page

RichardKinser
Snitz Forums Admin

USA
16655 Posts

Posted - 14 November 2000 :  19:41:16  Show Profile
what version of Snitz Forums 2000 are you using?

Which mod file did you download?
Go to Top of Page

superpon
Starting Member

USA
7 Posts

Posted - 14 November 2000 :  21:16:59  Show Profile  Visit superpon's Homepage
I'm using[Snitz Forums 2000 Version 3.1 final]..
I download this mod from:
http://www.thepercussionist.com/adf/whosonline.zip

Thnaks for helping...<img src=icon_smile.gif border=0 align=middle>

Go to Top of Page

HuwR
Forum Admin

United Kingdom
20587 Posts

Posted - 15 November 2000 :  07:19:04  Show Profile  Visit HuwR's Homepage
I have a cure for this problem.

Open inc_top.asp and look for <b>select case Request.Form("Method_Type")</b>, approx line 60. Replace the whole select....end select with the one below.

<pre id=code><font face=courier size=2 id=code>
select case Request.Form("Method_Type")
case "login"
select case ChkUser2(strDBNTFUserName, Request.Form("Password"))
case 1, 2, 3, 4
'update online status
User = strDBNTUserName
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = strConnString
objConn.Open
strSql = "SELECT " & strTablePrefix & "ONLINE.UserID "
strSql = strSql & " FROM " & strTablePrefix & "ONLINE "
strSql = strSql & " WHERE " & strTablePrefix & "ONLINE.UserID = '" & User & "'"
set rsWho = my_Conn.Execute (strSql)
on Error resume next
if rsWho.eof or rsWho.bof then
Set objRS2 = Server.CreateObject("ADODB.Recordset")
objRS2.Open "FORUM_ONLINE", objConn, 1, 2, 2
objRS2.AddNew
objRS2("UserID") = user
objRS2("Status") = "LOGIN"
objRS2("DateCreated") = DateToStr(strForumTimeAdjust)
objRS2("CheckedIn") = DateDiff( "s", CDate("01/01/1970"), Now)
objRS2("M_BROWSE") = "<a href=default.asp>Main Page</a>"
objRS2.Update
objRS2.close
else
strSql = "UPDATE FORUM_ONLINE SET M_BROWSE = '<a href=default.asp>Main Page</a>' , DateCreated = '" & DateToStr(strForumTimeAdjust) & "' WHERE UserID = '" & User & "'"
my_Conn.Execute (strSql)
end if
'delete guest if exists
SQL = "DELETE FROM " & strTablePrefix & "ONLINE WHERE " & strTablePrefix & "ONLINE.UserID = '" & Request.ServerVariables("REMOTE_ADDR") & "Guest" & "'"
my_Conn.Execute SQL
'finished updating online
Call DoCookies()
strLoginStatus = 1
case else
strLoginStatus = 0
end select
case "logout"
Call ClearCookies()
'delete user if exists
SQL = "DELETE FROM FORUM_ONLINE WHERE UserID = '" & strDBNTUserName & "'"
my_conn.Execute SQL
end select
</font id=code></pre id=code>


<font color=blue>'Resistance is futile'</font id=blue>
Go to Top of Page

superpon
Starting Member

USA
7 Posts

Posted - 15 November 2000 :  18:16:42  Show Profile  Visit superpon's Homepage
Now I finally know what my problem is..

I logout the forum,and then login again..
It shows that I have a incorrect username or pwd..
I think that is why I can't run this mode well....

Now..I have no idea what to do...<img src=icon_smile_sad.gif border=0 align=middle>

Go to Top of Page

Davio
Development Team Member

Jamaica
12217 Posts

Posted - 15 November 2000 :  18:35:08  Show Profile
Yeah, I tried HuwR's code and I couldn't log back in. It kept saying I'm entering an incorrect username/password, but I'm using the default admin/admin that came with the forum. I changed back to the original select case statement and it worked ok.
So there's a prob. with your code HuwR. :-(

<center><font color=green>*----*----*----*----*----*----*----*----*----*----*----*
<font size=2>"However, if you suffer as a Christian, do not be ashamed,
but praise God that you bear that name."</font id=size2>
1 Peter 4:16</font id=green></center>
Go to Top of Page

HuwR
Forum Admin

United Kingdom
20587 Posts

Posted - 15 November 2000 :  20:42:52  Show Profile  Visit HuwR's Homepage
Hmm, can't see why it should be a problem, it shouldn't be affecting your login, it is only updating the forum_online tables. it's not actually doing anything else.

<font color=blue>'Resistance is futile'</font id=blue>
Go to Top of Page
Page: of 6 Previous Topic Topic Next Topic  
Previous Page | Next Page
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.11 seconds. Powered By: Snitz Forums 2000 Version 3.4.07