[MOD] Google Sitemap for SQL v8.04

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hi All; 

Here is the my dynamic google sitemap script. If you want to more indexed pages for google read this : 

https://www.google.com/webmasters/sitemaps/docs/en/protocol.html

[QUOTE]
<% @ Language=VBScript %>
<% Option Explicit %>
<!--#include file="common.asp" -->
<!--#include file="functions/functions_date_time_format.asp" -->
<%
'************************************************
'****** Dynamic Google SiteMap for WWF v8.04 SQL*******
'******* written by Kaan DOGAN (aka Superlative)********
'**************** www.knowhow.gen.tr**************
'************************************************
'Dimension variables
Dim intRecordPositionPageNum
Dim intTotalRecordsPages 'Holds the total number of pages
Dim intStartPosition  'Holds the start poition for records to be shown
Dim intEndPosition  'Holds the end poition for records to be shown
Dim sarryForums   'Holds the recordset array for all the categories and forums
Dim sarryTopics   'Holds the topics to display
Dim saryMemebrStats  'Holds the member stats
Dim intForumID   'Holds the forum ID number
Dim strCategory   'Holds the category name
Dim intCatID   'Holds the id for the category
Dim strForumName  'Holds the forum name
Dim strForumDiscription  'Holds the forum description
Dim strForumPassword  'Holds the forum password if there is one
Dim lngNumberOfTopics  'Holds the number of topics in a forum
Dim lngNumberOfPosts  'Holds the number of Posts in the forum
Dim lngTotalNumberOfTopics 'Holds the total number of topics in a forum
Dim lngTotalNumberOfPosts 'Holds the total number of Posts in the forum
Dim intNumberofForums  'Holds the number of forums
Dim lngLastEntryMeassgeID 'Holds the message ID of the last entry
Dim dtmLastEntryDate  'Holds the date of the last entry to the forum
Dim strLastEntryUser  'Holds the the username of the user who made the last entry
Dim lngLastEntryUserID  'Holds the ID number of the last user to make and entry
Dim dtmLastEntryDateAllForums 'Holds the date of the last entry to all fourms
Dim strLastEntryUserAllForums 'Holds the the username of the user who made the last entry to all forums
Dim lngLastEntryUserIDAllForums 'Holds the ID number of the last user to make and entry to all forums
Dim blnForumLocked  'Set to true if the forum is locked
Dim intForumColourNumber 'Holds the number to calculate the table row colour
Dim blnHideForum  'Set to true if this is a hidden forum
Dim intCatShow   'Holds the ID number of the category to show if only showing one category
Dim intActiveUsers  'Holds the number of active users
Dim intActiveGuests  'Holds the number of active guests
Dim intActiveMembers  'Holds the number of logged in active members
Dim strMembersOnline  'Holds the names of the members online
Dim intSubForumID  'Holds the sub forum ID number
Dim strSubForumName  'Holds the sub forum name
Dim strSubForums  'Holds if there are sub forums
Dim dtmLastSubEntryDate  'Holds the date of the last entry to the forum
Dim strLastSubEntryUser  'Holds the the username of the user who made the last entry
Dim lngLastSubEntryUserID 'Holds the ID number of the last user to make and entry
Dim lngSubForumNumberOfPosts 'Holds the number of posts in the subforum
Dim lngSubForumNumberOfTopics 'Holds the number of topics in the subforum
Dim intTotalRecords  'Holds the number of records
Dim intCurrentRecord  'Holds the current record position
Dim intTempRecord  'Holds a temporary record position for looping through records for any checks
Dim blnSubRead   'Holds if the user has entry to the sub forum
Dim lngNoOfMembers  'Holds the number of forum members
Dim intArrayPass  'Active users array counter
Dim strBirthdays  'String containing all those with birtdays today
Dim dtmNow   'Now date with off-set
Dim intBirtdayLoopCounter 'Holds the bitrhday loop counter
Dim intLastForumEntryID  'Holds the last forum ID for the last entry for link in forum stats
Dim intTotalViewingForum 'Holds the number of people viewing the forum, including sub forums
Dim z
'Initialise variables
lngTotalNumberOfTopics = 0
lngTotalNumberOfPosts = 0
intNumberofForums = 0
intForumColourNumber = 0
intActiveMembers = 0
intActiveGuests = 0
intActiveUsers = 0
intTotalRecords = 0
lngNoOfMembers = 0
intBirtdayLoopCounter = 0
z= 0
'Set the content type for feed
Response.ContentType = "application/xml"
%><?xml version="1.0" encoding="UTF-8" ?> 
<urlset xmlns="http://www.google.com/schemas/sitemap/0.84"><%
'Read the various categories, forums, and permissions from the database in one hit for extra performance
'Initalise the strSQL variable with an SQL statement to query the database
strSQL = "" & _
"SELECT " & strDbTable & "Category.Cat_ID, " & strDbTable & "Category.Cat_name, " & strDbTable & "Forum.Forum_ID, " & strDbTable & "Forum.Sub_ID, " & strDbTable & "Forum.Forum_name, " & strDbTable & "Forum.Forum_description, " & strDbTable & "Forum.No_of_topics, " & strDbTable & "Forum.No_of_posts, " & strDbTable & "Author.Username, " & strDbTable & "Forum.Last_post_author_ID, " & strDbTable & "Forum.Last_post_date, " & strDbTable & "Forum.Password, " & strDbTable & "Forum.Locked, " & strDbTable & "Forum.Hide, " & strDbTable & "Permissions.View_Forum " & _
"FROM " & strDbTable & "Category" & strDBNoLock & ", " & strDbTable & "Forum" & strDBNoLock & ", " & strDbTable & "Permissions" & strDBNoLock & ", " & strDbTable & "Author" & strDBNoLock & " " & _
"WHERE " & strDbTable & "Category.Cat_ID = " & strDbTable & "Forum.Cat_ID " & _
 "AND " & strDbTable & "Forum.Forum_ID = " & strDbTable & "Permissions.Forum_ID " & _ 
 "AND " & strDbTable & "Forum.Last_post_author_ID = " & strDbTable & "Author.Author_ID " & _
 "AND (" & strDbTable & "Permissions.Author_ID = " & lngLoggedInUserID & " OR " & strDbTable & "Permissions.Group_ID = " & intGroupID & ") " & _
"ORDER BY " & strDbTable & "Category.Cat_order, " & strDbTable & "Forum.Forum_Order, " & strDbTable & "Permissions.Author_ID DESC;"
'Set error trapping
On Error Resume Next

'Query the database
rsCommon.Open strSQL, adoCon
'If an error has occured write an error to the page
If Err.Number <> 0 Then Call errorMsg("An error has occured while executing SQL query on database.", "get_forum_data", "default.asp")

'Disable error trapping
On Error goto 0

'Place the recordset into an array
If NOT rsCommon.EOF Then 
 sarryForums = rsCommon.GetRows()
 intTotalRecords = Ubound(sarryForums,2) + 1
End If
'Close the