<%@LANGUAGE="VBSCRIPT"%> <% Set objConnC = Server.CreateObject("ADODB.Connection") objConnC.Open(cConnection) Set objConnE = Server.CreateObject("ADODB.Connection") objConnE.Open(sConnection) Set rsControls = objConnE.Execute("SELECT * FROM controls") Dim rsPeoplesBlog, postid, rsComments Set postid = Request.QueryString("submissionID") Set rsPeoplesBlog = objConnC.Execute("SELECT * FROM 2006_07_submissions WHERE PigeonHole = 'peoplesblog' AND submissionID = " + postid + "") Set rsComments = objConnC.Execute("SELECT * FROM 2006_07_comments WHERE submissionID = " + postid + " AND commentInclude <> 0 ORDER BY commentID ASC") %> Toffeeweb - The People's Blog -<%=rsPeoplesBlog("Title")%>
The PEOPLE'S BLOg

"><%=rsPeoplesBlog("Title")%>

By <%=rsPeoplesBlog("FirstName")%> <%=rsPeoplesBlog("LastName")%><% If rsPeoplesBlog("GeoLocation") <> "" then %>, <%=rsPeoplesBlog("GeoLocation") %> <% End If %>   Posted <%=rsPeoplesBlog("DayDate")%> at <%=rsPeoplesBlog("Datestamp")%>

<%=rsPeoplesBlog("MyText")%>

back Return to the People's Blog

Reader Comments

<% If rsComments.EOF then %>

There are no responses so far to this article. Be the first to offer a comment using the form below.

<% Else %> <% Do while NOT rsComments.EOF %>
style="color: #0000cc;"<%End If %>><%=rsComments("commentName")%>
Posted <%=rsComments("commentDate")%> at <%=rsComments("commentTime")%>
<%=rsComments("commentText")%> <%If rsComments("commentEdKey") = "twkeyMK" OR rsComments("commentEdKey") = "twkeyLL" OR rsComments("commentEdKey") = "twkeyCK" then%> <% Else %>

">Report abusive content

<% End If %>
<%rsComments.MoveNext%> <%Loop%> <% End If %> <% 'set date to UK format session.lcid=2057 ' Set date and time to GMT Dim strNOW strNOW = DateAdd("h",+5,Now) 'output just the date (GMT) Dim strDAT strDAT = FormatDateTime(strNOW,vbShortDate) 'output just the time (GMT) Dim strTIM strTIM = FormatDateTime(strNOW,vbLongTime) %>

Add Your Comments

<% If rsPeoplesBlog("Comments") <> "1" then %>

Comments are now closed




<% Else %>

Please make sure your comment is relevant to this Blog item.
Otherwise, please make it a New Post


This will not be published on the site.


<p> tags not needed. Use carriage returns.
<% If rsControls("CommentStatus") <> "1" then %> <% Else %> <% End If %>
<% End If %>
<% Set rsPeoplesBlog = Nothing Set rsComments = Nothing objConnC.Close objConnE.Close %>