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_default.asp

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%@LANGUAGE="VBSCRIPT"%>
<%
curpath = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")
curpath =  Left(curpath, InstrRev(curpath, "/"))
%>
<!--#include file="Connections/blog.asp" -->
<%
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 *, (SELECT COUNT(*) FROM tblComment WHERE tblComment.BlogID = tblBlog.BlogID AND tblComment.CommentInclude = 1) as CommentCount, (SELECT COUNT(*) FROM tblBlog WHERE BlogCat = CatID) as CategoryCount  FROM tblBlog, tblCat, tblAuthor  WHERE BlogCat = CatID  AND tblBlog.BlogAuthor = tblAuthor.fldAuthorID  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 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 = rsBlogSite.Fields.Item("BlogPosts").Value
Repeat3__index = 0
rsArticles_numRows = rsArticles_numRows + Repeat3__numRows
%>

<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>									
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><HTML lang=en xml:lang="en" xmlns="http://www.w3.org/1999/xhtml"><!-- InstanceBegin template="/Templates/blog.dwt" codeOutsideHTMLIsLocked="false" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<!-- InstanceBeginEditable name="doctitle" -->
<title><%=(rsBlogSite.Fields.Item("blogTitle").Value)%></title>
<!-- InstanceEndEditable -->
<!-- InstanceBeginEditable name="head" -->
<meta name="Description" content="<%=(rsBlogSite.Fields.Item("blogDesc").Value)%>" />
<!-- InstanceEndEditable -->
<link href="styles-site.css" rel="stylesheet" type="text/css" />
</head>
<BODY>
<DIV id=container>
<DIV id=header>
<!-- InstanceBeginEditable name="banner" --><!-- InstanceEndEditable -->
</DIV>
<DIV id=content>
<DIV id=main>
<!-- InstanceBeginEditable name="content" --><!-- #BeginLibraryItem "/Library/template_default_post.lbi" --><% 
While ((Repeat3__numRows <> 0) AND (NOT rsArticles.EOF)) 
%>
<% if lastdate <> DoDateTime((rsArticles.Fields.Item("BlogDate").Value), 1, 1033) then%>
<H2 class=date-header><%= DoDateTime((rsArticles.Fields.Item("BlogDate").Value), 1, 1033) %></h2>
<%end if%>
<!-- Begin .post -->
<DIV class=post>
  <h3 class=post-title id="<%=(rsArticles.Fields.Item("BlogID").Value)%>"><%=(rsArticles.Fields.Item("BlogHeadline").Value)%><a name="<%=(rsArticles.Fields.Item("BlogID").Value)%>" id="<%=(rsArticles.Fields.Item("BlogID").Value)%>"></a></h3>
  <DIV class=post-body>
  <%=(rsArticles.Fields.Item("BlogHTML").Value)%>
  </DIV>
  <p class=post-footer>Posted by <a href="<%=(rsArticles.Fields.Item("fldAuthorWebsite").Value)%>" title="Visit <%=(rsArticles.Fields.Item("fldAuthorRealName").Value)%>'s Website"><%=(rsArticles.Fields.Item("fldAuthorRealName").Value)%></a> at <a href="template_permalink.asp?id=<%=(rsArticles.Fields.Item("BlogID").Value)%>" title="Permalink for <%=(rsArticles.Fields.Item("BlogHeadline").Value)%>"><%= DoDateTime((rsArticles.Fields.Item("BlogDate").Value), 3, 1033) %></a> in <a href="template_archives_cat.asp?cat=<%=(rsArticles.Fields.Item("CatID").Value)%>" title="<%=(rsArticles.Fields.Item("CatDesc").Value)%>"><%=(rsArticles.Fields.Item("CatName").Value)%> (<%=(rsArticles.Fields.Item("CategoryCount").Value)%>)</a> | <a href="template_permalink.asp?id=<%=(rsArticles.Fields.Item("BlogID").Value)%>#comments">Comments (<%=(rsArticles.Fields.Item("CommentCount").Value)%>)</a>
  </p>
