| Author |
 Topic  |
|
cyclingdude
New Member
68 Posts |
 Posted - 03 November 2002 : 23:13:42
|
James,
Has it helped increase traffic to your forum? Do you think Google would penalize for the redirects? |
 |
|
|
kwhipp
Junior Member
USA
407 Posts |
Posted - 04 November 2002 : 18:37:06
|
Okay here is my version. Some features are:- Snitz v3.4 admin authorization and response.write
- All topics in any type of private forum are excluded
- index page is generated
- Option to include archived topics
You will need to modify the variables on lines 52, 56 and 60.
Updated to work with Access, MySql and SQL
<%
'#################################################################################
'## Copyright (C) 2000-02 Michael Anderson, Pierre Gorissen,
'## Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
'##
'## Support can be obtained from support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## reinhold@bigfoot.com
'##
'## or
'##
'## Snitz Communications
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_common.asp" -->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<%
if Session(strCookieURL & "Approval") <> "15916941253" then
scriptname = split(request.servervariables("SCRIPT_NAME"),"/")
Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname))
end if
'### Relative server path to the "Topic" folder - *** include final '/' ***
strTopicPath = "../topics/"
'###
'### URL to the "Topic" folder - *** include final '/' ***
strTopicURL = "http://yoursite.com/topics/"
'###
'### Make topics for archived topics - *** 1 = yes, 0 = no ***
strArchivedTopic = 1
'###
strSql = "SELECT TOPIC_ID FROM " & strTablePrefix & "TOPICS ORDER BY TOPIC_ID DESC"
strSql = TopSQL(strSql,1)
set countrs = my_conn.execute(strSql)
if countrs.Bof and countrs.eof then
'# do nothing
else
strMaxTopics = countrs("TOPIC_ID")
set countrs = nothing
strSql = "SELECT TOPIC_ID FROM " & strTablePrefix & "TOPICS ORDER BY TOPIC_ID ASC"
strSql = TopSQL(strSql,1)
set countrs = my_conn.execute(strSql)
strMinTopics = countrs("TOPIC_ID")
set countrs = nothing
if strMinTopics < 1 then
strMinTopics = 1
end if
Response.Write " <table border=""0"" width=""100%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""admin_home.asp"">Admin Section</a><br />" & vbNewLine & _
" " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Topic Maker<br /></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <table border=""0"" align=""center"" width=""100%"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strPopUpBorderColor & """>" & vbNewLine & _
" <table border=""0"" cellspacing=""1"" cellpadding=""1"" align=""center"" width=""100%"">" & vbNewLine
strWrite2 = strWrite2 & "<html>" & vbNewLine
strWrite2 = strWrite2 & "<head>" & vbNewLine
strWrite2 = strWrite2 & "<title>" & strForumTitle & " Topics</title>" & vbNewLine
strWrite2 = strWrite2 & "<meta name=""copyright"" content=""Copyright © " & strCopyright & """>" & vbNewLine
strWrite2 = strWrite2 & "<meta name=""author"" content=""" & strForumTitle & """>" & vbNewLine
strWrite2 = strWrite2 & "<meta name=""revisit-after"" content=""1 day"">" & vbNewLine
strWrite2 = strWrite2 & "<meta name=""robot"" content=""all"">" & vbNewLine
strWrite2 = strWrite2 & "</head>" & vbNewLine
strWrite2 = strWrite2 & "<body text=""" & strDefaultFontColor & """>" & vbNewLine
strWrite2 = strWrite2 & "<table border=""0"" align=""center"" width=""100%"" cellspacing=""0"" cellpadding=""2"">" & vbNewLine
strWrite2 = strWrite2 & " <tr>" & vbNewLine
strWrite2 = strWrite2 & " <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & strForumTitle & " Topics</b></font></td>" & vbNewLine
strWrite2 = strWrite2 & " </tr>" & vbNewLine
strWrite2 = strWrite2 & " <tr>" & vbNewLine
strWrite2 = strWrite2 & " <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> </font></td>" & vbNewLine
strWrite2 = strWrite2 & " </tr>" & vbNewLine
for write_this = strMinTopics to strMaxTopics
strSql = "SELECT FORUM_ID, CAT_ID, T_AUTHOR, T_SUBJECT, T_MESSAGE"
strSql = strSql & " FROM " & strTablePrefix & "TOPICS"
strSql = strSql & " WHERE TOPIC_ID = " & write_this
set rsWrite = my_Conn.Execute (strSql)
strStatus = ""
strWrite = ""
if rsWrite.Bof and rsWrite.eof then
strStatus = "No such topic found."
else
set rsGetForum = my_Conn.Execute ("SELECT F_SUBJECT, F_PRIVATEFORUMS FROM " & strTablePrefix & "FORUM WHERE FORUM_ID =" & rsWrite("FORUM_ID"))
if rsGetForum("F_PRIVATEFORUMS") = 0 then
forum_name = rsGetForum("F_SUBJECT")
themessage = rsWrite("T_MESSAGE")
strWrite = strWrite & "<html>" & vbNewLine
strWrite = strWrite & "<head>" & vbNewLine
strWrite = strWrite & "<title>" & strForumTitle & " - " & rsWrite("T_SUBJECT") & "</title>" & vbNewLine
strWrite = strWrite & "<meta http-equiv=""Refresh"" content=""5; URL=" & strForumURL & "topic.asp?TOPIC_ID=" & write_this & """>" & vbNewLine
strWrite = strWrite & "<meta name=""keywords"" content=""" & Replace(rsWrite("T_SUBJECT"), " ", ", ") & ", " & Replace(Replace(themessage, Chr(13) & Chr(10), ""), " ", ", ") & """>" & vbNewLine
strWrite = strWrite & "<meta name=""description"" content=""" & strForumTitle & " - " & rsWrite("T_SUBJECT") & """>" & vbNewLine
strWrite = strWrite & "<meta name=""copyright"" content=""Copyright © " & strCopyright & """>" & vbNewLine
strWrite = strWrite & "<meta name=""author"" content=""" & strForumTitle & """>" & vbNewLine
strWrite = strWrite & "<meta name=""revisit-after"" content=""1 day"">" & vbNewLine
strWrite = strWrite & "<meta name=""robot"" content=""all"">" & vbNewLine
strWrite = strWrite & "</head>" & vbNewLine
strWrite = strWrite & "<body text=""" & strDefaultFontColor & """>" & vbNewLine
strWrite = strWrite & "<table border=""1"" align=""center"" width=""100%"" cellspacing=""0"" cellpadding=""2"">" & vbNewLine
strWrite = strWrite & " <tr>" & vbNewLine
strWrite = strWrite & " <td bgcolor=""" & strPopUpBorderColor & """ align=""center"" colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & rsWrite("T_SUBJECT") & "</font></td>" & vbNewLine
strWrite = strWrite & " </tr>" & vbNewLine
strWrite = strWrite & " <tr>" & vbNewLine
strWrite = strWrite & " <td align=""center"" valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & getMemberName(rsWrite("T_AUTHOR")) & "</font></td>" & vbNewLine
strWrite = strWrite & " <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & themessage & "</font></td>" & vbNewLine
strWrite = strWrite & " </tr>" & vbNewLine
strWrite2 = strWrite2 & " <tr>" & vbNewLine
strWrite2 = strWrite2 & " <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""" & strTopicURL & write_this & ".htm" & """>Topic #" & write_this & "</a> - " & rsWrite("T_SUBJECT") & "</font></td>" & vbNewLine
strWrite2 = strWrite2 & " </tr>" & vbNewLine
strSql2 = "SELECT R_AUTHOR, R_MESSAGE "
strSql2 = strSql2 & " FROM " & strTablePrefix & "REPLY "
strSql2 = strSql2 & " WHERE TOPIC_ID = " & write_this
set rsWriteReply = my_Conn.Execute (strSql2)
do until rsWriteReply.eof
strWrite = strWrite & " <tr>" & vbNewLine
strWrite = strWrite & " <td align=""center"" valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & getMemberName(rsWriteReply("R_AUTHOR")) & "</font></td>" & vbNewLine
strWrite = strWrite & " <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & rsWriteReply("R_MESSAGE") & "</font></td>" & vbNewLine
strWrite = strWrite & " </tr>" & vbNewLine
rsWriteReply.MoveNext
loop
strWrite = strWrite & "</table>" & vbNewLine
strWrite = strWrite & "</body>" & vbNewLine
strWrite = strWrite & "</html>" & vbNewLine
Set ObjTopicFile = Server.CreateObject("Scripting.FileSystemObject")
TopicFile = Server.MapPath (strTopicPath & write_this & ".htm")
Set WriteTopicFile = ObjTopicFile.CreateTextFile (TopicFile, True)
WriteTopicFile.WriteLine(strWrite)
WriteTopicFile.Close
Set WriteTopicFile = Nothing
Set ObjTopicFile = Nothing
strStatus = "Success."
else
strStatus = "Private."
end if
end if
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Done processing topic number " & write_this & " - "& strStatus & "</font></td>" & _
"</font></td>" & vbNewLine & _
" </tr>" & vbNewLine
next
if strArchivedTopic then
strSql = "SELECT TOPIC_ID FROM " & strTablePrefix & "A_TOPICS ORDER BY TOPIC_ID DESC"
strSql = TopSQL(strSql,1)
set countrs = my_conn.execute(strSql)
if countrs.Bof and countrs.eof then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>There are no archived topics to process.</font></td>" & _
"</font></td>" & vbNewLine & _
" </tr>" & vbNewLine
else
strMaxTopics = countrs("TOPIC_ID")
set countrs = nothing
strSql = "SELECT TOPIC_ID FROM " & strTablePrefix & "A_TOPICS ORDER BY TOPIC_ID ASC"
strSql = TopSQL(strSql,1)
set countrs = my_conn.execute(strSql)
strMinTopics = countrs("TOPIC_ID")
set countrs = nothing
if strMinTopics < 1 then
strMinTopics = 1
end if
for write_this = strMinTopics to strMaxTopics
strSql = "SELECT FORUM_ID, CAT_ID, T_AUTHOR, T_SUBJECT, T_MESSAGE"
strSql = strSql & " FROM " & strTablePrefix & "A_TOPICS"
strSql = strSql & " WHERE TOPIC_ID = " & write_this
set rsWrite = my_Conn.Execute (strSql)
strStatus = ""
strWrite = ""
if rsWrite.Bof and rsWrite.eof then
strStatus = "No such archived topic found."
else
set rsGetForum = my_Conn.Execute ("SELECT F_SUBJECT, F_PRIVATEFORUMS FROM " & strTablePrefix & "FORUM WHERE FORUM_ID =" & rsWrite("FORUM_ID"))
if rsGetForum("F_PRIVATEFORUMS") = 0 then
forum_name = rsGetForum("F_SUBJECT")
themessage = rsWrite("T_MESSAGE")
strWrite = strWrite & "<html>" & vbNewLine
strWrite = strWrite & "<head>" & vbNewLine
strWrite = strWrite & "<title>" & strForumTitle & " - " & rsWrite("T_SUBJECT") & "</title>" & vbNewLine
strWrite = strWrite & "<meta http-equiv=""Refresh"" content=""5; URL=" & strForumURL & "topic.asp?TOPIC_ID=" & write_this & """>" & vbNewLine
strWrite = strWrite & "<meta name=""keywords"" content=""" & Replace(rsWrite("T_SUBJECT"), " ", ", ") & ", " & Replace(Replace(themessage, Chr(13) & Chr(10), ""), " ", ", ") & """>" & vbNewLine
strWrite = strWrite & "<meta name=""description"" content=""" & strForumTitle & " - " & rsWrite("T_SUBJECT") & """>" & vbNewLine
strWrite = strWrite & "<meta name=""copyright"" content=""Copyright © " & strCopyright & """>" & vbNewLine
strWrite = strWrite & "<meta name=""author"" content=""" & strForumTitle & """>" & vbNewLine
strWrite = strWrite & "<meta name=""revisit-after"" content=""1 day"">" & vbNewLine
strWrite = strWrite & "<meta name=""robot"" content=""all"">" & vbNewLine
strWrite = strWrite & "</head>" & vbNewLine
strWrite = strWrite & "<body text=""" & strDefaultFontColor & """>" & vbNewLine
strWrite = strWrite & "<table border=""1"" align=""center"" width=""100%"" cellspacing=""0"" cellpadding=""2"">" & vbNewLine
strWrite = strWrite & " <tr>" & vbNewLine
strWrite = strWrite & " <td bgcolor=""" & strPopUpBorderColor & """ align=""center"" colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & rsWrite("T_SUBJECT") & "</font></td>" & vbNewLine
strWrite = strWrite & " </tr>" & vbNewLine
strWrite = strWrite & " <tr>" & vbNewLine
strWrite = strWrite & " <td align=""center"" valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & getMemberName(rsWrite("T_AUTHOR")) & "</font></td>" & vbNewLine
strWrite = strWrite & " <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & themessage & "</font></td>" & vbNewLine
strWrite = strWrite & " </tr>" & vbNewLine
strWrite2 = strWrite2 & " <tr>" & vbNewLine
strWrite2 = strWrite2 & " <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""" & strTopicURL & write_this & ".htm" & """>Topic #" & write_this & "</a> - " & rsWrite("T_SUBJECT") & "</font></td>" & vbNewLine
strWrite2 = strWrite2 & " </tr>" & vbNewLine
strSql2 = "SELECT R_AUTHOR, R_MESSAGE "
strSql2 = strSql2 & " FROM " & strTablePrefix & "A_REPLY "
strSql2 = strSql2 & " WHERE TOPIC_ID = " & write_this
set rsWriteReply = my_Conn.Execute (strSql2)
do until rsWriteReply.eof
strWrite = strWrite & " <tr>" & vbNewLine
strWrite = strWrite & " <td align=""center"" valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & getMemberName(rsWriteReply("R_AUTHOR")) & "</font></td>" & vbNewLine
strWrite = strWrite & " <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & rsWriteReply("R_MESSAGE") & "</font></td>" & vbNewLine
strWrite = strWrite & " </tr>" & vbNewLine
rsWriteReply.MoveNext
loop
strWrite = strWrite & "</table>" & vbNewLine
strWrite = strWrite & "</body>" & vbNewLine
strWrite = strWrite & "</html>" & vbNewLine
Set ObjTopicFile = Server.CreateObject("Scripting.FileSystemObject")
TopicFile = Server.MapPath (strTopicPath & write_this & ".htm")
Set WriteTopicFile = ObjTopicFile.CreateTextFile (TopicFile, True)
WriteTopicFile.WriteLine(strWrite)
WriteTopicFile.Close
Set WriteTopicFile = Nothing
Set ObjTopicFile = Nothing
strStatus = "Success."
else
strStatus = "Private."
end if
end if
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Done processing archived topic number " & write_this & " - "& strStatus & "</font></td>" & _
"</font></td>" & vbNewLine & _
" </tr>" & vbNewLine
next
end if
end if
strWrite2 = strWrite2 & "</table>" & vbNewLine
strWrite2 = strWrite2 & "</body>" & vbNewLine
strWrite2 = strWrite2 & "</html>" & vbNewLine
Set ObjTopicFile = Server.CreateObject("Scripting.FileSystemObject")
TopicFile = Server.MapPath (strTopicPath & "default.htm")
Set WriteTopicFile = ObjTopicFile.CreateTextFile (TopicFile, True)
WriteTopicFile.WriteLine(strWrite2)
WriteTopicFile.Close
Set WriteTopicFile = Nothing
Set ObjTopicFile = Nothing
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Index file has been created.</font></td>" & _
"</font></td>" & vbNewLine & _
" </tr>" & vbNewLine
Response.Write " </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><br /><a href=""admin_home.asp"">Admin Section</a></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <br />" & vbNewLine
end if
WriteFooter
%>
|
- Kevin |
Edited by - kwhipp on 05 November 2002 10:06:46 |
|
|
|
James
Average Member
USA
539 Posts |
Posted - 04 November 2002 : 20:28:38
|
quote:
Originally posted by cyclingdude
James,
Has it helped increase traffic to your forum? Do you think Google
would penalize for the redirects?
I'm sure it has increased it some. I can view my Active Users list
most of the time and find several guest reading archived topics. I
believe most of them are coming in through a link (though some read
them through the forum). another tip is that you can usually sumbit
the link to the generate index file directly to some search engines. |
*Interested in Radio Control*
*The RC Web Board - http://www.rcwebboard.com/* |
|
|
|
Webbo
Average Member
United Kingdom
982 Posts |
Posted - 05 November 2002 : 06:42:35
|
Kevin,
Just tried your script out using a MySql database and got this error:
Microsoft OLE DB Provider for ODBC Drivers error '80040e09'
[TCX][MyODBC]You have an error in your SQL syntax near '1 TOPIC_ID FROM FORUM_TOPICS ORDER BY TOPIC_ID DESC' at line 1
/forum/kwhippscript.asp, line 65
?? It looks like a MySql problem ??
Dave
|
Edited by - Webbo on 05 November 2002 06:43:26 |
|
|
|
kwhipp
Junior Member
USA
407 Posts |
Posted - 05 November 2002 : 07:17:14
|
quote:
Originally posted by Webbo
Just tried your script out using a MySql database and got this error:
Microsoft OLE DB Provider for ODBC Drivers error '80040e09'
[TCX][MyODBC]You have an error in your SQL syntax near '1 TOPIC_ID FROM FORUM_TOPICS ORDER BY TOPIC_ID DESC' at line 1
/forum/kwhippscript.asp, line 65
?? It looks like a MySql problem ??
I'm sorry but I have not worked with MySql. With MySql, how would you form the SQL statement to select only the highest (or lowest) numbered topic? Whoever can answer that question answers Webbo's problem.
Update:
Thanks to the good people here the answer lied in the base code. I have updated my code above and it should would with Access, MySql and SQL. |
- Kevin |
Edited by - kwhipp on 05 November 2002 10:09:14 |
|
|
|
Webbo
Average Member
United Kingdom
982 Posts |
Posted - 05 November 2002 : 20:14:02
|
Excellent work Kevin, worked fine with 2576 topics
Thanks, and thanks to the good people 
Dave |
|
|
|
blackinwhite
Average Member
Turkey
657 Posts |
Posted - 06 November 2002 : 13:01:40
|
I got an error which I don't understand.
Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument
it indicates this line:
WriteTopicFile.WriteLine(strWrite)
|
|
|
|
jrountree
Starting Member
20 Posts |
Posted - 13 December 2002 : 21:43:36
|
Hey, I hope people still post in this forum -
I need help with something!
We own a server containing Win2kServer on it.
I've set the directory on Line 108 to the correct path, and it accepts the path.
But i get permission denied everytime. I've set the Read/Write permissions on, what more do i need to do to get this stinkin thing to work? |
|
|
|
HarshReality
Junior Member
USA
128 Posts |
Posted - 01 March 2003 : 15:24:22
|
| alter your path to place them in a folder beneath root. |
Anti Social Personality |
|
|
|
HarshReality
Junior Member
USA
128 Posts |
Posted - 01 March 2003 : 15:48:22
|
| I deleted a topic (#1 actually) and now when I goto run this mod it sees no topic # 1 and stops... is there an actual post somewhere of this that is bug free and fixed? |
Anti Social Personality |
|
|
|
samyot
Junior Member
Canada
242 Posts |
|
|
SPulley
Starting Member
USA
46 Posts |
Posted - 17 June 2003 : 17:23:18
|
| I just wanted to say that this Mod is sweet!! I was going to find a way to write out all my forums to HTML files to help in search engine placement.. Then I thought, hey I better see if it's been done before.. Lo and behold here it is.. It's done 8000 topics so far.. It's slowed down, but still going.. I hope that it makes it all the way through the 15,000 topics on my site.. Once the archives are done, I won't have to do them again.. |
Have fun and be good!!
Shad Pulley
www.mylargescale.com/forum |
Edited by - SPulley on 17 June 2003 17:24:12 |
|
|
|
wizard
Junior Member
208 Posts |
Posted - 25 June 2003 : 05:34:33
|
| I tried out this MOD, it ran ok but no topic was found till the 34th, then there was error. Any suggestions? |
|
|
|
EmperorNeo
Starting Member
32 Posts |
Posted - 08 July 2003 : 07:42:06
|
| I hate to sound stupid but what exactly does this mod do anyway? It can create topics automatically for you? Where will the subject come from? hmm, i'm not getting the point at all. |
|
|
|
Classicmotorcycling
Development Team Leader
Australia
2084 Posts |
Posted - 09 July 2003 : 16:09:31
|
What happens is that the mod converts all your topics (and replies) in your forums to a .htm in a directory that you choose (which needs to have have write access).quote:
Originally posted by EmperorNeo
I hate to sound stupid but what exactly does this mod do anyway? It can create topics automatically for you? Where will the subject come from? hmm, i'm not getting the point at all.
Then when a robot crawls your site it finds all your topics and spiders them. Just some robots can not spider (this is now changing). So it doesn't create new topics as such, it just drags them out of your Database for the robot to pick up better. View the readme for install instructions.
|
Cheers,
David Greening |
|
|
|
Topic |
|
Topic Locked
