" & vbCrLf)
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
'If RSS Feed is enabled then have an alt link to the XML file for supporting browsers
'Only display if the last post was less than xx weeks ago, to reduce the amount of consumed bandwidth
If blnRSS AND (isNull(strForumPassword) OR strForumPassword = "") AND dtmLastEntryDate > DateAdd("ww", -intRSSLinkDisplayWeeks, now()) Then Response.Write(vbCrLf & "")
'Display javascript for form checking
If blnActiveMember AND blnForumLocked = false AND blnReply AND (intRecordPositionPageNum = intTotalRecordsPages) Then
%>

")
'If the topic is locked then have a locked icon
ElseIf blnTopicLocked Then
Response.Write ("")
End If
'If a calendar event then display so
If isDate(dtmEventDate) Then
Response.Write(strSubject & " - " & strTxtEventDate & ": " & stdDateFormat(dtmEventDate, False))
'If over multiple dates
If isDate(dtmEventDateEnd) Then Response.Write(" - " & stdDateFormat(dtmEventDateEnd, False))
Else
Response.Write(strSubject)
End If
%>

" alt="" title="" />
"" Then Response.Write("")
'If there is a title for this member then display it
If strMemberTitle <> "" Then Response.Write(vbCrLf & " " & strMemberTitle)
'If not a guest post then display some details
If lngUserID <> 2 Then
'Show the joined date
Response.Write(vbCrLf & "

")
End If
'Display the report post feature if email is enabled.
If (blnEmail AND intGroupID <> 2 AND lngUserID <> lngLoggedInUserID AND blnActiveMember) AND (blnAdmin = false AND blnModerator = false) Then Response.Write(vbCrLf & "

")
End If
'Only let a normal user delete there post if someone hasn't posted a reply
If (intTotalRecords = intThreadNo) OR (blnAdmin OR blnModerator) Then
'Only let the user delete the post if they have delete rights
If blnDelete OR blnAdmin Then
Response.Write(vbCrLf & "

" & _
formatSignature(strAuthorSignature))
End If
'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
If intCurrentRecord = 0 AND (blnACode OR strMyGoogleAdSenseID <> "pub-9026955576675812") Then
Response.Write(vbCrLf & "

" & _
vbCrLf & "

" & _
vbCrLf & "

" & _
vbCrLf & "

")
If blnACode Then
Response.Write(strSponsor2)
ElseIf strMyGoogleAdSenseID <> "pub-9026955576675812" Then
Response.Write(strAdSenseCodePost)
End If
End If
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
%>

")
'Display an alert message if the user is watching this topic for email notification
If Request.QueryString("EN") = "TS" Then
Response.Write("")
End If
'Display an alert message if the user is not watching this topic for email notification
If Request.QueryString("EN") = "TU" Then
Response.Write("")
End If
'Display an alert message if the user is posting in a moderated forum
If Request.QueryString("MF") = "Y" Then
Response.Write("")
End If
%>