<%@LANGUAGE="VBSCRIPT"%> <% curpath = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") curpath = Left(curpath, InstrRev(curpath, "/")) %> <% Dim rsBlogSite Dim rsBlogSite_numRows Set rsBlogSite = Server.CreateObject("ADODB.Recordset") rsBlogSite.ActiveConnection = MM_blog_STRING rsBlogSite.Source = "SELECT * FROM tblBlogRSS" rsBlogSite.CursorType = 0 rsBlogSite.CursorLocation = 2 rsBlogSite.LockType = 1 rsBlogSite.Open() rsBlogSite_numRows = 0 %> <% Dim rsCats Dim rsCats_numRows Set rsCats = Server.CreateObject("ADODB.Recordset") rsCats.ActiveConnection = MM_blog_STRING rsCats.Source = "SELECT *, (SELECT COUNT(*) FROM tblBlog WHERE tblBlog.BlogCat = tblCat.CatID) as CatCount FROM tblCat ORDER BY CatName ASC" rsCats.CursorType = 0 rsCats.CursorLocation = 2 rsCats.LockType = 1 rsCats.Open() rsCats_numRows = 0 %> <% Dim rsArchives Dim rsArchives_numRows Set rsArchives = Server.CreateObject("ADODB.Recordset") rsArchives.ActiveConnection = MM_blog_STRING rsArchives.Source = "SELECT DISTINCT Month(BlogDate) as ArchiveMonth, Year(BlogDate) as ArchiveYear FROM tblBlog ORDER BY Year(BlogDate) DESC, Month(BlogDate) DESC" rsArchives.CursorType = 0 rsArchives.CursorLocation = 2 rsArchives.LockType = 1 rsArchives.Open() rsArchives_numRows = 0 %> <% Dim rsArticles Dim rsArticles_numRows Set rsArticles = Server.CreateObject("ADODB.Recordset") rsArticles.ActiveConnection = MM_blog_STRING rsArticles.Source = "SELECT * FROM tblBlog, tblCat WHERE BlogCat = CatID ORDER BY BlogDate DESC" rsArticles.CursorType = 0 rsArticles.CursorLocation = 2 rsArticles.LockType = 1 rsArticles.Open() rsArticles_numRows = 0 %> <% Dim rsRecent Dim rsRecent_numRows Set rsRecent = Server.CreateObject("ADODB.Recordset") rsRecent.ActiveConnection = MM_blog_STRING rsRecent.Source = "SELECT * FROM tblBlog ORDER by BlogDate DESC" rsRecent.CursorType = 0 rsRecent.CursorLocation = 2 rsRecent.LockType = 1 rsRecent.Open() rsRecent_numRows = 0 %> <% Dim rsGalleryConfig Dim rsGalleryConfig_numRows Set rsGalleryConfig = Server.CreateObject("ADODB.Recordset") rsGalleryConfig.ActiveConnection = MM_blog_STRING rsGalleryConfig.Source = "SELECT * FROM tblGalleryConfig" rsGalleryConfig.CursorType = 0 rsGalleryConfig.CursorLocation = 2 rsGalleryConfig.LockType = 1 rsGalleryConfig.Open() rsGalleryConfig_numRows = 0 %> <% Dim rsGallery Dim rsGallery_numRows Set rsGallery = Server.CreateObject("ADODB.Recordset") rsGallery.ActiveConnection = MM_blog_STRING rsGallery.Source = "SELECT * FROM tblGallery ORDER BY fldGalleryCreated DESC" rsGallery.CursorType = 0 rsGallery.CursorLocation = 2 rsGallery.LockType = 1 rsGallery.Open() rsGallery_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsBlogSite_numRows = rsBlogSite_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rsArchives_numRows = rsArchives_numRows + Repeat2__numRows %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = 10 Repeat4__index = 0 rsRecent_numRows = rsRecent_numRows + Repeat4__numRows %> <% Dim Repeat5__numRows Dim Repeat5__index Repeat5__numRows = -1 Repeat5__index = 0 rsGallery_numRows = rsGallery_numRows + Repeat5__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 20 Repeat3__index = 0 rsArticles_numRows = rsArticles_numRows + Repeat3__numRows %> <% galleryroot = Right((rsBlogSite.Fields.Item("blogURL").Value), Len((rsBlogSite.Fields.Item("blogURL").Value)) - Instr((rsBlogSite.Fields.Item("blogURL").Value), "//")-1) galleryroot = Right(galleryroot, Len(galleryroot) - Instr(galleryroot, "/")+1) & "images/" %> <%=(rsBlogSite.Fields.Item("blogTitle").Value)%> > Gallery " />
<% While ((Repeat5__numRows <> 0) AND (NOT rsGallery.EOF)) %>
" title="View this gallery">/<%=(rsGallery.Fields.Item("fldGalleryPic").Value)%>&width=<%=(rsGalleryConfig.Fields.Item("fldGalleryTitleThumb").Value)%>" border="0" />

" title="View this gallery"><%=(rsGallery.Fields.Item("fldGalleryTitle").Value)%>

<%=(rsGallery.Fields.Item("fldGalleryDesc").Value)%>

<% Repeat5__index=Repeat5__index+1 Repeat5__numRows=Repeat5__numRows-1 rsGallery.MoveNext() Wend %>
<% rsBlogSite.Close() Set rsBlogSite = Nothing %> <% rsCats.Close() Set rsCats = Nothing %> <% rsArchives.Close() Set rsArchives = Nothing %> <% rsArticles.Close() Set rsArticles = Nothing %> <% rsRecent.Close() Set rsRecent = Nothing %> <% rsGalleryConfig.Close() Set rsGalleryConfig = Nothing %> <% rsGallery.Close() Set rsGallery = Nothing %>