| Author |
 Topic  |
|
|
Comicozzi2
Starting Member
13 Posts |
 Posted - 30 March 2004 : 00:04:52
|
I have installed the topic maker and having some problems. I installed per the instructions to a tee....
Here is the result I am giving when I run the topic maker:
Done processing topic number 1. - No such topic found.
Done processing topic number 2. - No such topic found.
Done processing topic number 3. - No such topic found.
Done processing topic number 4. - No such topic found.
Done processing topic number 5. - No such topic found.
Done processing topic number 6. - No such topic found.
Done processing topic number 7. - No such topic found.
Done processing topic number 8. - No such topic found.
Done processing topic number 9. - No such topic found.
Done processing topic number 10. - No such topic found.
Done processing topic number 11. - No such topic found.
Done processing topic number 12. - No such topic found.
Done processing topic number 13. - No such topic found.
Done processing topic number 14. - No such topic found.
Done processing topic number 15. - No such topic found.
Done processing topic number 16. - No such topic found.
Done processing topic number 17. - No such topic found.
Done processing topic number 18. - No such topic found.
Done processing topic number 19. - No such topic found.
Done processing topic number 20. - No such topic found.
Done processing topic number 21. - No such topic found.
Done processing topic number 22. - No such topic found.
Done processing topic number 23. - No such topic found.
Done processing topic number 24. - No such topic found.
Done processing topic number 25. - No such topic found.
Done processing topic number 26. - No such topic found.
Done processing topic number 27. - No such topic found.
Done processing topic number 28. - No such topic found.
Done processing topic number 29. - No such topic found.
Done processing topic number 30. - No such topic found.
Done processing topic number 31. - No such topic found.
Done processing topic number 32. - No such topic found.
Done processing topic number 33. - No such topic found.
Done processing topic number 34. - No such topic found.
Done processing topic number 35. - No such topic found.
Done processing topic number 36. - No such topic found.
Done processing topic number 37. - No such topic found.
Done processing topic number 38. - No such topic found.
Done processing topic number 39. - No such topic found.
Done processing topic number 40. - No such topic found.
Done processing topic number 41. - No such topic found.
Done processing topic number 42. - No such topic found.
Done processing topic number 43. - No such topic found.
Done processing topic number 44. - No such topic found.
Done processing topic number 45. - No such topic found.
Done processing topic number 46. - No such topic found.
Done processing topic number 47. - No such topic found.
Done processing topic number 48. - No such topic found.
Done processing topic number 49. - No such topic found.
Any reason why this would be happening? Any help is appreciated...
Thanks. |
|
|
Comicozzi2
Starting Member
13 Posts |
Posted - 30 March 2004 : 00:14:19
|
| By the way, I used the site integration mod on the header and footer and I also use include files for a banner server program I use within those headers and footers. Could that be the source? |
 |
