<%@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 rsGalleryDetail__MMColParam rsGalleryDetail__MMColParam = "1" If (Request.QueryString("fldGalleryID") <> "") Then rsGalleryDetail__MMColParam = Request.QueryString("fldGalleryID") End If %> <% Dim rsGalleryDetail Dim rsGalleryDetail_numRows Set rsGalleryDetail = Server.CreateObject("ADODB.Recordset") rsGalleryDetail.ActiveConnection = MM_blog_STRING rsGalleryDetail.Source = "SELECT * FROM tblGallery WHERE fldGalleryID = " + Replace(rsGalleryDetail__MMColParam, "'", "''") + "" rsGalleryDetail.CursorType = 0 rsGalleryDetail.CursorLocation = 2 rsGalleryDetail.LockType = 1 rsGalleryDetail.Open() rsGalleryDetail_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 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 > <%=(rsGalleryDetail.Fields.Item("fldGalleryTitle").Value)%> " />
/<%=(rsGalleryDetail.Fields.Item("fldGalleryPic").Value)%>">/<%=(rsGalleryDetail.Fields.Item("fldGalleryPic").Value)%>&width=<%=(rsGalleryConfig.Fields.Item("fldGalleryTitleThumb").Value)%>" alt="View Full Size" border="0" />

<%=(rsGalleryDetail.Fields.Item("fldGalleryTitle").Value)%>

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

<% thepath = galleryroot & (rsGalleryDetail.Fields.Item("fldGalleryID").Value) & "/" ListFolderContents(Server.MapPath(thepath)) %> <% sub ListFolderContents(path) dim fs, folder, file, item, url set fs = CreateObject("Scripting.FileSystemObject") set folder = fs.GetFolder(path) for each item in folder.SubFolders ListFolderContents(item.Path) next 'Display a list of files. theimage = galleryroot & (rsGalleryDetail.Fields.Item("fldGalleryID").Value) & "/" & (rsGalleryDetail.Fields.Item("fldGalleryPic").Value) for each item in folder.Files url = MapURL(item.path) if url <> theimage then %>
" alt="View Full Size" />
<% end if next end sub function MapURL(path) dim rootPath, url 'Convert a physical file path to a URL for hypertext links. rootPath = Server.MapPath("/") url = Right(path, Len(path) - Len(rootPath)) MapURL = Replace(url, "\", "/") end function %>

Back to Gallery List
<% 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 %> <% rsGalleryDetail.Close() Set rsGalleryDetail = Nothing %>