config root man

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

Linux lin122.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_permalink.asp

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/blog.asp" -->
<%
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
%>
<%
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 rs_cat__MMColParam
If Len(Request("id")) < 5 AND IsValidString(Request("id")) = True Then
         rs_cat__MMColParam = HackerSafe_Filter(Request("id"))
Else
	Response.End       
End if

%>
<%
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) as CategoryCount FROM tblBlog, tblCat, tblAuthor WHERE BlogID = " & rs_cat__MMColParam & " AND 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 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 = 20
Repeat3__index = 0
rsArticles_numRows = rsArticles_numRows + Repeat3__numRows
%>
<%
If cstr(Request.Form("txtName"))<>"" Then
If Request.form("remember") ="1" Then
Response.Cookies("ckName") = Request.Form("txtName")
Response.Cookies("ckURL") = Request.Form("txtURL")
Response.Cookies("ckEmail") = Request.Form("txtEmail")
Response.Cookies("ckRemember") = "1"
Response.Cookies("ckName").Expires = Date + 30
Response.Cookies("ckURL").Expires = Date + 30
Response.Cookies("ckEmail").Expires = Date + 30
Response.Cookies("ckRemember").expires = Date + 30
Else
Response.Cookies("ckName") = ""
Response.Cookies("ckURL") = ""
Response.Cookies("ckEmail") = ""
Response.Cookies("ckRemember") = ""
End If
End If
%>

<%
Dim rsComments__MMColParam
rsComments__MMColParam = "0"
%>

<%
Dim rsComments__MMColParam2
rsComments__MMColParam2 = "0"
If (Request.QueryString("id")  <> "") AND Len(Request.QueryString("id")) < 5 Then 
  rsComments__MMColParam2 = rs_cat__MMColParam
End If
%>

<%
Dim rsComments
Dim rsComments_numRows

Set rsComments = Server.CreateObject("ADODB.Recordset")
rsComments.ActiveConnection = MM_blog_STRING
rsComments.Source = "SELECT commentID, blogID, commentDate, commentName, commentEmail, commentURL, commentHTML, commentInclude FROM tblComment  WHERE commentInclude <> " + Replace(rsComments__MMColParam, "'", "''") + " AND blogID = " + Replace(rsComments__MMColParam2, "'", "''") + "  ORDER BY commentID ASC"
rsComments.CursorType = 0
rsComments.CursorLocation = 2
rsComments.LockType = 1
rsComments.Open()

rsComments_numRows = 0
%>
<%
Dim Repeat5__numRows
Dim Repeat5__index

Repeat5__numRows = -1
Repeat5__index = 0
rsComments_numRows = rsComments_numRows + Repeat5__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 MakeHyperlink(strSource) 

if (strSource <> "") or Not IsNull(strSource) then
splitSource = Split(strSource," ")
linkResult = Filter(splitSource, "www", True)
emailResult = Filter(splitSource, "@", True)

For i = 0 to Ubound (splitSource)
MakeHyperLink = MakeHyperlink & splitSource(i) & " "
Next

For i = 0 to Ubound (linkResult)
If Right(linkResult(i),1) = "," OR Right(linkResult(i),1) = "." then
linkResult(i)=left(linkResult(i),len(linkResult(i))-1)
End If
If Left(linkResult(i),7) = "http://" OR Left(linkResult(i),7) = "HTTP://" then
linkWrapTag = "<a rel='nofollow' href=" & linkResult(i) & ">" & linkResult(i) & "</a>"
Else
linkWrapTag = "<a rel='nofollow' href=http://"& linkResult(i) & ">" & linkResult(i) & "</a>"
End If
MakeHyperLink = Replace(MakeHyperLink, linkResult(i), linkWrapTag)
Next

For i = 0 to Ubound (emailResult)
If Right(emailResult(i),1) = "," OR Right(emailResult(i),1) = "." then
emailResult(i)=left(emailResult(i),len(emailResult(i))-1)
End If
emailWrapTag = "<a href=mailto:" & emailResult(i) & ">" & emailResult(i) & "</a>"
MakeHyperLink = Replace(MakeHyperLink, emailResult(i), emailWrapTag)
Next

MakeHyperLink = Replace(MakeHyperLink,Chr(13),"<br>")

Else
MakeHyperlink = strSource
End If

