<%@LANGUAGE="VBSCRIPT"%> <% Set objConnC = Server.CreateObject("ADODB.Connection") objConnC.Open(cConnection) ObjConnC.CursorLocation = 3 Set rsPeoplesBlog = objConnC.Execute("SELECT * ,(SELECT COUNT(*) FROM comments WHERE comments.submissionID = submissions.submissionID AND comments.commentInclude = 1) as CommentCount FROM submissions WHERE PigeonHole = 'peoplesblog' AND Status <> 'hold' ORDER BY submissionID DESC") %> Toffeeweb - The People's Blog

The People's Blog

Now merged with the Mail Bag

People's Blog, Mail Bag, what's the difference? Indeed, we couldn't decide amongst ourselves and many of you confused readers didn't get what we were trying to do either. So, as one sage reader suggested, we've merged the two. The ever-popular Mail Bag retains the same format but now features the Comments facility that we first introduced on the People's Blog.

Yes, we know we've messed around with the site recently but it's quiet so what better time to try a few things to see if they work or not? This should make things a little easier to understand for all concerned — plus we only have one forum to moderate!

We thank you for your patience and understanding for our indecision!

<% Do while NOT rsPeoplesBlog.EOF %>

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

<%=rsPeoplesBlog("MyText")%>
<%=rsPeoplesBlog("FirstName")%> <%=rsPeoplesBlog("LastName")%><% If rsPeoplesBlog("GeoLocation") <> "" then %>, <%=rsPeoplesBlog("GeoLocation") %><% End If %> Posted <%=rsPeoplesBlog("DayDate")%> at <%=rsPeoplesBlog("Datestamp")%> &#comments">Comments (<%=rsPeoplesBlog("CommentCount")%>)

<%rsPeoplesBlog.MoveNext%><%Loop%>

<% Set rsPeoplesBlog = Nothing 'Set rsCount = Nothing objConnC.Close %>