</DIV><!-- End .post --> 
  <% 
  Repeat3__index=Repeat3__index+1
  Repeat3__numRows=Repeat3__numRows-1
  lastdate = DoDateTime((rsArticles.Fields.Item("BlogDate").Value), 1, 1033)
  rsArticles.MoveNext()
Wend
%><!-- #EndLibraryItem --><!-- InstanceEndEditable -->
</DIV>
<DIV id=sidebar>
<h2 class=sidebar-title>Menu</h2>
<ul>
<li><a href="default.asp">Home</a></li>
<li><a href="template.asp?pagename=about">About</a></li>
<li><a href="gallery_folder/index.asp">Gallery</a></li>
</ul>
<!-- InstanceBeginEditable name="sidebar" --><!-- #BeginLibraryItem "/Library/template_sidebar.lbi" --><h2 class=sidebar-title>Search</h2> 
<form method="post" action="search.asp">
<label for="search" accesskey="4">Search this site:</label><br />
<input id="search" name="search" size="20" /><br />
<input type="submit" value="Search" />
</form>	

<% If Not rsCats.EOF Or Not rsCats.BOF Then %>
<h2 class=sidebar-title>Categories</h2>
<ul>
<% 
While ((Repeat2__numRows <> 0) AND (NOT rsCats.EOF)) 
%>
<li><a href="template_archives_cat.asp?cat=<%=(rsCats.Fields.Item("CatID").Value)%>" title="<%=(rsCats.Fields.Item("CatDesc").Value)%>"><%=((rsCats.Fields.Item("CatName").Value))%> (<%=((rsCats.Fields.Item("CatCount").Value))%>)</a></li>
<% 
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  rsCats.MoveNext() %><%
Wend
%>
<% End If ' end Not rsCats.EOF Or NOT rsCats.BOF %>
</ul>


<% If Not rsArchives.EOF Or Not rsArchives.BOF Then %>
<h2 class=sidebar-title>Archives</h2>
<ul>
<% 
While ((Repeat2__numRows <> 0) AND (NOT rsArchives.EOF)) 
%>
<li><a href="template_archives.asp?chosenYear=<%=(rsArchives.Fields.Item("ArchiveYear").Value)%>&amp;chosenMonth=<%=(rsArchives.Fields.Item("ArchiveMonth").Value)%>"><%=MonthName((rsArchives.Fields.Item("ArchiveMonth").Value))%>&nbsp;<%=(rsArchives.Fields.Item("ArchiveYear").Value)%></a></li>
<% 
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  rsArchives.MoveNext() %>
<%
Wend
%>
<% End If ' end Not rsArchives.EOF Or NOT rsArchives.BOF %>
</ul>

<h2 class=sidebar-title>Recent Entries</h2>
<ul>
  <% 
While ((Repeat4__numRows <> 0) AND (NOT rsRecent.EOF)) 
%>
<li><a href="template_permalink.asp?id=<%=(rsRecent.Fields.Item("BlogID").Value)%>"><%=(rsRecent.Fields.Item("BlogHeadline").Value)%></a></li>
<% 
  Repeat4__index=Repeat4__index+1
  Repeat4__numRows=Repeat4__numRows-1
  rsRecent.MoveNext()
Wend
%>
</ul>

<h2 class=sidebar-title>Meta</h2>
<ul>
	<li><a href="rss.xml" title="Syndicate this site (RSS XML 1.0)"><img src="images/xml.gif" border="0" /></a></li>
</ul>

<!--#include file="inc_sidebar.asp" --><!-- #EndLibraryItem --><!-- InstanceEndEditable -->
</DIV>
</DIV>
<DIV id=footer><P><a href="RSS.xml">Feed (RSS)</a></P>
</DIV>	
</DIV>	 
</BODY>
<!-- InstanceEnd --></HTML>
<%
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
%>

Man Man