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