###########################################################
# Mod Install Instruction: #
###########################################################
(below code modified base on a clean v3.4.03 files)
dbs_topic_notelet.asp
==================================
copy to your forum folder, then from Admin Section running MOD Setup to update the db table fields.
it add two new fields to FORUM table..
F_NOTELET_ALLOWED
F_NOTELET_VISIBLE
and four new fields to TOPICS table & A_TOPICS table..
T_NOTELET_STATUS
T_NOTELET_LAST_DATE
T_NOTELET_EDITBY
T_NOTELET_MESSAGE
pop_notelet.asp
inc_notelet.asp
icon_notelet_xxxx.gif
==================================
two new files and 18 notelet icon files, copy all to your forum folder.
inc_func_common.asp
==================================
'##### Topic Notelet 1-1: add one new function
'##### Topic Notelet 1-2: 6 lines added to chkString function
post.asp
==================================
'##### Topic Notelet 1-1: add F.F_NOTELET_ALLOWED to strSql
'##### Topic Notelet 1-2: add F.F_NOTELET_ALLOWED to strSql
'##### Topic Notelet 1-3: 1 line added
'##### Topic Notelet 1-4: 3 lines added
'##### Topic Notelet 1-5: replace above 1 line with below 2 lines (be careful the , in strSql)
'##### Topic Notelet 1-6: 13 lines added
'##### Topic Notelet 1-7: add two items F_NOTELET_xxx to strSql
'##### Topic Notelet 1-8: 2 lines added
'##### Topic Notelet 1-9: add one section (43 lines)
'##### Topic Notelet 1-10: 5 lines added
post_info.asp
==================================
'##### Topic Notelet 1-1: add F.F_NOTELET_ALLOWED to strSql
'##### Topic Notelet 1-2: add F.F_NOTELET_ALLOWED to strSql
'##### Topic Notelet 1-3: 1 line added
'##### Topic Notelet 1-4: 13 lines added
'##### Topic Notelet 1-5: 6 lines added
'##### Topic Notelet 1-6: 21 lines added
'##### Topic Notelet 1-7: 6 lines added
'##### Topic Notelet 1-8: 6 lines added
'##### Topic Notelet 1-9: 2 lines added
'##### Topic Notelet 1-10: 2 lines added
'##### Topic Notelet 1-11: 4 lines added
forum.asp
==================================
'##### Topic Notelet 1-1: add F.F_NOTELET_ALLOWED, F.F_NOTELET_VISIBLE to strSql
'##### Topic Notelet 1-2: 2 lines added
'##### Topic Notelet 1-3: 1 line added (be careful the , in strSql)
'##### Topic Notelet 1-4: 4 lines added (be careful the number order...)
'##### Topic Notelet 1-5: 14 lines added
'##### Topic Notelet 1-6: 3 lines added
'##### Topic Notelet 1-7: 3 lines added
'##### Topic Notelet 1-8: add two new sub functions
THAT'S ALL !!!!
###########################################################Originally posted by sgoode
This is going to sound really dumb but......
When I see:
'##### Topic Notelet 1-7: add two items F_NOTELET_xxx to strSql
sghould I be replacing the xxx and if so what with?
Thanks
Steve
post.asp
==================================
'##### Topic Notelet 1-1: add F.F_NOTELET_ALLOWED to strSql
'##### Topic Notelet 1-2: add F.F_NOTELET_ALLOWED to strSql
'##### Topic Notelet 1-3: 1 line added
'##### Topic Notelet 1-4: 3 lines added
'##### Topic Notelet 1-5: replace above 1 line with below 2 lines (be careful the , in strSql)
'##### Topic Notelet 1-6: 13 lines added
'##### Topic Notelet 1-7: add two items F_NOTELET_xxx to strSql
'##### Topic Notelet 1-8: 2 lines added
'##### Topic Notelet 1-9: add one section (43 lines)
'##### Topic Notelet 1-10: 5 lines added
set rsStatus = my_Conn.Execute(strSql)
if rsStatus.EOF or rsStatus.BOF then
rsStatus.close
set rsStatus = nothing
Go_Result "Please don't attempt to edit the URL<br />to gain access to locked Forums/Categories."
else
'## Subscribe checkbox start ##
PostCat_subscription = rsStatus("CAT_SUBSCRIPTION")
PostForum_subscription = rsStatus("F_SUBSCRIPTION")
'## Subscribe checkbox end ##
blnCStatus = rsStatus("CAT_STATUS")
blnFStatus = rsStatus("F_STATUS")
strRqForumID = rsStatus("FORUM_ID")
strRqCatID = rsStatus("CAT_ID")
Cat_Name = rsStatus("CAT_NAME")
Forum_Type = rsStatus("F_TYPE")
Forum_Subject = rsStatus("F_SUBJECT")
Notelet_Allowed = rsStatus("F_NOTELET_ALLOWED")
if strRqMethod <> "Topic" then
blnTStatus = rsStatus("T_STATUS")
Topic_Title = rsStatus("T_SUBJECT")
else
blnTStatus = 1
end if
rsStatus.close
set rsStatus = nothing
end if
if mLev = 4 then
AdminAllowed = 1
ForumChkSkipAllowed = 1
elseif mLev = 3 then
if chkForumModerator(strRqForumID, ChkString(strDBNTUserName, "decode")) = "1" then
AdminAllowed = 1
ForumChkSkipAllowed = 1
else
if lcase(strNoCookies) = "1" then
AdminAllowed = 1
ForumChkSkipAllowed = 0
else
AdminAllowed = 0
ForumChkSkipAllowed = 0
end if
end if
elseif lcase(strNoCookies) = "1" then
AdminAllowed = 1
ForumChkSkipAllowed = 0
else
AdminAllowed = 0
ForumChkSkipAllowed = 0
end if'##### Topic Notelet 1-7: add two items F_NOTELET_xxx to strSql
strSql = "SELECT C.CAT_STATUS, C.CAT_NAME, F.F_NOTELET_ALLOWED to strSql, " &_
"F.FORUM_ID, F.F_STATUS, F.F_TYPE, F.F_SUBJECT, " &_
strSql = "SELECT C.CAT_STATUS, C.CAT_NAME, " &_
"F.FORUM_ID, F.F_STATUS, F.F_TYPE, F.F_SUBJECT, F.F_NOTELET_ALLOWED, " &_