quote:

---

I have the same problem as my previous post

Microsoft JET Database Engine (0x80040E10)
No value given for one or more required parameters.
/test/forum/inc_functions.asp, line 70

The page displays at first, but after a refresh i receive the above error. Also the content will only display when logged in. The site is not on the web yet so no URL is available.

One reason this will happen when you have No record with id no. 1 in FORUM_DC_TEMPLATES. Look my earlier posts for a fix on this.

---

quote:

---

quote:

---

I have the same problem as my previous post

Microsoft JET Database Engine (0x80040E10)
No value given for one or more required parameters.
/test/forum/inc_functions.asp, line 70

The page displays at first, but after a refresh i receive the above error. Also the content will only display when logged in. The site is not on the web yet so no URL is available.

One reason this will happen when you have No record with id no. 1 in FORUM_DC_TEMPLATES. Look my earlier posts for a fix on this.

---

gauravbhabu

There is only one miracle...That is LIFE!

---

quote:

---

***********************
Inc_functions
***********************
I do not have F_USERLIST in FORUM_FORUM so I changed it to:(need posting restrictions mod). If you have this field in your table then you need not make these changes

Find this statement

'strSql = "SELECT " & strTablePrefix & "FORUM.F_USERLIST, " & strTablePrefix & "FORUM.F_PRIVATEFORUMS "

change it to:

strSql = "SELECT " & strTablePrefix & "FORUM.F_TOPIC_AUTH, " & strTablePrefix & "FORUM.F_PRIVATEFORUMS "

Find this code:

'if Instr(rsAccess("F_USERLIST"), ", ") > 0 then
			'	Users = Split(rsAccess("F_USERLIST"), ", ")
			'elseif trim(rsAccess("F_USERLIST")) <> "" then ' Only 1 member assigned to forum
			'	chkDisplayPrivateForum = (cint(rsAccess("F_USERLIST")) = cint(UserNum))
			'	exit function
			'else  ' No members assigned to forum
			'	chkDisplayPrivateForum = false 
			'	exit function
			'end if 

change it to

			
if Instr(rsAccess("F_TOPIC_AUTH"), ", ") > 0 then
				Users = Split(rsAccess("F_TOPIC_AUTH"), ", ")
			elseif trim(rsAccess("F_TOPIC_AUTH")) <> "" then ' Only 1 member assigned to forum
				chkDisplayPrivateForum = (cint(rsAccess("F_TOPIC_AUTH")) = cint(UserNum))
				exit function
			else  ' No members assigned to forum
				chkDisplayPrivateForum = false 
				exit function
			end if 

There are two instances of it.

Also look for my post earlier for another change. This Mod can be used for displaying content from all the tables with modifications or additional case statements and queries. The logic for the Mod is simple what the thought behind the idea is really great.It is great work. And Works like a CHARM.

gauravbhabu

There is only one miracle...That is LIFE!



Edited by - GauravBhabu on 17 July 2001 22:13:00

---

There are some changes need to be made to the contentdisplay_editor.asp.
For Access DB
The WORKING should be YES/NO and on the General Tab select TRUE/FALSE as Format. On the LOOK UP tab I selected Text BOX.

**********************************
contentdisplay_editor.asp
**********************************

'//////////////////////////////// FORM VARIABLES //////////////		
if Request.Form("intID") = "" then			
  intID = 1		
else			
  intID = cint(Request.Form.Item("intID"))		
end if		
'//////////////////////////////// DISPLAY COLUMN PROPERTIES //////////////

The above statements(at the top of contentdisplay_editor.asp) force the intID to be "1" when you load the contentdisplay_editor.asp. And if you have no record with ID "1" in the table DC_templates, you will get an error of Either Eof or BOF is true or record has been deleted. To overcome this problem these statements need to be added to this file:

Look for the following in contentdisplay_editor.asp


if not (oRSTemplates.EOF and oRSTemplates.BOF) then 	
          DatabaseConnected = Trueend if

And add these statements below it




 '########### In case there is no record with ID=1 ########
if oRSTemplates.RecordCount > 0 then	
           if Request.Form("intID") = "" then		
             intID = oRSTemplates("ID")		
             'Make sure the working is set to True		
            oRSTemplates("WORKING") = True		
            oRSTemplates.Update	
           end if
end if
'#######################################################

Above will assign ID of first recordset returned by the query to the intID.


************************************
contentdisplay_editor.asp  
Find the below line
***********************************

strSQL = strSQL & "WHERE WORKING = " 1

(somehow this is not working.)

and change it to


strSQL = strSQL & "WHERE WORKING =True"

***************There are two instances of it.

'strSql = "SELECT " & strTablePrefix & "FORUM.F_USERLIST, " & strTablePrefix & "FORUM.F_PRIVATEFORUMS "

strSql = "SELECT " & strTablePrefix & "FORUM.F_TOPIC_AUTH, " & strTablePrefix & "FORUM.F_PRIVATEFORUMS "

'if Instr(rsAccess("F_USERLIST"), ", ") > 0 then
			'	Users = Split(rsAccess("F_USERLIST"), ", ")
			'elseif trim(rsAccess("F_USERLIST")) <> "" then ' Only 1 member assigned to forum
			'	chkDisplayPrivateForum = (cint(rsAccess("F_USERLIST")) = cint(UserNum))
			'	exit function
			'else  ' No members assigned to forum
			'	chkDisplayPrivateForum = false 
			'	exit function
			'end if 

			
if Instr(rsAccess("F_TOPIC_AUTH"), ", ") > 0 then
				Users = Split(rsAccess("F_TOPIC_AUTH"), ", ")
			elseif trim(rsAccess("F_TOPIC_AUTH")) <> "" then ' Only 1 member assigned to forum
				chkDisplayPrivateForum = (cint(rsAccess("F_TOPIC_AUTH")) = cint(UserNum))
				exit function
			else  ' No members assigned to forum
				chkDisplayPrivateForum = false 
				exit function
			end if