| Author |
 Topic  |
|
Ken
Starting Member
3 Posts |
 Posted - 11 November 2000 : 16:20:45
|
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
|
 |
|
|
Kal Corp
Average Member
USA
878 Posts |
Posted - 11 November 2000 : 18:09:59
|
<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
|
|
|
|
Flaimo
New Member
Austria
72 Posts |
Posted - 12 November 2000 : 10:30:06
|
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
|
|
|
|
Kal Corp
Average Member
USA
878 Posts |
Posted - 13 November 2000 : 14:22:13
|
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 |
|
|
|
Kal Corp
Average Member
USA
878 Posts |
Posted - 13 November 2000 : 15:21:46
|
<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.
|
|
|
|
Kal Corp
Average Member
USA
878 Posts |
Posted - 14 November 2000 : 14:23:58
|
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>
|
|
|
|
superpon
Starting Member
USA
7 Posts |
Posted - 14 November 2000 : 16:31:26
|
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.....?
|
|
|
|
HuwR
Forum Admin
United Kingdom
20587 Posts |
Posted - 14 November 2000 : 17:26:56
|
If you refresh the page imediately after logging in, does it display correctly ?
<font color=blue>'Resistance is futile'</font id=blue> |
|
|
|
superpon
Starting Member
USA
7 Posts |
Posted - 14 November 2000 : 18:48:46
|
no....
It still doesn't work correctly...<img src=icon_smile_sad.gif border=0 align=middle>
|
|
|
|
RichardKinser
Snitz Forums Admin
USA
16655 Posts |
Posted - 14 November 2000 : 19:41:16
|
what version of Snitz Forums 2000 are you using?
Which mod file did you download? |
|
|
|
superpon
Starting Member
USA
7 Posts |
|
|
HuwR
Forum Admin
United Kingdom
20587 Posts |
Posted - 15 November 2000 : 07:19:04
|
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> |
|
|
|
superpon
Starting Member
USA
7 Posts |
Posted - 15 November 2000 : 18:16:42
|
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>
|
|
|
|
Davio
Development Team Member
Jamaica
12217 Posts |
Posted - 15 November 2000 : 18:35:08
|
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> |
|
|
|
HuwR
Forum Admin
United Kingdom
20587 Posts |
Posted - 15 November 2000 : 20:42:52
|
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> |
|
|
|
Topic |
|
Topic Locked
