| Author |
 Topic  |
|
MaGraham
Senior Member
USA
1297 Posts |
 Posted - 11 September 2013 : 20:06:54
|
I did Marcel's "Weblog" mod I found here.
I would like for the forum name to be something other than "Weblog" and was wondering if someone could tell me what areas of the mod would need to be renamed since the instructions stipulate the "Weblog" name?
I am having a thyroid problem so my thinking is not very clear (sinus and throat infection, too) and I just can't figure this out but I really need to work on this.
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
Carefree
Advanced Member
Philippines
4217 Posts |
Posted - 13 September 2013 : 01:10:37
|
| Look at "weblogvars.asp", change line 8 |
 |
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 15 September 2013 : 03:40:22
|
That worked perfect, Carefree!
Thank you!
If I wanted to keep the "Weblogs" forum, too, and I named the additional asp files something like: weblogvars2.asp, weblogs2.asp, log2.asp, etc., how could I make those work?
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
Carefree
Advanced Member
Philippines
4217 Posts |
Posted - 15 September 2013 : 04:43:31
|
| That's a start, but you have a way to go. Look at line 7 in your "weblogvars2.asp". Change the number of the forum to your additional weblog location and change the name of the variable accordingly (e.g., 'strWeblogsForum2'). Next, look in all the files for "strWeblogsForum" and change it to match the new variable name. |
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 15 September 2013 : 09:13:21
|
Thank you! I did everything you suggested in your post, Carefree.
What would cause this error message below?
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[MySQL][ODBC 5.1 Driver][mysqld-5.5.28]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'AND FORUM_TOPICS.T_AUTHOR = FORUM_MEMBERS.MEMBER_ID AND FORUM_TOPICS.T_STATUS < ' at line 1
/fp/weblogs2.asp, line 71
Here are lines 65 - 80 of weblogs2.asp
strSQL = strSQL & strMemberTablePrefix & "MEMBERS "
strSQL = strSQL & "WHERE " & strTablePrefix & "FORUM.F_PRIVATEFORUMS = 0 AND "
strSQL = strSQL & strTablePrefix & "TOPICS.FORUM_ID = " & strTablePrefix & "FORUM.FORUM_ID AND "
strSQL = strSQL & strTablePrefix & "FORUM.FORUM_ID = " & strWebLogsForum2 & " AND "
strSQL = strSQL & strTablePrefix & "TOPICS.T_AUTHOR = " & strMemberTablePrefix & "MEMBERS.MEMBER_ID AND " & strTablePrefix & "TOPICS.T_STATUS < 2 AND " & strTablePrefix & "TOPICS.T_STATUS > 0 "
strSQL = strSQL & "ORDER BY " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strTablePrefix & "TOPICS.T_DATE DESC;"
set objRec = my_Conn.Execute(strSql)
DTString = " All Active Weblogs"
Response.Write "<table align=""center"" colspan=""2"" cellspacing=""1"" cellpadding=""5"" border=""0"" bgcolor=""" & strTableBorderColor & """ width=""100%"">" & vbNewLine & _
" <tr>" & vbNewLine
Response.Write " <td bgcolor=""" & strHeadCellColor & """><a href=""post.asp?method=Topic&Forum_ID=" & strWebLogsForum2 & """>" & "<font color=""#FFFFFF"" & strDefaultFontColor & """" face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><img alt=""" & strAddNewBlogText & "Add New Blog"" src="""& strImageURL & "icon_blog_button_newest.png"" align=""right"" valign=""top"" border=""0"" ></a><font color=""" & strHeadFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & strSidebarDelimiter & "" & DTString & " " & strSidebarDelimiter & "</b></font>" & vbNewLine & _
" </tr></table>" & vbNewLine
counter = 1
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
Carefree
Advanced Member
Philippines
4217 Posts |
Posted - 15 September 2013 : 10:10:57
|
This line is a bit over-coded:strSQL = strSQL & strTablePrefix & "TOPICS.T_AUTHOR = " & strMemberTablePrefix & "MEMBERS.MEMBER_ID AND " & strTablePrefix & "TOPICS.T_STATUS < 2 AND " & strTablePrefix & "TOPICS.T_STATUS > 0 "
Could shorten it to:strSQL = strSQL & strTablePrefix & "TOPICS.T_AUTHOR = " & strMemberTablePrefix & "MEMBERS.MEMBER_ID AND " & strTablePrefix & "TOPICS.T_STATUS = 1 "
Beyond that, could delete the semi-colon at the end of the select. |
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 15 September 2013 : 10:50:47
|
I made the changes you suggested but I'm still receiving the same error message, Carefree.
If you don't see anything else that might be causing the error, I'll just forget about this.
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
Carefree
Advanced Member
Philippines
4217 Posts |
Posted - 15 September 2013 : 13:51:06
|
Right before this line:set objRec = my_Conn.Execute(strSql)
insert this:Response.Write strSql
Response.End
Run it and give us the strSql.
|
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 15 September 2013 : 15:01:21
|
This is it:
SELECT FORUM_TOPICS.TOPIC_ID, FORUM_TOPICS.T_SUBJECT, FORUM_TOPICS.T_MESSAGE, FORUM_TOPICS.T_AUTHOR, FORUM_TOPICS.T_REPLIES, FORUM_TOPICS.T_DATE, FORUM_TOPICS.T_LAST_POST, FORUM_MEMBERS.MEMBER_ID, FORUM_MEMBERS.M_NAME, FORUM_MEMBERS.M_TITLE, FORUM_MEMBERS.M_LEVEL, FORUM_MEMBERS.M_AVATAR_URL, FORUM_MEMBERS.M_POSTS FROM FORUM_TOPICS, FORUM_FORUM, FORUM_MEMBERS WHERE FORUM_FORUM.F_PRIVATEFORUMS = 0 AND FORUM_TOPICS.FORUM_ID = FORUM_FORUM.FORUM_ID AND FORUM_FORUM.FORUM_ID = AND FORUM_TOPICS.T_AUTHOR = FORUM_MEMBERS.MEMBER_ID AND FORUM_TOPICS.T_STATUS = 1 ORDER BY FORUM_MEMBERS.M_NAME, FORUM_TOPICS.T_DATE DESC;
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
Carefree
Advanced Member
Philippines
4217 Posts |
Posted - 15 September 2013 : 20:05:02
|
Here's your problem:
FORUM_FORUM.FORUM_ID = AND FORUM_TOPICS.T_AUTHOR =
There's no value for the FORUM_ID in the 3d line. The reason is because you need to add "weblogvars2.asp" as an "include" to "weblogs2.asp" or to "config.asp". I'd put it in "weblogs2.asp", right after the include for moderation at line 12. |
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 15 September 2013 : 20:40:22
|
Are you suggesting this below?
Here are lines 10-15.
Response.Write " <table valign=""middle"" width=""100%"">" & vbNewLine
%>
<!--#INCLUDE FILE="inc_moderation.asp"-->
<!--#INCLUDE FILE="weblogvars2.asp"-->
<%
Set my_Conn = Server.CreateObject("ADODB.Connection")
When I did this above, I received this error message.
Microsoft VBScript compilation error '800a0411'
Name redefined
/fp/weblogvars2.asp, line 3
dim strWeblogsForum2, strWeblogsDisplayName, strSMMReplyText, strSMMReadRepliesText, strSMMNoReplies
----------------------^
Here are lines 1-5 of weblogvars2.asp.
<%
'Setting the variables required for the Weblogs mod
dim strWeblogsForum2, strWeblogsDisplayName, strSMMReplyText, strSMMReadRepliesText, strSMMNoReplies
dim strSMMPostedby, strSMM1Reply, strSMMNReplies2, strSMMNListClosed, strNewsAllNewsItems, strNewsPostAnItemText
dim strSMReply, strSMReplies
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
Carefree
Advanced Member
Philippines
4217 Posts |
Posted - 15 September 2013 : 20:48:39
|
| Delete all dimensioned variables after the strweblogsforum2. The others are defined in the original file. |
Edited by - Carefree on 15 September 2013 20:49:21 |
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 15 September 2013 : 23:31:04
|
I removed it all so that those same lines (1-5) look like this:
<%
'Setting the variables required for the Weblogs mod
dim strWeblogsForum2
strWeblogsForum2 = "141"
I now receive the following error.
SELECT FORUM_TOPICS.TOPIC_ID, FORUM_TOPICS.T_SUBJECT, FORUM_TOPICS.T_MESSAGE, FORUM_TOPICS.T_AUTHOR, FORUM_TOPICS.T_REPLIES, FORUM_TOPICS.T_DATE, FORUM_TOPICS.T_LAST_POST, FORUM_MEMBERS.MEMBER_ID, FORUM_MEMBERS.M_NAME, FORUM_MEMBERS.M_TITLE, FORUM_MEMBERS.M_LEVEL, FORUM_MEMBERS.M_AVATAR_URL, FORUM_MEMBERS.M_POSTS FROM FORUM_TOPICS, FORUM_FORUM, FORUM_MEMBERS WHERE FORUM_FORUM.F_PRIVATEFORUMS = 0 AND FORUM_TOPICS.FORUM_ID = FORUM_FORUM.FORUM_ID AND FORUM_FORUM.FORUM_ID = 141 AND FORUM_TOPICS.T_AUTHOR = FORUM_MEMBERS.MEMBER_ID AND FORUM_TOPICS.T_STATUS = 1 ORDER BY FORUM_MEMBERS.M_NAME, FORUM_TOPICS.T_DATE DESC;
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 16 September 2013 : 00:12:11
|
OOPS! I just realized I left this below in weblogs2.asp.
Response.Write strSql
Response.End
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 16 September 2013 : 00:25:07
|
Something is still not quite right, Carefree. It's reading log.asp rather than log2.asp.
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 16 September 2013 : 01:28:27
|
I went through weblogs2.asp and replaced all occurrences of log.asp with log2.asp and now I am receiving the following error.
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[MySQL][ODBC 5.1 Driver][mysqld-5.5.28]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'AND FORUM_TOPICS.T_AUTHOR = FORUM_MEMBERS.MEMBER_ID AND FORUM_TOPICS.T_STATUS < ' at line 1
/fp/log2.asp, line 133
Here are lines 128-136 of log2.asp
IF LEFT(DateToStr(strForumTimeAdjust),8) - (LEFT(T_DATE,8)+1) = 0 then
Response.Write " yesterday at " & left(ChkTime1(T_DATE),6) & ")</font>" & vbNewLine
else
Response.Write " on " & chkDate1(T_DATE) & " @ " & left(ChkTime1(T_DATE),6) & ")</font>" & vbNewLine
end if
end if
Response.Write " </a></font></font></td></tr>" & vbNewLine
else
Response.Write " <td width=""200"" bgcolor=""" & strHeadCellColor & """ valign=""middle"">" & _
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
Topic |
|
|
|