End Function
%>	
<%
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,"<","<")
  strOutput = replace(strOutput,"&quot;","")
  strOutput = replace(strOutput,"""","")
  strOutput = replace(strOutput,VbCrLf,"")
  strOutput = replace(strOutput,"&nbsp;","")
  CI_StripHTML = strOutput	
End Function														
</script>
<%
theBlogHTML = rsArticles.Fields.Item("BlogHTML").Value
%>
<%=(rsLayout.Fields.Item("layout1").Value)%>
<title><%=(rsArticles.Fields.Item("BlogHeadline").Value)%></title>
<meta name="Description" content="<%=(CropSentence(CI_StripHTML(theBlogHTML), 250, "..."))%>" />
<link rel="alternate" type="application/rss+xml" href="rss.xml" title="RSS feed for <%=(rsBlogSite.Fields.Item("blogTitle").Value)%>">
<script language="JavaScript" type="text/javascript">
<!--
function flevPopupLink(){// v1.2
// Copyright 2002, Marja Ribbers (FlevOOware.nl)
var v1=arguments,v2=window.open(v1[0],v1[1],v1[2]), v3=(v1.length>3)?v1[3]:false;if (v3){v2.focus();}document.MM_returnValue=false;}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function YY_checkform() { //v4.66
//copyright (c)1998,2002 Yaromat.com
  var args = YY_checkform.arguments; var myDot=true; var myV=''; var myErr='';var addErr=false;var myReq;
  for (var i=1; i<args.length;i=i+4){
    if (args[i+1].charAt(0)=='#'){myReq=true; args[i+1]=args[i+1].substring(1);}else{myReq=false}
    var myObj = MM_findObj(args[i].replace(/\[\d+\]/ig,""));
    myV=myObj.value;
    if (myObj.type=='text'||myObj.type=='password'||myObj.type=='hidden'){
      if (myReq&&myObj.value.length==0){addErr=true}
      if ((myV.length>0)&&(args[i+2]==1)){ //fromto
        var myMa=args[i+1].split('_');if(isNaN(myV)||myV<myMa[0]/1||myV > myMa[1]/1){addErr=true}
      } else if ((myV.length>0)&&(args[i+2]==2)){
          var rx=new RegExp("^[\\w\.=-]+@[\\w\\.-]+\\.[a-z]{2,4}$");if(!rx.test(myV))addErr=true;
      } else if ((myV.length>0)&&(args[i+2]==3)){ // date
        var myMa=args[i+1].split("#"); var myAt=myV.match(myMa[0]);
        if(myAt){
          var myD=(myAt[myMa[1]])?myAt[myMa[1]]:1; var myM=myAt[myMa[2]]-1; var myY=myAt[myMa[3]];
          var myDate=new Date(myY,myM,myD);
          if(myDate.getFullYear()!=myY||myDate.getDate()!=myD||myDate.getMonth()!=myM){addErr=true};
        }else{addErr=true}
      } else if ((myV.length>0)&&(args[i+2]==4)){ // time
        var myMa=args[i+1].split("#"); var myAt=myV.match(myMa[0]);if(!myAt){addErr=true}
      } else if (myV.length>0&&args[i+2]==5){ // check this 2
            var myObj1 = MM_findObj(args[i+1].replace(/\[\d+\]/ig,""));
            if(myObj1.length)myObj1=myObj1[args[i+1].replace(/(.*\[)|(\].*)/ig,"")];
            if(!myObj1.checked){addErr=true}
      } else if (myV.length>0&&args[i+2]==6){ // the same
            var myObj1 = MM_findObj(args[i+1]);
            if(myV!=myObj1.value){addErr=true}
      }
    } else
    if (!myObj.type&&myObj.length>0&&myObj[0].type=='radio'){
          var myTest = args[i].match(/(.*)\[(\d+)\].*/i);
          var myObj1=(myObj.length>1)?myObj[myTest[2]]:myObj;
      if (args[i+2]==1&&myObj1&&myObj1.checked&&MM_findObj(args[i+1]).value.length/1==0){addErr=true}
      if (args[i+2]==2){
        var myDot=false;
        for(var j=0;j<myObj.length;j++){myDot=myDot||myObj[j].checked}
        if(!myDot){myErr+='* ' +args[i+3]+'\n'}
      }
    } else if (myObj.type=='checkbox'){
      if(args[i+2]==1&&myObj.checked==false){addErr=true}
      if(args[i+2]==2&&myObj.checked&&MM_findObj(args[i+1]).value.length/1==0){addErr=true}
    } else if (myObj.type=='select-one'||myObj.type=='select-multiple'){
      if(args[i+2]==1&&myObj.selectedIndex/1==0){addErr=true}
    }else if (myObj.type=='textarea'){
      if(myV.length<args[i+1]){addErr=true}
    }
    if (addErr){myErr+='* '+args[i+3]+'\n'; addErr=false}
  }
  if (myErr!=''){alert('The required information is incomplete or contains errors:\t\t\t\t\t\n\n'+myErr)}
  document.MM_returnValue = (myErr=='');
}
//-->
</script>
<script language = "JavaScript" type="text/javascript">
var bikky = document.cookie;

  function getCookie(name) { // use: getCookie("name");
    var index = bikky.indexOf(name + "=");
    if (index == -1) return null;
    index = bikky.indexOf("=", index) + 1;
    var endstr = bikky.indexOf(";", index);
    if (endstr == -1) endstr = bikky.length;
    return unescape(bikky.substring(index, endstr));
  }

</script>
<%=(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>
	    <!-- 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>     
        </ul>
      </div>
	</div>
<!-- end of new bit -->

<%=(rsLayout.Fields.Item("layout3").Value)%>
<h2 class="date-header"><%= DoDateTime((rsArticles.Fields.Item("BlogDate").Value), 1, 1033) %></h2>
<div class="post"> <h3 class="post-title" id="<%=(rsArticles.Fields.Item("BlogID").Value)%>"><%=(rsArticles.Fields.Item("BlogHeadline").Value)%><% if Session("MM_Username") <> "" Then %> | <a href="update_blog.asp?passID=<%=(rsArticles.Fields.Item("BlogID").Value)%>">Edit this post</a><% end if %></h3><a name="<%=(rsArticles.Fields.Item("BlogID").Value)%>" id="<%=(rsArticles.Fields.Item("BlogID").Value)%>"></a>
  <div class="post-body">
  <%=theBlogHTML%>
  </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>
<h2>Comments</h2><a name="comments" id="comments"></a>
<% 
While ((Repeat1__numRows <> 0) AND (NOT rsComments.EOF)) 
CommentCount = CommentCount + 1
%>
<% If CommentCount MOD 2 = 0 Then %><div class="commentalt"><% end if %>
<% If  Len(rsComments.Fields.Item("commentURL").Value) > 12 Then %>
<h4><%=CommentCount%>. <a href="<%=(rsComments.Fields.Item("commentURL").Value)%>" rel="nofollow" title="Visit <%=(rsComments.Fields.Item("commentName").Value)%>'s Website" target="_blank"><%=(rsComments.Fields.Item("commentName").Value)%></a> said...<a name="#<%=(rsComments.Fields.Item("commentID").Value)%>" id="<%=(rsComments.Fields.Item("commentID").Value)%>"></a></h4>
<% Else %>
<h4><%=CommentCount%>. <%=(rsComments.Fields.Item("commentName").Value)%>  said...<a name="#<%=(rsComments.Fields.Item("commentID").Value)%>" id="<%=(rsComments.Fields.Item("commentID").Value)%>"></a></h4>
<% End If %>
<p><%=MakeHyperlink(rsComments.Fields.Item("commentHTML").Value)%></p>
<p class="post-footer"><a href="#<%=(rsComments.Fields.Item("commentID").Value)%>" title="Comment Permalink"><%=(rsComments.Fields.Item("commentDate").Value)%></a></p>
<% If CommentCount MOD 2 = 0 Then %></div><% end if %>
<% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsComments.MoveNext()
Wend
%>
        <% if (rsArticles.Fields.Item("BlogCommentInclude").Value) = 1 then %>
<form action="comments.asp" method="post" name="form1" id="form1">

<table width="90%"  border="0" cellspacing="2" cellpadding="3">
<tr>
<td align="right" valign="top">Name</td>
<td align="left" valign="middle">
<input name="txtName" type="text" id="txtName" value="" /></td>
</tr>
<tr>
<td align="right" valign="top">URL</td>
<td align="left" valign="middle">
<input name="txtURL" type="text" id="txtURL" value="http://" /></td>
</tr>
<tr>
<td align="right" valign="top">Email</td>
<td align="left" valign="middle">
<input name="txtEmail" type="text" id="txtEmail" value="" />
<br />
Email address is not published</td>
</tr>
<tr>
<td align="right" valign="top">Remember Me</td>
<td align="left" valign="middle"><input name="remember" type="checkbox" id="remember" value="1" checked="checked" /></td>
</tr>
<tr>
<td align="right" valign="top">Comments</td>
<td align="left" valign="middle"><textarea name="textarea" rows="5"></textarea></td>
</tr>
<tr>
<td valign="top">
<input name="hiddenField" type="hidden" value="<%= Request.Querystring("id") %>" /></td>
<td align="left" valign="middle">
<script type="text/javascript">
function reloadCAPTCHA() {
document.getElementById('CAPTCHA').src='aspcaptcha.asp?'+Date();
}
</script>

<p><img id="CAPTCHA" src='aspcaptcha.asp'
alt='CAPTCHA' width='86' height='21' /></p>
This is to prove you aren't a robot comment spammer.  Type  the numbers above into the textbox below. <a href="javascript:reloadCAPTCHA();">Reload</a> if they are too hard to make out <br />
<br />
  <input name='strCAPTCHA' type='text'
id='strCAPTCHA' maxlength='8' />
<input name="Submit" type="submit" onClick="YY_checkform('form1','txtName','#q','0','Name is required','textarea','1','1','Comment Required');return document.MM_returnValue" value="Comment" /></td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="form1" />
<script language="JavaScript" type="text/javascript">
<!-- Hide from older browsers

  var txtName = getCookie ("txtName");
  if (txtName == null) txtName = "";
  document.form1.txtName.value = txtName;
    var txtURL = getCookie ("txtURL");
  if (txtURL == null) txtURL = "";
  document.form1.txtURL.value = txtURL;
    var txtEmail = getCookie ("txtEmail");
  if (txtEmail == null) txtEmail = "";
  document.form1.txtEmail.value = txtEmail;

// Stop hiding -->
</script>
</form>
<% else %>
<p>Commenting has been turned off for this entry.</p>
<% end if %>
</div>
<%=(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
%>
<%
rsLayout.Close()
Set rsLayout = Nothing
%>

Man Man