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 DEV-Group
 DEV Bug Reports (Closed)
 V33 BUG+FIX: Moderator error in NT mode		  Forum Locked  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

Kal Corp
Average Member

USA
878 Posts
Posted - 26 July 2001 :  11:23:21  Show Profile  Visit Kal Corp's Homepage
This is a upgrade forum from 3.1 sr4

when try to view forums i get in the first Moderator section.

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/inc_functions.asp, line 1166


looking for the problem now.




Edited by - kal corp on 26 July 2001 19:52:31

Kal Corp
Average Member

USA
878 Posts
Posted - 26 July 2001 :  11:29:42  Show Profile  Visit Kal Corp's Homepage

FYI
This is in NT MODE
Go to Top of Page

Kal Corp
Average Member

USA
878 Posts
Posted - 26 July 2001 :  19:51:33  Show Profile  Visit Kal Corp's Homepage
inc_functions.asp

Need to use M_name for both NT and DB in this function

function getMemberName(fUser_Number)

dim strSql
dim rsGetmemberName

'## Forum_SQL
if isNull(fUser_Number) then exit function

strSql = "SELECT " & strMemberTablePrefix & "MEMBERS." & strDBNTSQLNAME
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE MEMBER_ID = " & ChkString(fUser_Number, "SQLString")

Set rsGetMemberName = Server.CreateObject("ADODB.Recordset")
rsGetMemberName.open strSql, my_Conn

if rsGetMemberName.EOF or rsGetMemberName.BOF then
getMemberName = ""
else
getMemberName = rsGetMemberName("M_NAME")


end if

rsGetMemberName.close
set rsGetMemberName = nothing

end function

needs to be

function getMemberName(fUser_Number)

dim strSql
dim rsGetmemberName

'## Forum_SQL
if isNull(fUser_Number) then exit function

strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME"

strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE MEMBER_ID = " & ChkString(fUser_Number, "SQLString")

Set rsGetMemberName = Server.CreateObject("ADODB.Recordset")
rsGetMemberName.open strSql, my_Conn

if rsGetMemberName.EOF or rsGetMemberName.BOF then
getMemberName = ""
else
getMemberName = rsGetMemberName("M_NAME")


end if

rsGetMemberName.close
set rsGetMemberName = nothing

end function
Go to Top of Page

gor
Retired Admin

Netherlands
5511 Posts
Posted - 27 July 2001 :  00:50:45  Show Profile  Visit gor's Homepage
Fixed in source, thanks Kal Corp

Pierre
Join a Snitz Mailinglist
Go to Top of Page
  Previous Topic Topic Next Topic  
 Forum Locked  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.09 seconds. Powered By: Snitz Forums 2000 Version 3.4.07