ClickBlog 2.0

<%@ LANGUAGE = "VBScript" %> <% dim blogdate, theMonth, theYear, count, blog_id blog_id = request.querystring("id") strSQL = "SELECT blog_contents, blog_user, blog_date, last_modified FROM blog_contents WHERE blog_id = " & blog_id & " " set dbRS = conn.Execute(strSQL) %> ClickBlog 2.0

You are viewing the blog entry for: <%= revDate(dbRS(2)) %>

Last Modified on <%= dbRS(3) %> by <%= dbRS(1) %>

<%= dbRS(0) %>

You are viewing the blog entry for: <%= revDate(dbRS(2)) %>

<% dbRS.close set dbRS = nothing %>