| Author |
 Topic  |
|
Classicmotorcycling
Development Team Leader
Australia
2084 Posts |
 Posted - 29 August 2002 : 18:21:50
|
Hello,
I have revised Dayve's topic maker to work with 3.4.01 and is available at SnitzBiz Mods. 
I have managed to get it to check the ammount of topics in this version, so there is no need to adjust to suit how many messages there are. 
I have included a readme.txt file in it. I have also rated the install to be on a scale with 1 being hard and 10 being easy, as a 10.  |
Cheers,
David Greening |
|
|
dayve
Forum Moderator
USA
5820 Posts |
Posted - 31 August 2002 : 14:56:41
|
| if I may put my 2 cents in. this script has done wonders for my site. it really helps enhance the traffic to your site and has proven extremely successful for me. anyway.... you want traffic, use this script, but one caveat.. you should have some content at least in your database. this will probably not be as effective on a new forum with very little posts. |
 |
 |
|
|
webbee
Junior Member
100 Posts |
|
|
dayve
Forum Moderator
USA
5820 Posts |
Posted - 19 September 2002 : 19:10:46
|
quote:
Originally posted by webbee
Could someone send the 3.4 version of this mod to me?
TIA
this thread is for the 3.4 version. |
|
|
|
|
Classicmotorcycling
Development Team Leader
Australia
2084 Posts |
Posted - 19 September 2002 : 20:26:58
|
Dayve, Thanks.....
Webbee, here is the updated version for 3.4.xx at Topic Maker, I have tested it on 3.4, 3.4.01 and 3.4.02 and it works fine. Shall make sure on 3.4.03 this week-end.. |
Cheers,
David Greening |
|
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 23 September 2002 : 18:22:15
|
| Doesn't work with my system at all. Always get the "No such topic found" for every message. |
|
|
|
Classicmotorcycling
Development Team Leader
Australia
2084 Posts |
Posted - 23 September 2002 : 21:36:53
|
Carefree,
Is there messages in your system? I have not had a problem on different 3.4.xx forums. I have 4 of them running and it works on them all.quote:
Originally posted by Carefree
Doesn't work with my system at all. Always get the "No such topic found" for every message.
Where is you site at?
|
Cheers,
David Greening |
|
|
|
Classicmotorcycling
Development Team Leader
Australia
2084 Posts |
Posted - 23 September 2002 : 21:42:03
|
It's alright silly question about your site.. Need to look at profiles before hand..
Did you follow the readme? I noticed that there was not a directory called Topics at your site. Is that the directory you put in the code? Does the directory also have read/write permissions set?
If it can not write to the directory you want it to, then you should also get those errors (I think).
Edit: I hate leaving letters out.. |
Cheers,
David Greening |
Edited by - Classicmotorcycling on 23 September 2002 21:43:01 |
|
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 23 September 2002 : 22:59:32
|
There is a directory called "Topics", it is writable, and yes, I followed the readme. The permissions are set properly in the IIS Management service and in Explorer.
|
|
|
|
mot
New Member
United Kingdom
70 Posts |
Posted - 24 September 2002 : 00:09:55
|
Has anyone got a working link to the old 3.3 version of this file?
PeterT
www.ukdivers.com |
UKDivers.com |
|
|
|
Classicmotorcycling
Development Team Leader
Australia
2084 Posts |
Posted - 24 September 2002 : 03:07:20
|
Carefree,
Might be silly, but where is the Topics directory? Is it in the forums directory or at the root directory? Just that the Topic Maker is set for the root directory and not the forum directory.
quote:
Originally posted by Carefree
There is a directory called "Topics", it is writable, and yes, I followed the readme. The permissions are set properly in the IIS Management service and in Explorer.
Can you open your forum as it is closed (also unable to get to it at the moment). So I can have a look..
|
Cheers,
David Greening |
|
|
|
Classicmotorcycling
Development Team Leader
Australia
2084 Posts |
Posted - 24 September 2002 : 03:08:50
|
Peter,
There is a copy for Snitz 3.3.xx..
quote:
Originally posted by mot
Has anyone got a working link to the old 3.3 version of this file?
PeterT
www.ukdivers.com
<%Server.ScriptTimeout = 10000%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<!--#INCLUDE FILE="inc_top.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 = 1
do until countrs.eof
ListTopic = ListTopic + 1
countrs.movenext
Loop
set countrs = nothing
strTotalTopics = ListTopic
for write_this = 0 to ListTopic
'write_this = Request.QueryString("TOPIC_ID")
'for write_this = 1 to 500
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>" & rsWrite("T_SUBJECT") & "</title>"
strWrite = strWrite & "<meta http-equiv=""Refresh"" content=""4; URL=http://www.classicmotorcycling.com.au/Forums/topic.asp?TOPIC_ID=" & write_this & """>"
strWrite = strWrite & "<meta name=""Description"" CONTENT=""This page contains your selected keywords from the Classic Motorcycling Australia forum subject: " & rsWrite("T_SUBJECT") & """>"
strWrite = strWrite & "<meta name=""Keywords"" CONTENT=""" & rsWrite("T_SUBJECT") & " " & Replace(themessage, Chr(13) & Chr(10), "") & """>"
strWrite = strWrite & "<link href=""../../Stylesheet/classicmotor.css"" rel=""stylesheet"" type=""text/css"">"
strWrite = strWrite & "</head><body BGCOLOR=#FFFFFF LINK=#FFFFFF ALINK=#FFFFFF VLINK=#333399 TEXT=#000000 marginwidth=0 marginheight=0 topmargin=0 leftmargin=0>"
strWrite = strWrite & "<TABLE BGCOLOR=#150180 BACKGROUND=""../../Graphics/Blue_bg.gif"" CELLPADDING=0 CELLSPACING=0 BORDER=0 WIDTH=791>"
strWrite = strWrite & "<TR VALIGN=top ALIGN=left><TD>"
strWrite = strWrite & "<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0>"
strWrite = strWrite & "<TR VALIGN=""top"" ALIGN=""left"">"
strWrite = strWrite & "<TD WIDTH=140 HEIGHT=20><IMG SRC=""../../Graphics/clearpixel.gif"" HEIGHT=20 BORDER=0></TD></TR></TABLE></TD></TR></TABLE>"
strWrite = strWrite & "<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0 WIDTH=641>"
strWrite = strWrite & "<TR VALIGN=""top"" ALIGN=""left""><TD>"
strWrite = strWrite & "<TABLE BGCOLOR=#FF0000 BACKGROUND=""../../Graphics/Red_bg.gif"" BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=791>"
strWrite = strWrite & "<TR VALIGN=""top"" ALIGN=""left"">"
strWrite = strWrite & "<TD WIDTH=9 HEIGHT=72> </TD>"
strWrite = strWrite & "<TD WIDTH=123 ALIGN=""left"" VALIGN=""center""> </TD>"
strWrite = strWrite & "<TD WIDTH=480 ALIGN=""center"" VALIGN=""center""><IMG id=""Banner0"" HEIGHT=60 WIDTH=480 SRC=""../Forums/Graphics/Classic_Aus_Header_Forums.gif"" BORDER=0 ALT=""Classic Motorcycling Australia © 2002 - Forums""></TD>"
strWrite = strWrite & "<TD ALIGN=""right"" VALIGN=""center""> </TD></TR></TABLE></TD></TR></table>"
strWrite = strWrite & "<table cellpadding=0 cellspacing=0 border=0><tr><td>"
strWrite = strWrite & "<TABLE BORDER=0 cellspacing=0 cellpadding=0 width=790>"
strWrite = strWrite & "<TR><TD> <br>"
strWrite = strWrite & "<table width=""100%"" border=""1"" cellpadding=""2"" cellspacing=""1"" bordercolor=""#FF0000""><tr><td align=""center"" colspan=""2""><b>" & rsWrite("T_SUBJECT") & "</b></td></tr>"
strWrite = strWrite & "<tr><td align=""center"" valign=""top""><font class=""text1""><b>" & getmembername(rsWrite("T_AUTHOR")) & "</b></font></td>"
strWrite = strWrite & "<td><font class=""text1"">" & themessage & "</font></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""><font class=""text1""><b>" & getmembername(rsWriteReply("R_AUTHOR")) & "</b></font></td>"
strWrite = strWrite & "<td><font class=""text1"">" & rsWriteReply("R_MESSAGE") & "</font></td></tr>"
rsWriteReply.MoveNext
loop
strWrite = strWrite & "</table>"
strWrite = strWrite & "<br><center><font class=""text3"">Copyright © 2001 - 2002</font> <font class=""text2"">By: <a target=""_top"" href=""http://www.classicmotorcycling.com.au"" onMouseOver=""self.status='Internal Site: Classic Motorcycling Australia'; return true"">Classic Motorcycling Australia</a> & <a target=""_blank"" href=""http://www.davidgreening.com"" onMouseOver=""self.status='External Site: David Greening Web Design Australia'; return true"">David Greening</a><br><a target=""_top"" href=""../../Terms/"" onMouseOver=""self.status='Internal Site: Classic Motorcycling Australia - Terms & Conditions'; return true"">Terms & Conditions</a></font></center><p>"
strWrite = strWrite & "</TD></TR></TABLE></TABLE><P>"
strWrite = strWrite & "</body></html>"
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" -->
|
Cheers,
David Greening |
|
|
|
mot
New Member
United Kingdom
70 Posts |
Posted - 24 September 2002 : 08:27:50
|
Thank you Dave, will give it a go.
www.ukdivers.com |
UKDivers.com |
|
|
|
mot
New Member
United Kingdom
70 Posts |
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 24 September 2002 : 14:16:09
|
quote:
Originally posted by Classicmotorcycling
Carefree,
Might be silly, but where is the Topics directory? Is it in the forums directory or at the root directory? Just that the Topic Maker is set for the root directory and not the forum directory.
Can you open your forum as it is closed (also unable to get to it at the moment). So I can have a look..
I created directories under root and under forum directories, just in case. Both have proper read/write permissions, and the server is up - apparently we lost cable for a little while last night. |
|
|
|
Classicmotorcycling
Development Team Leader
Australia
2084 Posts |
Posted - 25 September 2002 : 15:01:55
|
Carefree,
Since all your areas that have something in them are hidden, then it will not pick them up. It checks to see the status of the topics, and if they are in a hidden area it will not drag them out.
As your forum is a closed forum, why would you want to hide some of the categories for? And since they are hidden, then the topic maker is no good for your needs, as they are hidden and if it was converted to take in the hidden areas, then that would defeat the purpose of hiding them and open all topics to be seen.
You need to have areas that you want people to access with topics in them.
|
Cheers,
David Greening |
|
|
|
Topic |
|
Topic Locked
