config root man

Current Path : /var/sites/m/makeitez.co.uk/public_html/

Linux lin101.gridhost.co.uk 3.2.83 #4 SMP Thu Oct 27 23:38:08 BST 2016 x86_64
Upload File :
Current File : /var/sites/m/makeitez.co.uk/public_html/template_gallery.asp

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/blog.asp" -->
<%
Dim rsBlogSite
Dim rsBlogSite_numRows

Set rsBlogSite = Server.CreateObject("ADODB.Recordset")
rsBlogSite.ActiveConnection = MM_blog_STRING
rsBlogSite.Source = "SELECT blogURL, blogTitle, blogSubTitle, blogDesc, blogPosts, blogLayout FROM tblBlogRSS"
rsBlogSite.CursorType = 0
rsBlogSite.CursorLocation = 2
rsBlogSite.LockType = 1
rsBlogSite.Open()

rsBlogSite_numRows = 0
%>
<%
Dim rsLayout
Dim rsLayout_numRows

Set rsLayout = Server.CreateObject("ADODB.Recordset")
rsLayout.ActiveConnection = MM_blog_STRING
rsLayout.Source = "SELECT layout1, layout2, layout3, layout4, layout5 from tblLayout WHERE layoutid = " & (rsBlogSite.Fields.Item("blogLayout").Value)
rsLayout.CursorType = 0
rsLayout.CursorLocation = 2
rsLayout.LockType = 1
rsLayout.Open()

rsLayout_numRows = 0
%>
<%
Dim rsArticles
Dim rsArticles_numRows

Set rsArticles = Server.CreateObject("ADODB.Recordset")
rsArticles.ActiveConnection = MM_blog_STRING
rsArticles.Source = "SELECT BlogID, BlogHeadline, BlogHTML, BlogDate, BlogCat, BlogAuthor, BlogCommentInclude, BlogReadMore, BlogDraft, CatID, CatName, CatDesc, fldAuthorID, fldAuthorRealName, (SELECT COUNT(*) FROM tblComment WHERE tblComment.BlogID = tblBlog.BlogID AND tblComment.CommentInclude = 1) as CommentCount, (SELECT COUNT(*) FROM tblBlog WHERE BlogCat = CatID AND BlogDraft <> 1) as CategoryCount  FROM tblBlog, tblCat, tblAuthor  WHERE BlogCat = CatID  AND tblBlog.BlogAuthor = tblAuthor.fldAuthorID AND tblBlog.BlogDraft <> 1 ORDER BY BlogDate DESC"
rsArticles.CursorType = 0
rsArticles.CursorLocation = 2
rsArticles.LockType = 1
rsArticles.Open()

rsArticles_numRows = 0
%>
<%
Dim rsGalleryConfig
Dim rsGalleryConfig_numRows

Set rsGalleryConfig = Server.CreateObject("ADODB.Recordset")
rsGalleryConfig.ActiveConnection = MM_blog_STRING
rsGalleryConfig.Source = "SELECT fldGalleryTitleThumb, fldGalleryThumb 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 fldGalleryID, fldGalleryTitle, fldGalleryDesc, fldGalleryPic, fldGalleryCreated 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 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
%>
<%
curpath = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")
curpath =  Left(curpath, InstrRev(curpath, "/"))
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/"
%>
<script language="VBScript" type="text/vbscript" runat="server">					
function DoDateTime(str, nNamedFormat, nLCID)				
	dim strRet								
	dim nOldLCID								
										
	strRet = str								
	If (nLCID > -1) Then							
		oldLCID = Session.LCID						
	End If									
										
	On Error Resume Next							
										
	If (nLCID > -1) Then							
		Session.LCID = nLCID						
	End If									
										
	If ((nLCID < 0) Or (Session.LCID = nLCID)) Then				
		strRet = FormatDateTime(str, nNamedFormat)			
	End If									
										
	If (nLCID > -1) Then							
		Session.LCID = oldLCID						
	End If									
										
	DoDateTime = strRet							
End Function									
</script>
<%=(rsLayout.Fields.Item("layout1").Value)%>
<title><%=(rsBlogSite.Fields.Item("blogTitle").Value)%> | Gallery</title>
<meta name="Description" content="<%=(rsBlogSite.Fields.Item("blogDesc").Value)%>" />
<link rel="alternate" type="application/rss+xml" href="rss.xml" title="RSS feed for <%=(rsBlogSite.Fields.Item("blogTitle").Value)%>">
<%=(rsLayout.Fields.Item("layout2").Value)%>
<h1 align="center" id="blog-title"><img src="images/mainlogo.gif" width="621" height="101" border="0" align="top" usemap="#Map" />
<map name="Map" id="Map"><area shape="circle" coords="102,42,5" href="main.asp" />
<area shape="circle" coords="463,104,6" href="http://rpc.technorati.com/rpc/ping" />
</map></h1>

<p id="description">&nbsp;</p>
<%=(rsLayout.Fields.Item("layout3").Value)%>
<% 
While ((Repeat5__numRows <> 0) AND (NOT rsGallery.EOF)) 
%>
<div class="gallery">
<div class="thumb"><a href="template_gallery_detail.asp?fldGalleryID=<%=(rsGallery.Fields.Item("fldGalleryID").Value)%>" title="View this gallery"><img src="thumbnailimage.aspx?filename=<%=galleryroot%><%=(rsGallery.Fields.Item("fldGalleryID").Value)%>/<%=(rsGallery.Fields.Item("fldGalleryPic").Value)%>&width=<%=(rsGalleryConfig.Fields.Item("fldGalleryTitleThumb").Value)%>" border="0" /></a></div>
<h3><a href="template_gallery_detail.asp?fldGalleryID=<%=(rsGallery.Fields.Item("fldGalleryID").Value)%>" title="View this gallery"><%=(rsGallery.Fields.Item("fldGalleryTitle").Value)%>
</a></h3>
<p><%=(rsGallery.Fields.Item("fldGalleryDesc").Value)%></p>
</div>
<% 
  Repeat5__index=Repeat5__index+1
  Repeat5__numRows=Repeat5__numRows-1
  rsGallery.MoveNext()
Wend
%>
<%=(rsLayout.Fields.Item("layout4").Value)%>
<!--#include file="inc_sidebar.asp" -->
<%=(rsLayout.Fields.Item("layout5").Value)%>
<%
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
%>
<%
rsLayout.Close()
Set rsLayout = Nothing
%>

Man Man