<%@ LANGUAGE = "VBScript" %> <% dim count strSQL = "SELECT monthview_cols FROM blog_settings" set dbRS = conn.execute(strSQL) dim monthview_cols monthview_cols = dbRS(0) dbRS.close set dbRS = nothing dim blogmonth, blogyear blogmonth = request.querystring("month") blogyear = request.querystring("year") if request.querystring("action") = "delete" then strSQL = "DELETE FROM blog_contents WHERE blog_date = '" & IsoDate(request.querystring("date")) &"'" _ & "AND blog_user = '" & request.querystring("user") &"' " conn.Execute(strSQL) end if Function stripHTML(strHTML) Dim objRegExp, strOutput Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "<(.|\n)+?>" strOutput = objRegExp.Replace(strHTML, "") strOutput = Replace(strOutput, "<", "<") strOutput = Replace(strOutput, ">", ">") stripHTML = strOutput Set objRegExp = Nothing End Function %> ClickBlog <% strSQL = "SELECT blog_date, blog_contents, blog_user, last_modified from blog_contents WHERE blog_date LIKE '" & blogyear &"-" & blogmonth &"-%' ORDER BY blog_date" set dbRS = conn.Execute(strSQL) %>
 Today's Blog   You are viewing the blog entries for: <%= MonthName(blogmonth, True) %> <%= blogyear%>
<% if not dbRS.EOF then %> <% dim rows rows = 0 Do Until dbRS.EOF count = count +1 %> <% dim r r = rows Mod monthview_cols if r = (monthview_cols - 1) then response.write("") end if q = q +1 rows = rows +1 dbRS.MoveNext loop %>
';top.window.displayBlog.location='displayBlog.asp?date=<%= dbRS("blog_date") %>'" style="FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=#8BACDB,endColorStr=#DEE6EE);cursor:hand;"> <%= RevDate(dbRS("blog_date")) %> 
<% If ((session("admin") = "yes") or (session("username") = dbRS("blog_user"))) then %> <% END IF %>
<%= left(stripHTML(dbRS(1)),30) %>
Modified: <%= dbRS("last_modified") %>
Created by: <%= dbRS("blog_user") %>
','<%= dbRS("blog_user") %>')"> Delete Blog Entry
<% else %>

No Entries for <%= MonthName(blogmonth, True) %> <%= blogyear %>

<% end if %>
<% dbRS.close set dbRS = nothing %>