config root man

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

Linux lin108.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/default.asp

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/blog.asp" -->
<html>
<script>
<!--

/*
Break-out-of-frames script
By JavaScript Kit (http://javascriptkit.com)
Over 400+ free scripts here!
Above notice MUST stay entact for use
*/

if (window!= top)
top.location.href=location.href
// -->
</script>
<% 'new bit
'modified by Bernie to include sig picture after each post
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Domains\makeitez.co.uk\db\blog.mdb"
Set rsShopper = Server.CreateObject("ADODB.Recordset")
strSQL = ("SELECT * FROM tblBlog order by BlogID ASC")
rsShopper.CursorType = 2
rsShopper.LockType = 3
rsShopper.Open strSQL, adoCon
	if not rsShopper.eof then
'Add a new record to the recordset
rsShopper.movelast
dim lastpost, addonbit, needtoadd
needtoadd=false
addonbit = "postsig.gif"
lastpost = rsShopper.Fields("BlogHTML")
if instr(lastpost,addonbit) = 0 then
needtoadd=true
end if
	end if
 	'Reset server objects
rsShopper.Close
Set rsShopper = Nothing
Set adoCon = Nothing  
  
if needtoadd=true then  
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Domains\makeitez.co.uk\db\blog.mdb"
Set rsShopper = Server.CreateObject("ADODB.Recordset")
strSQL = ("SELECT * FROM tblBlog order by BlogID ASC")
rsShopper.CursorType = 2
rsShopper.LockType = 3
rsShopper.Open strSQL, adoCon
	
'Add a new record to the recordset
rsShopper.movelast
dim thispost 
thispost = rsShopper.Fields("BlogHTML") & "<p align='center'><img src='/images/postsig.gif'/></p>"
rsShopper.Fields("BlogHTML") = thispost
rsShopper.Update 	

 	'Reset server objects
rsShopper.Close
Set rsShopper = Nothing
Set adoCon = Nothing  
end if
%>

<%
Function IsValidString(sValidate)
    Dim sInvalidChars
    Dim bTemp
    Dim i 
    ' Disallowed characters
    sInvalidChars = "!#$%^&*()=+{}[]|\\;?><'"
    for i = 1 To Len(sInvalidChars)
        if InStr(sValidate, Mid(sInvalidChars, i, 1)) > 0 then bTemp = True
        if bTemp then Exit For
    next
    for i = 1 to Len(sValidate)
        if Asc(Mid(sValidate, i, 1)) = 160 then bTemp = True
        if bTemp then Exit For
    next

    if not bTemp then
        bTemp = InStr(sValidate, "..") > 0
    end if
    if not bTemp then
        bTemp = InStr(sValidate, "  ") > 0
    end if
    if not bTemp then
        bTemp = (len(sValidate) <> len(Trim(sValidate)))
    end if 'Addition for leading and trailing spaces
    if not bTemp then
        bTemp = len(sValidate) < 1
    end if 'Empty    

    ' if any of the above are true, invalid string
    IsValidString = Not bTemp
End Function

function HackerSafe_Filter(cleanvar)
	        '  Encode Ampersand
	 cleanvar = replace(cleanvar,"&", "&")
	        '  Encode Single Quote
	 cleanvar = replace(cleanvar,"'", "'")
	        '  Encode Double Quote
	 'cleanvar = replace(cleanvar,""""", """)
	        '  Encode Less Than
	 cleanvar = replace(cleanvar,">", ">")
	        '  Encode Greater Than
	 cleanvar = replace(cleanvar,"<", "<")
	        '  Encode Close Bracket
	 cleanvar = replace(cleanvar,")", ")")
	        '  Encode Open Bracket
	 cleanvar = replace(cleanvar,"(", "(")
	        '  Encode Close Square Bracket
	 cleanvar = replace(cleanvar,"]", "]")
	        '  Encode Open Square Bracket
	 cleanvar = replace(cleanvar,"[", "[")
	        '  Encode Semicolon
	 cleanvar = replace(cleanvar,";", ";")
	        '  Encode Colon
	 cleanvar = replace(cleanvar,":", ":")
	        '  Encode Forward Slash
	 cleanvar = replace(cleanvar,"/", "/")
	        '  Encode Left Brace
	 cleanvar = replace(cleanvar,"}", "}")
	        '  Encode Right Brace
	 cleanvar = replace(cleanvar,"{", "{")
	        '  Encode Exclamation
	 cleanvar = replace(cleanvar,"!", "!")
	        '  Encode Double Dash
	 cleanvar = replace(cleanvar,"--", "--")
	        '  Encode Equal Sign
	 cleanvar = replace(cleanvar,"=", "=")
	        '  Encode Underscore
	 cleanvar = replace(cleanvar,"_", "_")
	 HackerSafe_Filter = cleanvar
end function

Dim rsBlogSite
Dim rsBlogSite_numRows

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

rsBlogSite_numRows = 0
%>
<%
if request("layout") <> "" and len(request("layout"))  < 5 then
	If IsValidString(request("layout")) = True Then
		layout = HackerSafe_Filter(request("layout"))
	Else
		Response.End	
	End If
else
	layout = (rsBlogSite.Fields.Item("blogLayout").Value)
end if
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 = " & layout
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 Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rsBlogSite_numRows = rsBlogSite_numRows + Repeat1__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>