|
|
Classicmotorcycling
Development Team Leader
Australia
2085 Posts |
Posted - 30 March 2004 : 02:03:35
|
Can you post a link to your file in text format for producing the output (do not put the text in a post like the "done processing" stuff or they get grumpy here). I will then have a look at it for you. In the mean time you can download this: Admin Topic Maker and try that if you like.
|
Cheers,
David Greening |
|
|
|
Comicozzi2
Starting Member
13 Posts |
Posted - 30 March 2004 : 09:34:25
|
I do not want to upset anyone!
Here is my admin_topic_maker.asp file located in the root directory as all the other admin files....
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<!--#INCLUDE FILE="inc_subscription.asp" -->
<!--#INCLUDE FILE="inc_moderation.asp" -->
<%if (mLev = 4) then
AdminAllowed = 1
else
AdminAllowed = 0
end if
%>
<table align="center" width="60%" border=0>
<tr>
<td nowrap align="left">
<%
if AdminAllowed = 1 then
set countrs = my_conn.execute("SELECT CAT_ID FROM " & strTablePrefix & "TOPICS")
ListTopic = 0
do until countrs.eof
ListTopic = ListTopic + 1
countrs.movenext
Loop
set countrs = nothing
strTotalTopics = ListTopic
'strSql = strSql & "SELECT T_COUNT FROM FORUM_TOTALS" & Topics
'write_this = Request.QueryString("TOPIC_ID")
'for write_this = 1 to ListTopic
for write_this = 1 to ListTopic
strSql = "SELECT FORUM_ID, CAT_ID, T_AUTHOR, T_SUBJECT, T_MESSAGE "
strSql = strSql & " FROM FORUM_TOPICS "
strSql = strSql & " WHERE TOPIC_ID = " & write_this
'response.write strSql
set rsWrite = my_Conn.Execute (strSql)
strStatus = ""
strWrite = ""
if rsWrite.Bof and rsWrite.eof then
strStatus = "<b>No such topic found.</b>"
else
set rsGetForum = my_Conn.Execute ("SELECT F_SUBJECT FROM FORUM_FORUM WHERE FORUM_ID =" & rsWrite("FORUM_ID"))
forum_name = rsGetForum("F_SUBJECT")
themessage = rsWrite("T_MESSAGE")
strWrite = strWrite & "<html><head><title>" & strForumTitle & " (© 2002) - " & rsWrite("T_SUBJECT") & "</title>"
strWrite = strWrite & "<meta http-equiv=""Refresh"" content=""5; URL=" & strForumURL & "topic.asp?TOPIC_ID=" & write_this & """>"
strWrite = strWrite & "<meta name=""Description"" CONTENT=""" & strForumTitle & " (© 2002) - " & rsWrite("T_SUBJECT") & """>"
strWrite = strWrite & "<meta name=""Keywords"" CONTENT=""" & rsWrite("T_SUBJECT") & " " & Replace(themessage, Chr(13) & Chr(10), "") & """>"
strWrite = strWrite & "<table width=""100%"" border=""1"" cellpadding=""2"" cellspacing=""1"" bordercolor=""#3366CC""><tr><td align=""center"" colspan=""2""><b>" & rsWrite("T_SUBJECT") & "</b></td></tr>"
strWrite = strWrite & "<tr><td align=""center"" valign=""top""><b>" & getMemberName(rsWrite("T_AUTHOR")) & "</b></td>"
strWrite = strWrite & "<td>" & themessage & "</td></tr>"
strSql2 = "SELECT R_AUTHOR, R_MESSAGE "
strSql2 = strSql2 & " FROM FORUM_REPLY "
strSql2 = strSql2 & " WHERE TOPIC_ID = " & write_this
'response.write strSql
set rsWriteReply = my_Conn.Execute (strSql2)
do until rsWriteReply.eof
strWrite = strWrite & "<tr><td align=""center"" valign=""top""><b>" & getMemberName(rsWriteReply("R_AUTHOR")) & "</b></td>"
strWrite = strWrite & "<td>" & rsWriteReply("R_MESSAGE") & "</td></tr>"
rsWriteReply.MoveNext
loop
strWrite = strWrite & "</table>"
Set ObjTopicFile = Server.CreateObject("Scripting.FileSystemObject")
TopicFile = Server.MapPath ("..\topics\" & write_this & ".asp")
Set WriteTopicFile = ObjTopicFile.CreateTextFile (TopicFile, True)
WriteTopicFile.WriteLine(strWrite)
WriteTopicFile.Close
Set WriteTopicFile = Nothing
Set ObjTopicFile = Nothing
strStatus = "<b>Success.</b>"
end if
Response.write "<b>Done processing topic number " & write_this & ".</b> - "& strStatus & "<br>"
next
else
Response.write "You are not authorized to do this action."
End if
%>
</td>
</tr>
</table>
<!--#INCLUDE FILE="inc_footer.asp" -->
Here is my revision to the admin_home.asp page....
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<%
if Session(strCookieURL & "Approval") <> "15916941253" then
scriptname = split(request.servervariables("SCRIPT_NAME"),"/")
Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname))
end if
'## Forum_SQL - Get membercount from DB
strSql = "SELECT COUNT(MEMBER_ID) AS U_COUNT FROM " & strMemberTablePrefix & "MEMBERS_PENDING"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSql, my_Conn
if not rs.EOF then
User_Count = rs("U_COUNT")
else
User_Count = 0
end if
rs.close
set rs = nothing
select case strDBType
case "access"
if instr(strConnString, Server.MapPath("snitz_forums_2000.mdb"))> 0 then
Response.Write " <br />" & vbNewLine & _
" <table border=""1"" width=""100%"" bgcolor=""red"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center""><font color=""white"" size=""2"">" & _
"<b>WARNING:</b> The location of your access database may not be secure.<br /><br />" & _
"You should consider moving the database from <b>" & Server.MapPath("snitz_forums_2000.mdb") & "</b> to a directory not directly accessable via a URL" & _
" and/or renaming the database to another name." & _
"<br /><br /><i>(After moving or renaming your database, remember to change the strConnString setting in config.asp.)</i>" & _
"</font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table><br />" & vbNewLine
end if
case "sqlserver"
if instr(lcase(strConnString), ";uid=sa;")> 0 then
Response.Write " <br />" & vbNewLine & _
" <table border=""1"" width=""100%"" bgcolor=""red"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center""><font color=""white"" size=""2"">" & _
"<b>WARNING:</b> You are connecting to your MS SQL Server database with the <b>sa</b> user.<br /><br />" & _
"After you have completed your installation, consider creating a new user with lower privileges" & _
" and use that to connect to the database instead." & _
"</font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table><br />" & vbNewLine
end if
case "mysql"
if instr(lcase(strConnString), ";uid=root;")> 0 then
Response.Write " <br />" & vbNewLine & _
" <table border=""1"" width=""100%"" bgcolor=""red"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center""><font color=""white"" size=""2"">" & _
"<b>WARNING:</b> You are connecting to your MySQL Server database with the <b>root</b> user.<br /><br />" & _
"After you have completed your installation, consider creating a new user with lower privileges" & _
" and use that to connect to the database instead." & _
"</font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table><br />" & vbNewLine
end if
end select
Response.Write " <table border=""0"" width=""100%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpenTopic,"","align=""absmiddle""") & " Admin Section<br /></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <br />" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strCategoryCellColor & """ colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>Administrative Functions</b></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strForumCellColor & """ valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
" <p><b>Forum Feature Configuration:</b>" & vbNewLine & _
" <UL>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_config_system.asp"">Main Forum Configuration</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_config_features.asp"">Feature Configuration</a></span></LI>" & vbNewLine
if strAuthType = "nt" then
Response.Write " <LI><span class=""spnMessageText""><a href=""admin_config_NT_features.asp"">Feature NT Configuration</a></span></LI>" & vbNewLine
end if
Response.Write " <LI><span class=""spnMessageText""><a href=""admin_config_members.asp"">Member Details Configuration</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_config_ranks.asp"">Ranking Configuration</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_config_datetime.asp"">Server Date/Time Configuration</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_config_email.asp"">Email Server Configuration</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_config_colors.asp"">Font/Table Color Code Configuration</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""javascript:openWindow3('admin_config_badwords.asp')"">Bad Word Filter Configuration</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""javascript:openWindow3('admin_config_namefilter.asp')"">UserName Filter Configuration</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""javascript:openWindow3('admin_config_order.asp')"">Category/Forum Order Configuration</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_topic_maker.asp"">Topic Maker</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_config_integration.asp"">Site Integration Configuration</a></span></LI>" & vbNewLine & _
" </UL></p>" & vbNewLine & _
" </font></td>" & vbNewLine & _
" <td bgcolor=""" & strForumCellColor & """ valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
" <p><b>Other Configuration Options and Features:</b>" & vbNewLine & _
" <UL>" & vbNewLine
if strEmailVal = "1" then Response.Write(" <LI><span class=""spnMessageText""><a href=""admin_accounts_pending.asp"">Members Pending</a></span> <font size=""" & strFooterFontSize & """>(" & User_Count & ")</font></LI>" & vbNewLine)
Response.Write " <LI><span class=""spnMessageText""><a href=""admin_moderators.asp"">Moderator Setup</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_emaillist.asp"">E-mail List</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_info.asp"">Server Information</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_variable_info.asp"">Forum Variables Information</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_count.asp"">Update Forum Counts</a></span></LI>" & vbNewLine
if strArchiveState = "1" then Response.Write(" <LI><span class=""spnMessageText""><a href=""admin_forums.asp"">Archive Forum Topics</a></span></LI>" & vbNewLine)
Response.Write " <LI><span class=""spnMessageText""><a href=""admin_config_groupcats.asp"">Group Categories Configuration</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_Links.asp"">Links Administration</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_mod_dbsetup.asp"">MOD Setup</a></span><font size=""" & strFooterFontSize & """> (<span class=""spnMessageText""><a href=""admin_mod_dbsetup2.asp"">Alternative MOD Setup</a></span>)</font></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""setup.asp"">Check Installation</a></span><font size=""" & strFooterFontSize & """><b> (Run after each upgrade !)</b></font></LI>" & vbNewLine & _
" </UL></p>" & vbNewLine & _
" </font></td>" & vbNewLine & _
" </tr>" & vbNewLine
'Response.Write " <tr>" & vbNewLine & _
'" <td bgcolor=""" & strForumCellColor & """ valign=""top"" colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
'" <p><b>Important Information from Snitz Forums 2000:</b>" & vbNewLine & _
'" <script type=""text/javascript"" src=""http://forum.snitz.com/forum/syndicate.asp""></script></p></font></td>" & vbNewLine & _
'" </tr>" & vbNewLine
Response.Write " </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <br />" & vbNewLine
WriteFooter
Response.End
%>
My databse is located in a different folder than in the root directory for security.
Thanks for any assistance, if folks new the value of this mod, it would be used more often.
|
|
|
|
Comicozzi2
Starting Member
13 Posts |
|
|
Classicmotorcycling
Development Team Leader
Australia
2085 Posts |
Posted - 30 March 2004 : 16:10:43
|
quote:
Originally posted by Comicozzi2
[red]I do not want to upset anyone!
All I wanted was a link like: http://forums.sixgunner.com/admin_topicmaker.txt
Just it makes the topic a lot longer than it needs to be.quote:
Originally posted by Comicozzi2
My databse is located in a different folder than in the root directory for security.
Thanks for any assistance, if folks new the value of this mod, it would be used more often.
This doesn't matter where your DB is, as long as your forum can read it.
|
Cheers,
David Greening |
|
|
|
Comicozzi2
Starting Member
13 Posts |
Posted - 30 March 2004 : 16:13:49
|
| Any thoughts on why it is returning the results? Is there anything I can post to help diagnose the problem? |
|
|
|
Classicmotorcycling
Development Team Leader
Australia
2085 Posts |
Posted - 30 March 2004 : 16:17:35
|
The reason you are getting the eoor is because you have removed a ' mark on line 11 of the file, I just downloaded the file I put up and made sure it was the same file.quote:
Originally posted by Comicozzi2
When I used your new file at http://forums.sixgunner.com/admin_topicmaker.asp
I get the following error
HTTP 500 - Internal server error
Internet Explorer
In Internet Explorer, go to:
Tools
Internet Options
Select the Advanced tab and scroll down to:
Show friendly HTTP error messages and make sure it is not ticked and you will see the errors.
Make sure you keep all the ' marks in the file I have and it should work fine. |
Cheers,
David Greening |
|
|
|
Comicozzi2
Starting Member
13 Posts |
Posted - 30 March 2004 : 17:25:31
|
| Absolutely beautiful I now have about 8,000 pages of content to crawl! Thank you, what is the brand of your favorite cigar? |
|
|
|
Classicmotorcycling
Development Team Leader
Australia
2085 Posts |
Posted - 30 March 2004 : 17:52:46
|
None, do not smoke (anymore). But I am a bit partial to the odd Jack Daniels... *LOL* Glad it is now working for you.
|
Cheers,
David Greening |
|
|
|
Comicozzi2
Starting Member
13 Posts |
Posted - 30 March 2004 : 18:25:53
|
Will google crawl these pages since there is a redirect? It is an excellent tool....
They do crawl .asp pages.. |
|
|
|
Comicozzi2
Starting Member
13 Posts |
Posted - 30 March 2004 : 18:51:28
|
| Anyway to include my 3,000 archived topics in your script to also include those items as well? |
|
|
| |
Topic |
|
Topic Locked
