%@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")
%>
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")%>
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.
<% End If %>
<%
Set rsMailBag = Nothing
Set rsComments = Nothing
objConnC.Close
objConnE.Close
%>