<%@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 rsMailBag, postid, rsComments Set postid = Request.QueryString("submissionID") Set rsMailBag = objConnC.Execute("SELECT * FROM 2006_07_submissions WHERE PigeonHole = 'mailbag' AND submissionID = " + postid + "") Set rsComments = objConnC.Execute("SELECT * FROM 2006_07_comments WHERE submissionID = " + postid + " AND commentInclude <> 0 ORDER BY commentID ASC") %> Toffeeweb - The Mail Bag -<%=rsMailBag("Title")%>
The Mail Bag

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

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

back Return to the Mail Bag

Comments

<% If rsMailBag("EdNoteFlag") = "1" then %>
<%=rsMailBag("EdNoteName")%>
<%=rsMailBag("EdNote")%>
<% Else %> <% End If %> <% 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")%> <%If rsComments("commentEdKey") = "twkeyMK" OR rsComments("commentEdKey") = "twkeyLL" OR rsComments("commentEdKey") = "twkeyCK" then%> <% Else %>

">Report abuse

<% End If %>
<%=rsComments("commentText")%>
<%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 rsMailBag("Comments") <> "1" then %>

Comments are now closed




<% Else %> <% Dim UserIPAddress UserIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If UserIPAddress = "" Then UserIPAddress = Request.ServerVariables("REMOTE_ADDR") End If %>

Please make sure your comment is relevant to this item.
Otherwise, please make it a New Post   And remember, Nil Satis Nisi Optimum.... that applies to your comment.

Firstname & Lastname — no nicknames.
This will not be published on the site.


<p> tags not needed. For new paragraphs, press the Enter/Return key twice.
<% If rsControls("CommentStatus") <> "1" then %> <% Else %> <% End If %>
Please input the anti-spam code  <%=RandomCode %>  in the box below
<% End If %>
<% Set rsMailBag = Nothing Set rsComments = Nothing objConnC.Close objConnE.Close %>