<%
FUNCTION CropSentence(strText, intLength, strTrial) 
  Dim wsCount 
  Dim intTempSize 
  Dim intTotalLen 
  Dim strTemp 
  
  wsCount = 0 
  intTempSize = 0 
  intTotalLen = 0 
  intLength = intLength - Len(strTrial) 
  strTemp = "" 
    
  IF Len(strText) > intLength THEN 
    arrTemp = Split(strText, " ") 
    FOR EACH x IN arrTemp 
      IF Len(strTemp) <= intLength THEN 
        strTemp = strTemp & x & " " 
      END IF 
    NEXT 
      CropSentence = Left(strTemp, Len(strTemp) - 1) & strTrial 
  ELSE 
    CropSentence = strText 
  END IF 
END FUNCTION
%>								
<script language="VBScript" type="text/vbscript" runat="server">										
function CI_StripHTML(strtext)				
 on error resume next	
 arysplit=split(strtext,"<")	
  if len(arysplit(0))>0 then j=1 else j=0	
  for i=j to ubound(arysplit)	
     if instr(arysplit(i),">") then	
       arysplit(i)=mid(arysplit(i),instr(arysplit(i),">")+1)	
     else	
       arysplit(i)="<" & arysplit(i)	
     end if	
  next	
  strOutput = join(arysplit, "")	
  strOutput = mid(strOutput, 2-j)	
  strOutput = replace(strOutput,">",">")	
  strOutput = replace(strOutput,"<","<")	
  CI_StripHTML = strOutput	
End Function														
</script>
<%=(rsLayout.Fields.Item("layout1").Value)%>
<title>Make IT easy - Blog</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)%>



<!--new bit -->
<!-- header starts here -->
	<div id="header">
	  <div id="header-content">
        <h1 id="logo">make IT easy</h1>
	    <h2 id="slogan"> business computing made easy</h2>
	    <div class="searchform">
          <form action="#" class="button">
            <p>&nbsp;</p>
          </form>
        </div>
	    <!-- Menu Tabs -->
        <ul>
          <li><a href="index.asp">Home</a></li>
          <li><a href="services.asp">Services</a></li>
          <li><a href="contact.asp">Contact</a></li>
          <li><a href="default.asp" id="current">Blog</a></li>
          <li><a href="uploads/vids/vids.asp">Videos</a></li>    
          <li>

           
           
           
           
           
           
           
<!-- AddThis Button BEGIN -->
<script type="text/javascript">var addthis_pub  = "thsman";</script>
<a href="http://www.addthis.com/bookmark.php" onmouseover="return addthis_open(this, '', '[URL]', '[TITLE]')" onmouseout="addthis_close()" onclick="return addthis_sendto()"><img src="http://s7.addthis.com/button1-share.gif" width="125" height="16" border="0" alt="" /></a><script type="text/javascript" src="http://s7.addthis.com/js/152/addthis_widget.js"></script>
<!-- AddThis Button END -->
</li>  
        </ul>
      </div>
	</div>
<!-- end of new bit -->


<!-- the following was replaced by the above 
<h1 align="center" id="blog-title"><img src="images/mainlogo.gif" width="621" height="101" border="0" usemap="#Map" />
<map name="Map" id="Map">
<area shape="circle" coords="557,44,8" href="main.asp" />
<area shape="circle" coords="557,44,4" href="main.asp" />
</map></h1>
<!-- end of replaced bit -->
<!--<link rel="stylesheet" href="images/Ablaze.css" type="text/css" />-->

<%=(rsLayout.Fields.Item("layout3").Value)%>


<% 
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">
  <% if (rsArticles.Fields.Item("BlogReadMore").Value) = 1 Then %>
  <p><%=CropSentence(CI_StripHTML(rsArticles.Fields.Item("BlogHTML").Value), 500, "...")%></p>
  <h4 align="center"><a href="template_permalink.asp?id=<%=(rsArticles.Fields.Item("BlogID").Value)%>#<%=(rsArticles.Fields.Item("BlogID").Value)%>" title="Read More <%=(rsArticles.Fields.Item("BlogHeadline").Value)%>">Read More "<%=(rsArticles.Fields.Item("BlogHeadline").Value)%>"</a></h4>
  <% Else %>
  <%=(rsArticles.Fields.Item("BlogHTML").Value)%>
  <% End If %>
  </div>
  <p class="post-footer">Posted by <a href="template_author.asp?id=<%=(rsArticles.Fields.Item("fldAuthorID").Value)%>" title="<%=(rsArticles.Fields.Item("fldAuthorRealName").Value)%>'s Profile"><%=(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
%>
<%=(rsLayout.Fields.Item("layout4").Value)%>
<!--#include file="inc_sidebar.asp" -->



<%=(rsLayout.Fields.Item("layout5").Value)%>
<!-- footer starts here -->	
	<div id="footer"><div id="footer-content">
	
		<div class="col float-left">
			<h2>&nbsp;</h2>
	  </div>
		
		<div class="col float-left">
			<h2>&nbsp;</h2>
	  </div>		
	
		<div class="col2 float-right">
			<p>
			&copy; copyright 2008 www.makeitez.co.uk  All <a href="http://www.imageconjurer.com">original photography by East Grinstead Sussex photographer Bernie Greene</a><br />
			</p>
		
	  </div>
	
	</div></div>
	<!-- footer ends here -->

</body>
</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
%>
  <%
rsLayout.Close()
Set rsLayout = Nothing
%>


Man Man