<%
'#################################################################################
'## Copyright (C) 2000-01 Michael Anderson and Pierre Gorissen
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS For A PARTICULAR PURPOSE. See the
'## GNU General Public License For more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; If not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
'##
'## Support can be obtained from support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## reinhold@bigfoot.com
'##
'## or
'##
'## Snitz Communications
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################
'---------- Marcelg: Weblog
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_func_member.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp"-->
<%
If NOT Request.QueryString("log_id") = "" Then
Set my_Conn = Server.CreateObject("ADODB.Connection")
Set objRec = Server.CreateObject("ADODB.RecordSet")
Set objDict = CreateObject("Scripting.Dictionary")
my_Conn.Open strConnString
'## Forum_SQL
strsql = "SELECT FORUM_ID FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & cLng(Request.QueryString("log_id"))
Set objRec = my_conn.Execute(strSQL)
If not objRec.EOF Then
If (objRec("FORUM_ID")) - strWeblogsForum <> 0 Then
Response.Redirect "topic.asp?topic_id=" & cLng(Request.QueryString("log_id"))
End If
objRec.Close
End If
Set objRec=Nothing
End If
%>
<!--#INCLUDE FILE="inc_moderation.asp" -->
<!--#INCLUDE FILE="inc_subscription.asp" -->
<%
Set my_Conn = Server.CreateObject("ADODB.Connection")
Set objRec = Server.CreateObject("ADODB.RecordSet")
Set objDict = CreateObject("Scripting.Dictionary")
my_Conn.Open strConnString
strIcons = 1
'show signatures (1 = yes, 0 = no)
ShowSigs = 0
If mLev = 4 Then
AdminAllowed = 1
ForumChkSkipAllowed = 1
ElseIf mLev = 3 Then
If chkForumModerator(strWeblogsForum, chkString(strDBNTUserName,"decode")) = "1" Then
AdminAllowed = 1
ForumChkSkipAllowed = 1
Else
If lcase(strNoCookies) = "1" Then
AdminAllowed = 1
ForumChkSkipAllowed = 0
Else
AdminAllowed = 0
ForumChkSkipAllowed = 0
End If
End If
ElseIf lcase(strNoCookies) = "1" Then
AdminAllowed = 1
ForumChkSkipAllowed = 0
Else
AdminAllowed = 0
ForumChkSkipAllowed = 0
End If
Set objDict = Nothing
'If Request.QueryString("member") = "" Then
'thefilter = " TOP 50 "
'End If
'## Forum_SQL
strSQL = "SELECT " & thefilter & strTablePrefix & "TOPICS.TOPIC_ID, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_SUBJECT, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_VIEW_COUNT, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_MESSAGE, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_AUTHOR, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_REPLIES, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_DATE, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_STATUS, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_MSGICON, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_LAST_POST, "
strSQL = strSQL & strTablePrefix & "TOPICS.CAT_ID, "
strSQL = strSQL & strMemberTablePrefix & "MEMBERS.MEMBER_ID, "
strSQL = strSQL & strMemberTablePrefix & "MEMBERS.M_NAME, "
strSQL = strSQL & strMemberTablePrefix & "MEMBERS.M_TITLE, "
strSQL = strSQL & strMemberTablePrefix & "MEMBERS.M_LEVEL, "
If strDisableAvatar <> "1" Then
strSQL = strSQL & strMemberTablePrefix & "MEMBERS.M_AVATAR_URL, "
End If
strSQL = strSQL & strMemberTablePrefix & "MEMBERS.M_POSTS "
strSQL = strSQL & "FROM " & strTablePrefix & "TOPICS, "
strSQL = strSQL & strTablePrefix & "FORUM, "
strSQL = strSQL & strMemberTablePrefix & "MEMBERS "
strSQL = strSQL & "WHERE "
If Request.QueryString("member") <> "" Then
strSQL = strSQL & strTablePrefix & "TOPICS.T_AUTHOR = " & cLng(Request.QueryString("member")) & " AND "
End If
If Request.QueryString("log_id") <> "" Then
strSQL = strSQL & strTablePrefix & "TOPICS.TOPIC_ID = " & cLng(Request.Querystring("log_id")) & " AND "
End If
strSQL = strSQL & strTablePrefix & "TOPICS.FORUM_ID = " & strTablePrefix & "FORUM.FORUM_ID AND "
strSQL = strSQL & strTablePrefix & "FORUM.FORUM_ID = " & strWeblogsForum & " AND "
strSQL = strSQL & strTablePrefix & "TOPICS.T_AUTHOR = " & strMemberTablePrefix & "MEMBERS.MEMBER_ID AND " & strTablePrefix & "TOPICS.T_STATUS < 2 AND " & strTablePrefix & "TOPICS.T_STATUS > 0 "
strSQL = strSQL & "ORDER BY " & strTablePrefix & "TOPICS.TOPIC_ID DESC;"
set objRec = my_Conn.Execute(strSql)
DTString = " weblogs "
If NOT objRec.EOF Then
If Request.QueryString("member") <> "" or Request.QueryString("log_id") <> "" Then
DTString = " <a href=""log.asp?member=" & objRec("MEMBER_ID") & """><font color=""#ffffff"">" & objRec("M_NAME") & "'s Blog</font></a>"
End If
Else
DTString = " Nothing found !"
End If
If Request.QueryString("member") <> "" AND Request.QueryString("log_id") = "" Then
Response.Write "<table align=""center"" colspan=""2"" cellspacing=""1"" cellpadding=""5"" border=""0"" bgcolor=""" & strTableBorderColor & """ width=""100%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strHeadCellColor & """><a href=""post.asp?method=Topic&Forum_ID=" & strWeblogsForum & """>" & "<font color=""#FFFFFF"" & strDefaultFontColor & """" face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><img alt=""Add New Blog Entry"" src=""images\icon_new_blog_entry.png"" align=""right"" valign=""middle"" border=""0"" ></a><font color=""#FFFFFF"" & strHeadFontColor & """" face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & strSidebarDelimiter & " " & DTString & " " & strSidebarDelimiter & "</b></font> <a href=""weblogs.asp""><font color=""#FFFFFF"" & strDefaultFontColor & """" face=""" & strDefaultFontFace & """ size=""3"" & strFooterFontSize & """"><center>All Weblogs</center><b>" & strSidebarDelimiter & " " & strSidebarDelimiter & "</b></a> " & vbNewLine & _
" </tr></table>" & vbNewLine
%>
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<%
Else
Response.Write "<table align=""center"" colspan=""2"" cellspacing=""1"" cellpadding=""5"" border=""0"" bgcolor=""" & strTableBorderColor & """ width=""100%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strHeadCellColor & """><a href=""post.asp?method=Topic&Forum_ID=" & strWeblogsForum & """>" & "<font color=""#FFFFFF"" & strDefaultFontColor & """" face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><img alt=""Add New Blog Entry"" src=""images\icon_new_blog_entry.png"" align=""right"" valign=""middle"" border=""0"" ></a><font color=""#FFFFFF"" & strHeadFontColor & """" face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & strSidebarDelimiter & " " & DTString & " " & strSidebarDelimiter & "</b></font> <a href=""weblogs.asp"">" & "<font color=""#FFFFFF"" & strDefaultFontColor & """" face=""arial"" & strDefaultFontFace & """" size=""5"" & strFooterFontSize & """" align=""center"" valign=""middle"" ><center><b>BACK TO ALL MEMBERS' BLOGS</b></center><b>" & strSidebarDelimiter & "</b></a> " & vbNewLine & _
" </tr></table>" & vbNewLine
%>
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<%
End If
If Request.QueryString("log_id") = "" Then
Response.Write "<table align=""center"" colspan=""2"" cellspacing=""1"" cellpadding=""10"" border=""0"" bgcolor=""" & strTableBorderColor & """ width=""100%""><table align=""center"" colspan=""2"" cellspacing=""1"" cellpadding=""1"" border=""0"" width=""100%"">" & vbNewLine
Else
Response.Write "<table align=""center"" colspan=""2"" cellspacing=""1"" cellpadding=""10"" border=""0"" bgcolor=""" & strTableBorderColor & """ width=""100%"">" & vbNewLine
End If
counter = 1
While NOT objRec.EOF
If counter > 1 Then Response.Write ""
counter = counter + 1
T_Subject = objRec("T_SUBJECT")
T_View_Count = objRec("T_VIEW_COUNT")
T_Author = objRec("T_AUTHOR")
MEMBER_ID = objRec("MEMBER_ID")
M_NAME = objRec("M_NAME")
M_TITLE = objRec("M_TITLE")
M_LEVEL = objRec("M_LEVEL")
M_POSTS = objRec("M_POSTS")
T_Message = objRec("T_MESSAGE")
T_REPLIES = objRec("T_REPLIES")
T_DATE = objRec("T_DATE")
TOPIC_ID = objRec("TOPIC_ID")
T_LAST_POST = objRec("T_LAST_POST")
If strDisableAvatar <> "1" Then
Member_Avatar = objRec("M_AVATAR_URL")
End If
Topic_MsgIcon = objRec("T_MSGICON")
CAT_ID = objRec("CAT_ID")
T_STATUS = objRec("T_STATUS")
Response.Write " <tr>" & vbNewLine
If Request.QueryString("log_id") = "" Then
If DateToStr(strForumTimeAdjust) - T_DATE > 1000000 Then
Response.Write " <td width=""70%""><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> " & left(ChkDate1(T_DATE),5) & " " & vbnewline
Else
Response.Write " <td width=""70%""><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> " & left(ChkTime1(T_DATE),6) & " " & vbnewline
End If
If Request.QueryString("member") = "" Then
Response.Write " <a href=""log.asp?log_id=" & TOPIC_ID & """>" & T_Subject & "</a></td><td></font><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & ChkString(objRec("M_NAME"),"display") & "</font></td>"
Else
Response.Write " <a href=""log.asp?log_id=" & TOPIC_ID & """>" & T_Subject & "</a></td><td></font></td>"
End If
If T_REPLIES <> 1 Then
Response.Write " <td><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & T_REPLIES & " " & strSMReplies & ""
Else
Response.Write " <td><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & T_REPLIES & " " & strSMReply & ""
End If
Response.Write "</font></td></tr>"
Else
If strDisableAvatar <> "1" Then
If Member_Avatar = strImageURL & "noavatar.gif" or Member_Avatar = " " Then
' Do Nothing
Else
' Response.Write "<img src=""" & Member_Avatar & """ width=""" & intAvatarWidth & """ height=""" & intAvatarHeight & """ border=""" & intAvatarBorder & """>"
Response.Write "<td bgcolor=""" & strForumCellColor & """ cellpadding=""5"" valign=""top""><a href=""pop_profile.asp?mode=display&id=" & objRec("T_AUTHOR") & """><img src=""" & Member_Avatar & """ border=""" & intAvatarBorder & """></a></td>"
End If
End If
Response.Write " <td width=""100%"" colspan=""2"" bgcolor=""" & strHeadCellColor & """ valign=""middle"">" & _
" <font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & T_Subject & "</font></b>" & _
" <br><font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>This message was posted by " & vbNewline
If strUseExtendedProfile Then
Response.Write " <a href=""pop_profile.asp?mode=display&id=" & objRec("T_AUTHOR") & """>" & vbNewLine
Else
Response.Write " <a href=""JavaScript:openWindow3('pop_profile.asp?mode=display&id=" & objRec("T_AUTHOR") & "')"">" & vbNewLine
End If
Response.Write " </font><font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & ChkString(objRec("M_NAME"),"display") & "</a></font>" & vbNewLine & _
" <font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>on " & chkDate1(T_DATE) & " at " & left(ChkTime1(T_DATE),6) & "</font>" & vbNewLine & _
" <font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>.:.</b> " & (T_View_Count + 1) & "<font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """> times viewed " & vbNewline
If T_REPLIES = 0 Then
Response.Write "<font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>." & strSidebarDelimiter & ".</b>" & strSMMNoReplies & vbNewLine
Else
If T_REPLIES = 1 Then
Response.Write "<font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>." & strSidebarDelimiter & ".</b> There is " & T_REPLIES & " reply to this post" & vbNewLine
Else
Response.Write "<font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>." & strSidebarDelimiter & ".</b> There are " & T_REPLIES & " replies to this post" & vbNewLine
End If
End If
If T_Author = getMemberID(strDBNTUserName) or AdminAllowed = 1 Then
Response.Write "<table valign=""middle"" float=""right"" align=""right"" cellspacing=""1"" cellpadding=""1"" border=""0"" bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <tr><td bgcolor=""" & strForumCellColor & """ cellpadding=""0"" align=""center"" valign=""middle"">" & vbNewLine
call AdminOptions
Response.Write "</td></tr></table>"
End If
T_Message = FormatStr(Trim(T_MESSAGE))
Response.Write " " & vbNewLine & _
" </td>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strForumCellColor & """ cellpadding=""0"" align=""center"" valign=""top"">" & getCurrentIcon(getCurrentMsgIcon(Topic_MsgIcon),"","align=""absmiddle"" hspace=""0""") & "</td>" & vbNewline & _
" <td colspan=""2"" bgcolor=""" & strForumCellColor & """ height=""" & strCategoryCellHeight & """>" & VBNewline & _
"<font color=""" & strDefaulFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & "<span class=""spnMessageText"" id=""msg"">" & FormatStr(Trim(T_MESSAGE)) & "</span id=""msg"">" & vbNewLine & vbNewline
If T_STATUS <> 0 Then
If T_REPLIES > 0 and Request.QueryString("log_id") = "" Then
Response.Write " <hr color=""" & strTableBorderColor & """ size=""1""></font><center><a href=""log.asp?log_id=" & TOPIC_ID & """>" & "<font color=""#FFFFFF"" & strDefaultFontColor & """" face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strSMMReadRepliesText & "</a> | <a href=""post.asp?method=Reply&topic_id=" & TOPIC_ID & "&FORUM_ID=" & strWeblogsForum & """>" & "<font color=""#FFFFFF"" & strDefaultFontColor & """" face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strSMMReplyText & "</a>" & vbNewLine
Else
Response.Write " <hr color=""" & strTableBorderColor & """ size=""1""></font><center><a href=""post.asp?method=Reply&topic_id=" & TOPIC_ID & "&FORUM_ID=" & strWeblogsForum & """>" & "<font color=""#FFFFFF"" & strDefaultFontColor & """" face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strSMMReplyText & "</a>" & vbNewLine
End If
Else
If T_REPLIES > 0 and Request.QueryString("log_id") = "" Then
Response.Write " <hr color=""" & strTableBorderColor & """ size=""1""></font><center><a href=""log.asp?log_id=" & TOPIC_ID & """>" & "<font color=""#FFFFFF"" & strDefaultFontColor & """" face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strSMMReadRepliesText & "</a>" & vbNewLine
End If
End If
Response.Write " </font></td></tr></table>" & vbNewLine
'place your adcode here
If request.querystring("log_id") <> "" and strEnableAdsInWeblogs = "Yes" Then
%>
<!--#INCLUDE FILE="include/inc_spacer.asp"--><a name="replies"></a>
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="inc_468x60.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<%
Else
%>
<a name="replies"></a>
<%
End If
'end of adcode
'---------- Forum_SQL
strSql = "UPDATE " & strTablePrefix & "TOPICS "
strSql = strSql & " SET T_VIEW_COUNT = (T_VIEW_COUNT + 1) "
strSql = strSql & " WHERE (TOPIC_ID = " & TOPIC_ID & ")"
my_conn.Execute (strSql),,adCmdText + adExecuteNoRecords
End If
objRec.MoveNext()
Wend
If request.querystring("log_id")<> "" and T_REPLIES <> 0 Then
Topic_ID = cLng(Request.QueryString("log_id"))
Dim ArchiveView, ArchiveLink, CColor
Dim vPercent(100)
Dim vAnswers(15)
Dim vCount(15)
Dim mpoll, nMaxValue, nMaxWidth
Dim nTotal, nTotal2, nThisVal
If request("ARCHIVE") = "true" Then
strActivePrefix = strTablePrefix & "A_"
ArchiveView = "true"
ArchiveLink = "ARCHIVE=true&"
Else
strActivePrefix = strTablePrefix
ArchiveView = ""
ArchiveLink = ""
End If
If mlev >= 3 Then
intCol = 4
Else
intCol = 3
End If
Response.Write " <script language=""JavaScript"" type=""text/javascript"">" & vbNewLine & _
" Function ChangePage(fnum){" & vbNewLine & _
" If (fnum == 1) {" & vbNewLine & _
" document.PageNum1.submit();" & vbNewLine & _
" }" & vbNewLine & _
" Else {" & vbNewLine & _
" document.PageNum2.submit();" & vbNewLine & _
" }" & vbNewLine & _
" }" & vbNewLine & _
" </script>" & vbNewLine
mypage = request("whichpage")
If ((Trim(mypage) = "") or (IsNumeric(mypage) = False)) Then mypage = 1
mypage = cLng(mypage)
If Request("SearchTerms") <> "" Then
SearchLink = "&SearchTerms=" & Request("SearchTerms")
Else
SearchLink = ""
End If
If strSignatures = "1" and strDSignatures = "1" Then
If ViewSig(MemberID) <> "0" Then
CanShowSignature = 1 AND ShowSigs = 1
End If
End If
'---------- Forum_SQL - Get original topic and check For the Category, Forum or Topic Status and existence
strSql = "SELECT M.M_NAME, M.M_TITLE, M.M_HOMEPAGE, M.MEMBER_ID, M.M_LEVEL, M.M_POSTS, M.M_COUNTRY, M.M_AVATAR_URL" & _
", T.T_DATE, T.T_SUBJECT, T.T_AUTHOR, T.TOPIC_ID, T.T_STATUS, T.T_ISPOLL, T.T_POLLSTATUS, T.T_LAST_EDIT" & _
", T.T_LAST_EDITBY, T.T_LAST_POST, T.T_SIG, T.T_REPLIES" & _
", C.CAT_STATUS, C.CAT_ID, C.CAT_NAME, C.CAT_SUBSCRIPTION, C.CAT_MODERATION" & _
", F.F_STATUS, F.F_POLLS, F.FORUM_ID, F.F_SUBSCRIPTION, F.F_SUBJECT, F.F_MODERATION, T.T_MSGICON, T.T_MESSAGE"
If CanShowSignature = 1 AND ShowSigs = 1 Then
strSql = strSql & ", M.M_SIG"
End If
strSql = strSql & " FROM " & strActivePrefix & "TOPICS T, " & strTablePrefix & "FORUM F, " & _
strTablePrefix & "CATEGORY C, " & strMemberTablePrefix & "MEMBERS M " & _
" WHERE T.TOPIC_ID = " & Topic_ID & _
" AND F.FORUM_ID = T.FORUM_ID " & _
" AND C.CAT_ID = T.CAT_ID " & _
" AND M.MEMBER_ID = T.T_AUTHOR "
set rsTopic = Server.CreateObject("ADODB.Recordset")
rsTopic.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
If rsTopic.EOF Then
recTopicCount = ""
Else
recTopicCount = 1
Member_Name = rsTopic("M_NAME")
Member_Title = rsTopic("M_TITLE")
Member_Homepage = rsTopic("M_HOMEPAGE")
TMember_ID = rsTopic("MEMBER_ID")
Member_Level = rsTopic("M_LEVEL")
Member_Posts = rsTopic("M_POSTS")
Member_Country = rsTopic("M_COUNTRY")
Member_Avatar = rsTopic("M_AVATAR_URL")
Topic_Date = rsTopic("T_DATE")
Topic_Subject = rsTopic("T_SUBJECT")
Topic_Author = rsTopic("T_AUTHOR")
TopicID = rsTopic("TOPIC_ID")
T_STATUS = rsTopic("T_STATUS")
Topic_LastEdit = rsTopic("T_LAST_EDIT")
Topic_LastEditby = rsTopic("T_LAST_EDITBY")
Topic_LastPost = rsTopic("T_LAST_POST")
Topic_Sig = rsTopic("T_SIG")
Topic_Replies = rsTopic("T_REPLIES")
Cat_Status = rsTopic("CAT_STATUS")
Cat_ID = rsTopic("CAT_ID")
Cat_Name = rsTopic("CAT_NAME")
Cat_Subscription = rsTopic("CAT_SUBSCRIPTION")
Cat_Moderation = rsTopic("CAT_MODERATION")
Forum_Status = rsTopic("F_STATUS")
Forum_ID = rsTopic("FORUM_ID")
Forum_Subject = rsTopic("F_SUBJECT")
Forum_Subscription = rsTopic("F_SUBSCRIPTION")
Forum_Moderation = rsTopic("F_MODERATION")
Topic_MsgIcon = rsTopic("T_MSGICON")
Topic_Message = rsTopic("T_MESSAGE")
If CanShowSignature = 1 AND ShowSigs = 1 Then
Topic_MemberSig = trim(rsTopic("M_SIG"))
End If
IsPoll = rsTopic("T_ISPOLL")
Forum_Polls = rsTopic("F_POLLS")
Poll_Status = rsTopic("T_POLLSTATUS")
If IsPoll = 1 Then
strSql = "SELECT P.P_LASTVOTE, P.P_WHOVOTES"
For i = 1 To 15
strSql = strSql & ", P.ANSWER" & CStr(i)
strSql = strSql & ", P.COUNT" & CStr(i)
Next
strSql = strSql & " FROM " & strTablePrefix & "POLLS P"
strSql = strSql & " WHERE P.TOPIC_ID = " & Topic_ID
set rsPoll = Server.CreateObject("ADODB.Recordset")
rsPoll.Open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
If not(rsPoll.EOF) or not(rsPoll.BOF) Then
Last_Vote = rsPoll("P_LASTVOTE")
strWhoVotes = rsPoll("P_WHOVOTES")
For nCount = 1 to 15
'Loop through answer and count fields For the poll
'and store them in arrays
vAnswers(nCount) = rsPoll("ANSWER" & CStr(nCount))
vCount(nCount) = rsPoll("COUNT" & CStr(nCount))
Next
End If
rsPoll.Close
set rsPoll = nothing
End If
If IsPoll = 1 Then
pollLink = "poll=1&"
Else
pollLink = ""
End If
'dateHolder = strtodate(rsTopic("T_EVENT_DATE"))
'IsEvent = rsTopic("T_ISEVENT")
End If
rsTopic.close
set rsTopic = nothing
If recTopicCount = "" Then
If ArchiveView <> "true" Then
Response.Redirect("topic.asp?ARCHIVE=true&" & Request.QueryString)
Else
Response.Redirect("forums.asp")
End If
End If
If IsPoll = 1 Then
'Check to see If user has voted
Voted = GetVote(Topic_ID)
End If
If mLev = 4 Then
AdminAllowed = 1
ForumChkSkipAllowed = 1
ElseIf mLev = 3 Then
If chkForumModerator(Forum_ID, chkString(strDBNTUserName,"decode")) = "1" Then
AdminAllowed = 1
ForumChkSkipAllowed = 1
Else
If lcase(strNoCookies) = "1" Then
AdminAllowed = 1
ForumChkSkipAllowed = 0
Else
AdminAllowed = 0
ForumChkSkipAllowed = 0
End If
End If
ElseIf lcase(strNoCookies) = "1" Then
AdminAllowed = 1
ForumChkSkipAllowed = 0
Else
AdminAllowed = 0
ForumChkSkipAllowed = 0
End If
'If strPrivateForums = "1" and (Request.Form("Method_Type") <> "login") and (Request.Form("Method_Type") <> "logout") and ForumChkSkipAllowed = 0 Then
'' result = ChkForumAccess(Forum_ID, MemberID, true)
'End If
If strModeration > 0 and Cat_Moderation > 0 and Forum_Moderation > 0 and AdminAllowed = 0 Then
Moderation = "Y"
Else
Moderation = "N"
End If
If mypage = -1 and Request.QueryString("REPLY_ID") <> "" Then
strSql1 = "SELECT REPLY_ID "
strSql2 = "FROM " & strActivePrefix & "REPLY "
strSql3 = "WHERE TOPIC_ID = " & Topic_ID & " "
' DEM --> If not a Moderator, all unapproved posts should not be viewed.
If AdminAllowed = 0 Then
strSql3 = strSql3 & "AND (R_STATUS < "
If Moderation = "Y" Then
' Ignore unapproved/rejected posts
strSql3 = strSql3 & "2 "
Else
' Ignore any previously rejected topic
strSql3 = strSql3 & "3 "
End If
strSql3 = strSql3 & "OR R_AUTHOR = " & MemberID & ") "
End If
strSql4 = "ORDER BY R_DATE ASC "
If strDBType = "mysql" Then
set rsReplies = Server.CreateObject("ADODB.Recordset")
rsReplies.open strSql1 & strSql2 & strSql3 & strSql4, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
If rsReplies.EOF Then
iReplyCount = ""
Else
arrReplyData = rsReplies.GetRows(adGetRowsRest)
iReplyCount = UBound(arrReplyData, 2)
rREPLY_ID = 0
End If
LastPostReplyID = cLng(Request.QueryString("REPLY_ID"))
If iReplyCount <> "" Then
For iReply = 0 to iReplyCount
intReplyID = arrReplyData(rREPLY_ID,iReply)
If LastPostReplyID = intReplyID Then
intPageNumber = ((iReply+1)/strPageSize)
If intPageNumber > cLng(intPageNumber) Then
intPageNumber = cLng(intPageNumber) + 1
End If
strwhichpage = "whichpage=" & intPageNumber & "&"
Exit for
End If
Next
Else
strwhichpage = ""
End If
rsReplies.Close
set rsReplies = nothing
Else
set rsReplies = Server.CreateObject("ADODB.Recordset")
rsReplies.cachesize = strPageSize
rsReplies.pagesize = strPageSize
rsReplies.open strSql1 & strSql2 & strSql3 & strSql4, my_Conn, adOpenStatic, adLockReadOnly, adCmdText
LastPostReplyID = cLng(Request.QueryString("REPLY_ID"))
rsReplies.Find = "REPLY_ID=" & LastPostReplyID & ""
If not (rsReplies.EOF or rsReplies.BOF) Then
If rsReplies.absolutepage > 1 Then strwhichpage = "whichpage=" & rsReplies.absolutepage & "&"
Else
strwhichpage = ""
End If
rsReplies.Close
set rsReplies = nothing
End If
Response.Redirect("log.asp?" & strwhichpage & "log_id=" & Topic_ID & "#" & LastPostReplyID & "")
Response.End
End If
' -- Get all the high level(board, category, forum) subscriptions being held by the user
Dim strSubString, strSubArray, strBoardSubs, strCatSubs, strForumSubs, strTopicSubs
If MySubCount > 0 Then
strSubString = PullSubscriptions(0, 0, 0)
strSubArray = Split(strSubString,";")
If uBound(strSubArray) < 0 Then
strBoardSubs = ""
strCatSubs = ""
strForumSubs = ""
strTopicSubs = ""
Else
strBoardSubs = strSubArray(0)
strCatSubs = strSubArray(1)
strForumSubs = strSubArray(2)
strTopicSubs = strSubArray(3)
End If
End If
'---------- Forum_SQL
strSql = "SELECT M.M_NAME, M.M_TITLE, M.MEMBER_ID, M.M_HOMEPAGE, M.M_LEVEL, M.M_POSTS, M.M_COUNTRY, M.M_AVATAR_URL"
strSql = strSql & ", M.M_PMRECEIVE"
strSql = strSql & ", R.REPLY_ID, R.FORUM_ID, R.R_AUTHOR, R.TOPIC_ID, R.R_MESSAGE, R.R_LAST_EDIT"
strSql = strSql & ", R.R_LAST_EDITBY, R.R_SIG, R.R_STATUS, R.R_DATE, R.R_MSGICON"
If CanShowSignature = 1 AND ShowSigs = 1 Then
strSql = strSql & ", M.M_SIG"
End If
strSql2 = " FROM " & strMemberTablePrefix & "MEMBERS M, " & strActivePrefix & "REPLY R "
strSql3 = " WHERE M.MEMBER_ID = R.R_AUTHOR "
strSql3 = strSql3 & " AND R.TOPIC_ID = " & Topic_ID & " "
' DEM --> If not a Moderator, all unapproved posts should not be viewed.
If AdminAllowed = 0 Then
strSql3 = strSql3 & " AND (R.R_STATUS < "
If Moderation = "Y" Then
' Ignore unapproved/rejected posts
strSql3 = strSql3 & "2"
Else
' Ignore any previously rejected topic
strSql3 = strSql3 & "3"
End If
strSql3 = strSql3 & " OR R.R_AUTHOR = " & MemberID & ")"
End If
strSql4 = " ORDER BY R.R_DATE ASC"
If strDBType = "mysql" Then 'MySql specific code
If mypage > 1 Then
intOffset = cLng((mypage-1) * strPageSize)
strSql5 = " LIMIT " & intOffset & ", " & strPageSize & " "
End If
'---------- Forum_SQL - Get the total pagecount
strSql1 = "SELECT COUNT(R.TOPIC_ID) AS REPLYCOUNT "
set rsCount = my_Conn.Execute(strSql1 & strSql2 & strSql3)
iPageTotal = rsCount(0).value
rsCount.close
set rsCount = nothing
If iPageTotal > 0 Then
maxpages = (iPageTotal \ strPageSize )
If iPageTotal mod strPageSize <> 0 Then
maxpages = maxpages + 1
End If
If iPageTotal < (strPageSize + 1) Then
intGetRows = iPageTotal
ElseIf (mypage * strPageSize) > iPageTotal Then
intGetRows = strPageSize - ((mypage * strPageSize) - iPageTotal)
Else
intGetRows = strPageSize
End If
Else
iPageTotal = 0
maxpages = 0
End If
If iPageTotal > 0 Then
set rsReplies = Server.CreateObject("ADODB.Recordset")
rsReplies.Open strSql & strSql2 & strSql3 & strSql4 & strSql5, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
arrReplyData = rsReplies.GetRows(intGetRows)
iReplyCount = UBound(arrReplyData, 2)
rsReplies.Close
set rsReplies = nothing
Else
iReplyCount = ""
End If
Else 'end MySql specific code
set rsReplies = Server.CreateObject("ADODB.Recordset")
rsReplies.cachesize = strPageSize
rsReplies.open strSql & strSql2 & strSql3 & strSql4, my_Conn, adOpenStatic, adLockReadOnly, adCmdText
If not (rsReplies.EOF or rsReplies.BOF) Then
rsReplies.pagesize = strPageSize
rsReplies.absolutepage = mypage '**
maxpages = cLng(rsReplies.pagecount)
If maxpages >= mypage Then
arrReplyData = rsReplies.GetRows(strPageSize)
iReplyCount = UBound(arrReplyData, 2)
Else
iReplyCount = ""
End If
Else '---------- No replies found in DB
iReplyCount = ""
End If
rsReplies.Close
set rsReplies = nothing
End If
'sidebarmod
Response.Write "<table border=""0"" cellspacing=""5"" cellpadding=""0"" bgcolor=""" & strPageBGColor & """ width=""100%"">" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine
If maxpages > 1 Then
Response.Write "<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""1"" width=""80%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""right"" valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>"
If mypage > 1 Then Response.Write("<a href=""log.asp?" & ArchiveLink & "log_id=" & Topic_ID & "&whichpage=" & mypage-1 & SearchLink & "#replies"" title=""Go to previous page""" & dWStatus("Go to previous page") & ">Previous page</a>")
If mypage > 1 and mypage < maxpages Then Response.Write(" | ")
If mypage < maxpages Then Response.Write("<a href=""log.asp?" & ArchiveLink & "log_id=" & Topic_ID & "&whichpage=" & mypage+1 & SearchLink & "#replies"" title=""Go to Next page""" & dWStatus("Go to Next page") & ">Next page</a>")
Response.Write "</td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine
End If
Response.Write "<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""0"" width=""80%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td>" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
" <tr>" & vbNewLine
If maxpages > 1 Then
Call DropDownPaging(1)
Else
Response.Write " <td align=""center"" bgcolor=""" & strHeadCellColor & """ width=""" & strTopicWidthLeft & """"
If lcase(strTopicNoWrapLeft) = "1" Then Response.Write(" nowrap")
Response.Write "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """></font></b></td>" & vbNewLine
End If
Response.Write " <td align=""right"" height=""100%"" bgcolor=""" & strHeadCellColor & """ width=""" & strTopicWidthRight & """"
If lcase(strTopicNoWrapRight) = "1" Then Response.Write(" nowrap")
Response.Write "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>" & vbNewLine & _
"</font></b>" & vbNewLine
If (AdminAllowed = 1) Then
' Response.Write " <td align=""right"" bgcolor=""" & strHeadCellColor & """ nowrap>" & vbNewLine
call AdminOptions()
' Response.Write " </td>" & vbNewLine
Else
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> </font>" & vbNewLine
End If
Response.Write " </td></tr>" & vbNewLine
' ---------- Forum_SQL
' strSql = "UPDATE " & strActivePrefix & "TOPICS "
' strSql = strSql & " SET T_VIEW_COUNT = (T_VIEW_COUNT + 1) "
' strSql = strSql & " WHERE (TOPIC_ID = " & Topic_ID & ")"
' my_conn.Execute (strSql),,adCmdText + adExecuteNoRecords
If iReplyCount = "" Then ' ---------- No replies found in DB
' Nothing
Else
intI = 0
rM_NAME = 0
rM_TITLE = 1
rMEMBER_ID = 2
rM_HOMEPAGE = 3
rM_LEVEL = 4
rM_POSTS = 5
rM_COUNTRY = 6
rM_Avatar = 7
rM_PMRECEIVE = 8
rREPLY_ID = 9
rFORUM_ID = 10
rR_AUTHOR = 11
rTOPIC_ID = 12
rR_MESSAGE = 13
rR_LAST_EDIT = 14
rR_LAST_EDITBY = 15
rR_SIG = 16
rR_STATUS = 17
rR_DATE = 18
rR_MSGICON = 19
If CanShowSignature = 1 AND ShowSigs = 1 Then
rM_SIG = 20
End If
For iForum = 0 to iReplyCount
Reply_MemberName = arrReplyData(rM_NAME, iForum)
Reply_MemberTitle = arrReplyData(rM_TITLE, iForum)
Reply_MemberID = arrReplyData(rMEMBER_ID, iForum)
Reply_MemberHomepage = arrReplyData(rM_HOMEPAGE, iForum)
Reply_MemberLevel = arrReplyData(rM_LEVEL, iForum)
Reply_MemberPosts = arrReplyData(rM_POSTS, iForum)
Reply_MemberCountry = arrReplyData(rM_COUNTRY, iForum)
Reply_MemberAvatar = arrReplyData(rM_Avatar, iForum)
Reply_MemberPMReceive = arrReplyData(rM_PMRECEIVE, iForum)
Reply_ReplyID = arrReplyData(rREPLY_ID, iForum)
Reply_ForumID = arrReplyData(rFORUM_ID, iForum)
Reply_Author = arrReplyData(rR_AUTHOR, iForum)
Reply_TopicID = arrReplyData(rTOPIC_ID, iForum)
Reply_Content = arrReplyData(rR_MESSAGE, iForum)
Reply_LastEdit = arrReplyData(rR_LAST_EDIT, iForum)
Reply_LastEditBy = arrReplyData(rR_LAST_EDITBY, iForum)
Reply_Sig = arrReplyData(rR_SIG, iForum)
Reply_Status = arrReplyData(rR_STATUS, iForum)
Reply_Date = arrReplyData(rR_DATE, iForum)
Reply_MsgIcon = arrReplyData(rR_MSGICON, iForum)
If CanShowSignature = 1 AND ShowSigs = 1 Then
Reply_MemberSig = trim(arrReplyData(rM_SIG, iForum))
End If
If intI = 0 Then
CColor = strAltForumCellColor
Else
CColor = strForumCellColor
End If
Response.Write " <tr>" & vbNewLine & _
" <td bgcolor=""" & CColor & """ valign=""top"" width=""" & strTopicWidthLeft & """"
If lcase(strTopicNoWrapLeft) = "1" Then Response.Write(" nowrap")
Response.Write ">" & vbNewLine & _
" <p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b><span class=""spnMessageText"">" & profileLink(ChkString(Reply_MemberName,"display"),Reply_Author) & "</span></b></font><br />" & vbNewLine
If strShowRank = 1 or strShowRank = 3 Then
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & ChkString(getMember_Level(Reply_MemberTitle, Reply_MemberLevel, Reply_MemberPosts),"display") & "</small></font><br />" & vbNewLine
End If
If strShowRank = 2 or strShowRank = 3 Then
If strUseAdminFiveStars = "1" Then
Response.Write " " & getStar_LevelAdmin5Stars(Reply_MemberLevel, Reply_MemberPosts) & "<br />" & vbNewLine
Else
Response.Write " " & getStar_Level(Reply_MemberLevel, Reply_MemberPosts) & "<br />" & vbNewLine
End If
End If
%>
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<%
'---------- Crash: Show Avatar
If strDisableAvatar <> "1" Then
If Reply_MemberAvatar = strImageURL & "noavatar.gif" or Reply_MemberAvatar = " " Then
'Do Nothing
Else
' Response.Write "<img src=""" & Reply_MemberAvatar & """ width=""" & intAvatarWidth & """ height=""" & intAvatarHeight & """ border=""" & intAvatarBorder & """>"
Response.Write "<img align=""center"" src=""" & Reply_MemberAvatar & """ border=""" & intAvatarBorder & """>"
End If
End If
'Response.Write " </p>" & vbNewLine
'Response.Write " <p>" & vbNewLine
Response.Write " <td valign=""top"" bgcolor=""" & CColor & """ height=""100%"" width=""" & strTopicWidthRight & """"
If lcase(strTopicNoWrapRight) = "1" Then Response.Write(" nowrap")
If (AdminAllowed = 1) and (maxpages > 1) Then
Response.Write (" colspan=""2"" ")
Else
Response.Write (" colspan=""2"" ")
End If
Response.Write "><a name=""" & Reply_ReplyID & """></a>" & vbNewLine & _
" <table width=""100%"" height=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
" <tr>" & vbNewLine
If CanShowSignature = 1 AND ShowSigs = 1 and Reply_Sig = 1 and Reply_MemberSig <> "" Then
Response.Write " <td colspan=""2"" valign=""top"" width=""100%"" height=""100%"">"
Else
Response.Write " <td colspan=""1"" valign=""top"" width=""100%"" height=""100%"">"
End If
' DEM --> Start of Code altered For moderation
If Reply_Status < 2 Then
If strUseMessageIcons = "1" Then
If strUseBugForm = "1" and Reply_ForumID = cInt(intBugFormForum) Then
Response.Write " " & getCurrentIcon(strIconBug,"Bug Report","align=""absmiddle"" hspace=""0""") & "<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Posted " & left(chkDate(Reply_Date, "", false),5) & "/" & right(chkDate(Reply_Date, "", false),2) & " @ " & left(right(chkDate(Reply_Date, "" ,true),8),5) & "</font>" & vbNewline
Else
Response.Write " " & getCurrentIcon(getCurrentMsgIcon(Reply_MsgIcon),"","align=""absmiddle"" hspace=""0""") & "<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Posted " & left(chkDate(Reply_Date, "", false),5) & "/" & right(chkDate(Reply_Date, "", false),2) & " @ " & left(right(chkDate(Reply_Date, "" ,true),8),5) & "</font>" & vbNewline
End If
Else
Response.Write " " & getCurrentIcon(strIconPosticon,"","align=""absmiddle"" hspace=""0""") & "<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Posted " & left(chkDate(Reply_Date, "", false),5) & "/" & right(chkDate(Reply_Date, "", false),2) & " @ " & left(right(chkDate(Reply_Date, "" ,true),8),5) & "</font>" & vbNewline
End If
If strEditedByDate = "1" and Reply_LastEditBy <> "" Then
If Reply_LastEditBy <> Reply_Author Then
Reply_LastEditByName = getMemberName(Reply_LastEditBy)
Else
Reply_LastEditByName = chkString(Reply_MemberName,"display")
End If
If Reply_LastEditBy <> Reply_Author Then
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & _
"(Edited by " & Reply_LastEditByName & " " & left(chkDate(Reply_LastEdit, "", false),5) & "/" & right(chkDate(Reply_LastEdit, "", false),2) & " @ " & left(right(chkDate(Reply_LastEdit, "" ,true),8),5) & ")</font>" & vbNewLine
Else
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & _
"(Edited " & left(chkDate(Reply_LastEdit, "", false),5) & "/" & right(chkDate(Reply_LastEdit, "", false),2) & " @ " & left(right(chkDate(Reply_LastEdit, "" ,true),8),5) & ")</font>" & vbNewLine
End If
End If
ElseIf Reply_Status = 2 Then
Response.Write " <font color=""red"" face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>NOT MODERATED</b></font>" & vbNewline
ElseIf Reply_Status = 3 Then
Response.Write " " & getCurrentIcon(strIconPosticonHold,"","hspace=""3""") & "<font color=""red"" face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>ON HOLD</b></font>" & vbNewline
End If
' DEM --> End of Code added For moderation.
If mlev > 2 Then
Response.Write " " & profileLink(getCurrentIcon(strIconProfile,"Show Profile","align=""absmiddle"" hspace=""0"""),Reply_MemberID) & vbNewLine
End If
If mLev > 2 or Reply_MemberReceiveEmail = "1" Then
If (mlev <> 0) or (mlev = 0 and strLogonForMail <> "1") Then
Response.Write " <a href=""JavaScript:openWindow('pop_mail.asp?id=" & Reply_MemberID & "')"">" & getCurrentIcon(strIconEmail,"Email Poster","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
End If
End If
If mlev > 1 and Reply_MemberPMReceive = "1" Then
Response.Write " <a href=""privatesend.asp?method=Topic&mname=" & Reply_MemberName & """>" & getCurrentIcon(strIconPmprivatemessage,"Send " & Reply_MemberName & " a Private Message","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
End If
If strHomepage = "1" Then
If Reply_MemberHomepage <> " " Then
Response.Write " <a href=""" & Reply_MemberHomepage & """ target=""_blank"">" & getCurrentIcon(strIconHomepage,"Visit " & ChkString(Reply_MemberName,"display") & "'s Homepage","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
End If
End If
If (AdminAllowed = 1 or Reply_MemberID = MemberID) Then
If (Cat_Status <> 0 and Forum_Status <> 0 and T_STATUS <> 0) or (AdminAllowed = 1) Then
Response.Write " <a href=""post.asp?" & ArchiveLink & "method=Edit&REPLY_ID=" & Reply_ReplyID & "&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconEditTopic,"Edit Reply","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
End If
End If
If ((Cat_Status <> 0 and Forum_Status <> 0 and T_STATUS = 1) or (AdminAllowed = 1 and T_STATUS <= 1)) and ArchiveView = "" Then
Response.Write " <a href=""post.asp?" & ArchiveLink & "method=ReplyQuote&REPLY_ID=" & Reply_ReplyID & "&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconReplyQuote,"Reply with Quote","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
End If
If (strIPLogging = "1") Then
If (AdminAllowed = 1 and MemberID = intAdminMemberID) Then
Response.Write " <a href=""JavaScript:openWindow('pop_viewip.asp?" & ArchiveLink & "mode=getIP&REPLY_ID=" & Reply_ReplyID & "&FORUM_ID=" & Forum_ID & "')"">" & getCurrentIcon(strIconIP,"View user's IP address","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
End If
End If
If (AdminAllowed = 1 or Reply_MemberID = MemberID) Then
If (Cat_Status <> 0 and Forum_Status <> 0 and T_STATUS <> 0) or (AdminAllowed = 1) Then
Response.Write " <a href=""JavaScript:openWindow('pop_delete.asp?" & ArchiveLink & "mode=Reply&REPLY_ID=" & Reply_ReplyID & "&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & "')"">" & getCurrentIcon(strIconDeleteReply,"Delete Reply","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
End If
End If
Response.Write " <hr noshade size=""" & strFooterFontSize & """></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine
If CanShowSignature = 1 AND ShowSigs = 1 and Reply_Sig = 1 and Reply_MemberSig <> "" Then
Response.Write " <td valign=""top"" colspan=""2"" width=""100%"" height=""70"">"
Else
Response.Write " <td valign=""top"" colspan=""1"" width=""100%"" height=""70"">"
End If
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><span class=""spnMessageText"" id=""msg"">"
If Request.QueryString("SearchTerms") <> "" Then
Response.Write SearchHiLite(formatStr(Reply_Content))
Else
Response.Write formatStr(Reply_Content)
End If
Response.Write "</span id=""msg""></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
If CanShowSignature = 1 AND ShowSigs = 1 and Reply_Sig = 1 and Reply_MemberSig <> "" Then
Response.Write " " & vbNewLine & _
" <td colspan=""2"" width=""100%""valign=""bottom""><hr noshade size=""" & strFooterFontSize & """><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><span class=""spnMessageText"">" & formatStr(Reply_MemberSig) & "</span></font></td>" & vbNewLine & _
" " & vbNewLine
End If
Response.Write " " & vbNewLine & _
" <td valign=""bottom"" align=""right"" height=""""><a href=""#top"">" & getCurrentIcon(strIconGoUp,"Back to top","align=""right""") & "</a></td>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine
intI = 1-intI
Next
End If
Response.Write " <tr>" & vbNewLine
If maxpages > 1 Then
Call DropDownPaging(2)
Else
Response.Write " <td align=""center"" bgcolor=""" & strHeadCellColor & """ width=""" & strTopicWidthLeft & """"
If lcase(strTopicNoWrapLeft) = "1" Then Response.Write(" nowrap")
Response.Write "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """></font></b></td>" & vbNewLine
End If
Response.Write " <td align=""right"" bgcolor=""" & strHeadCellColor & """ width=""" & strTopicWidthRight & """"
If lcase(strTopicNoWrapRight) = "1" Then Response.Write(" nowrap")
Response.Write "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>" & vbNewLine & _
"</font></b>" & vbNewLine
If (AdminAllowed = 1) Then
'Response.Write " <td align=""right"" bgcolor=""" & strHeadCellColor & """ nowrap>" & vbNewLine
call AdminOptions()
'Response.Write "</td>" & vbNewLine
Else
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> </font>" & vbNewLine
End If
Response.Write " </td></tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td colspan=""" & intCol & """ align=""center"" bgcolor=""" & strCategoryCellColor & """ width=""100%"" height=""" & strCategoryCellHeight & """>" & vbNewLine
Call PostingOptions()
Response.Write " </td>"& vbNewLine &_
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine
If maxpages > 1 Then
Response.Write "<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""1"" width=""80%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""left"" valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>"
If mypage > 1 Then Response.Write("<a href=""log.asp?" & ArchiveLink & "log_id=" & Topic_ID & "&whichpage=" & mypage-1 & SearchLink & "#replies"" title=""Go to previous page""" & dWStatus("Go to previous page") & ">Previous page</a>")
If mypage > 1 and mypage < maxpages Then Response.Write(" | ")
If mypage < maxpages Then Response.Write("<a href=""log.asp?" & ArchiveLink & "log_id=" & Topic_ID & "&whichpage=" & mypage+1 & SearchLink & "#replies"" title=""Go to Next page""" & dWStatus("Go to Next page") & ">Next page</a>")
Response.Write "</td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine
End If
Response.Write "<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""0"" width=""99%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td>" & vbNewLine & _
" <table width=""100%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""right"" valign=""top"" width=""50%"" nowrap>" & vbNewLine
End If
'google adsense
If T_REPLIES > 4 and strEnableAdsInWeblogs = "Yes" and request.querystring("log_id") <> "" Then
%>
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="inc_468x60.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<%
End If
'end of adsense
If request.querystring("log_id")<> "" and mlev > 0 Then
%>
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<%
call QuickReply()
End If
Response.Write "</table>" & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td valign=""top"" width=""0%"">" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table><br>" & vbNewLine
WriteFooter
Sub QuickReply()
If T_STATUS <> 0 Then
intSigDefault = getSigDefault(MemberID)
Response.Write " <script language=""JavaScript"" type=""text/javascript"" src=""inc_code.js""></script>" & vbNewLine & _
" <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine
" <form name=""PostTopic"" method=""post"" action=""post_info.asp"" onSubmit=""return validate();"">" & vbNewLine & _
" <form name=""PostTopic"" method=""post"" action=""post_info.asp"" onSubmit=""document.PostTopic.Submit.disabled=true;document.PostTopic.Submit.value='Submit Reply';"">" & vbNewLine & _
" <input name=""ARCHIVE"" type=""hidden"" value=""" & ArchiveView & """>" & vbNewLine & _
" <input name=""Method_Type"" type=""hidden"" value=""Reply"">" & vbNewLine & _
" <input name=""TOPIC_ID"" type=""hidden"" value=""" & Topic_ID & """>" & vbNewLine & _
" <input name=""FORUM_ID"" type=""hidden"" value=""" & Forum_ID & """> " & vbNewLine & _
" <input name=""CAT_ID"" type=""hidden"" value=""" & Cat_ID & """>" & vbNewLine & _
" <input name=""Refer"" type=""hidden"" value=""" & request.servervariables("SCRIPT_NAME") & "?" & replace(Request.QueryString,"#","#") & """>" & vbNewLine & _
" <input name=""UserName"" type=""hidden"" value=""" & strDBNTUserName & """>" & vbNewLine & _
" <input name=""Password"" type=""hidden"" value=""" & Request.Cookies(strUniqueID & "User")("Pword") & """>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strHeadCellColor & """ noWrap vAlign=""middle"" height=""" & strCategoryCellHeight & """ colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """> <b>"& strSMMReplyText &"</b></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strForumCellColor & """ noWrap vAlign=""top"" align=""right""><table border=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine
If strAllowHTML = "1" Then
Response.Write " HTML is on<br />" & vbNewLine
Else
Response.Write " HTML is off<br />" & vbNewLine
End If
If strAllowForumCode = "1" Then
Response.Write " <a href=""JavaScript:openWindow6('pop_forum_code.asp')"">Forum Code</a> is on<br />" & vbNewLine
Else
Response.Write " Forum Code is off<br />" & vbNewLine
End If
If strIcons = "1" and strShowSmiliesTable = "1" Then
Response.Write " <a href=""JavaScript:openWindow6('pop_new_smiles.asp')"">show smilies</a><br />" & vbNewLine
End If
If strSignatures = "1" Then
Response.Write " <br /><input name=""Sig"" type=""checkbox"" value=""yes""" & chkCheckbox(intSigDefault,1,true) & ">Use signature<br />" & vbNewLine
End If
Response.Write " </font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </span></font></td>" & vbNewLine & _
" <td width=""" & strTopicWidthRight & """ bgColor=""" & strForumCellColor & """><textarea class=""gmltxtarea"" name=""Message"" cols=""50"" rows=""6"" wrap=""FILE"" style=""width:100%""></textarea><br /></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strForumCellColor & """ noWrap align=""center"" colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><input class=""gmlBtn2"" name=""Submit"" type=""submit"" value=""Post!""> <input class=""gmlBtn2"" name=""Preview"" type=""button"" value=""preview"" onclick=""OpenPreview()""></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </form>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <br />" & vbNewLine & _
"<script language=""JavaScript"" type=""text/javascript"" src=""inc_keydown.js""></script>"
Else
Response.Write " <script language=""JavaScript"" type=""text/javascript"" src=""inc_code.js""></script>" & vbNewLine & _
" <table width=""50%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine &_
" <tr>" & vbNewLine & _
" <td bgColor=""" & strForumCellColor & """ noWrap vAlign=""top"" align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
" This topic is locked!</font></td></tr>" & VBNewline &_
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <br />" & vbNewLine
End If
End Sub
Sub PostingOptions()
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
If (mlev = 4 or mlev = 3 or mlev = 2 or mlev = 1) or (lcase(strNoCookies) = "1") or (strDBNTUserName = "") Then
If ((Cat_Status = 1) and (Forum_Status = 1)) Then
Response.Write " <a href=""post.asp?" & ArchiveLink & "method=Topic&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconFolderNewTopic,"","align=""absmiddle""") & "</a> <a href=""post.asp?" & ArchiveLink & "method=Topic&FORUM_ID=" & Forum_ID & """><font color=""#ffffff"">New Topic</font></a>" & vbNewLine
If strUsePolls = "1" Then
If strPolls = "1" and ((Forum_Polls = "2" and AdminAllowed = 1) or (Forum_Polls = "1")) Then
Response.Write "<font size=""2"">|</font> <a href=""post.asp?poll=1&method=Topic&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconPoll,"New Poll","align=""absmiddle""") & "</a> <a href=""post.asp?poll=1&method=Topic&FORUM_ID=" & Forum_ID & """><font color=""#ffffff"">New Poll</font></a>" & vbNewLine
End If
End If
End If
If ((Cat_Status = 1) and (Forum_Status = 1) and (T_STATUS = 1)) and ArchiveView = "" Then
Response.Write " <font size=""2""></font> <a href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconReplyTopic,"","align=""absmiddle""") & "</a> <a href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """><font color=""#ffffff"">Reply to Topic</font></a>" & vbNewLine
Else
If ((AdminAllowed = 1 and T_STATUS <= 1) and ArchiveView = "") Then
Response.Write " <a href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>"
' DEM --> Added If statement to show normal icon For unmoderated posts.
If T_STATUS = 1 and Cat_Status <> 0 and Forum_Status <> 0 Then
Response.Write getCurrentIcon(strIconReplyTopic,"","align=""absmiddle""") & "</a> "
Else
Response.Write "<font size=""2"">|</font> " & getCurrentIcon(strIconClosedTopic,"","align=""absmiddle""") & "</a> "
End If
Response.Write "<a href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>Reply to Topic</a>" & vbNewLine
Else
If T_STATUS = 0 Then
Response.Write "<font size=""2"">|</font> " & getCurrentIcon(strIconClosedTopic,"","align=""absmiddle""") & " Topic Locked" & vbNewline
End If
End If
End If
If lcase(strEmail) = "1" and T_STATUS < 2 Then
If Cat_Status <> 0 and Forum_Status <> 0 and T_STATUS <> 0 and mLev > 0 Then
If strSubscription > 0 and Cat_Subscription > 0 and Forum_Subscription > 0 Then
If InArray(strTopicSubs, Topic_ID) Then
Response.Write " <font size=""2"">|</font> " & ShowSubLink ("U", Cat_ID, Forum_ID, Topic_ID, "Y") & vbNewLine
ElseIf strBoardSubs <> "Y" and not(InArray(strForumSubs,Forum_ID) or InArray(strCatSubs,Cat_ID)) Then
Response.Write " <font size=""2"">|</font> " & ShowSubLink ("S", Cat_ID, Forum_ID, Topic_ID, "Y") & vbNewLine
End If
End If
End If
If ((mlev <> 0) or (mlev = 0 and strLogonForMail <> "1")) and lcase(strShowSendToFriend) = "1" Then
If strPolls = "1" and ((Forum_Polls = "2" and AdminAllowed = 1) or (Forum_Polls = "1")) Then
Response.Write " <font size=""2"">|</font> <a href=""JavaScript:openWindow('pop_send_to_friend.asp?url=" & strForumURL & "log.asp?log_id=" & TOPIC_ID & "')"">" & getCurrentIcon(strIconSendTopic,"","align=""absmiddle""") & "</a> <a href=""JavaScript:openWindow('pop_send_to_friend.asp?url=" & strForumURL & "log.asp?log_id=" & Topic_ID & "')"">Send Topic to a Friend</a>" & vbNewLine
Else
Response.Write " <font size=""2"">|</font> <a href=""JavaScript:openWindow('pop_send_to_friend.asp?url=" & strForumURL & "log.asp?log_id=" & TOPIC_ID & "')"">" & getCurrentIcon(strIconSendTopic,"","align=""absmiddle""") & "</a> <a href=""JavaScript:openWindow('pop_send_to_friend.asp?url=" & strForumURL & "log.asp?log_id=" & Topic_ID & "')"">Send Topic to a Friend</a>" & vbNewLine
End If
End If
End If
End If
Response.Write " </font>"
End Sub
Sub AdminOptions()
If mlev <> 0 Then
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
If (AdminAllowed = 1) or (T_Author = getMemberID(strDBNTUserName)) or (lcase(strNoCookies) = "1") Then
If (AdminAllowed = 1) Then
If (T_Status <> 0) Then
Response.Write " <a href=""JavaScript:openWindow('pop_lock.asp?mode=Topic&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & strWeblogsForum & "&CAT_ID=" & Cat_ID & "')"">" & getCurrentIcon(strIconFolderLocked,"Lock Topic","") & "</a>" & vbNewLine
Else
Response.Write " <a href=""JavaScript:openWindow('pop_open.asp?mode=Topic&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & strWeblogsForum & "&CAT_ID=" & Cat_ID & "')"">" & getCurrentIcon(strIconFolderUnlocked,"Un-Lock Topic","") & "</a>" & vbNewLine
End If
End If
If T_Status <> 0 or (AdminAllowed = 1) Then
Response.Write " <a href=""post.asp?" & ArchiveLink & pollLink & "method=EditTopic&REPLY_ID=" & Topic_ID & "&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & strWeblogsForum & """>" & getCurrentIcon(strIconFolderPencil,"Edit Topic","hspace=""0""") & "</a>" & vbNewLine
End If
If (AdminAllowed = 1) Then
Response.Write " <a href=""JavaScript:openWindow('pop_delete.asp?" & ArchiveLink & pollLink & "mode=Topic&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & strWeblogsForum & "&CAT_ID=" & Cat_ID & "')"">" & getCurrentIcon(strIconFolderDelete,"Delete Topic","") & "</a>" & vbNewLine
End If
End If
Response.Write "</font>"
End If
end sub
Function SearchHiLite(fStrMessage)
'Function derived from HiLiTeR by 2eNetWorX
fArr = split(replace(Request.QueryString("SearchTerms"),";",""), ",")
strBuffer = ""
For iPos = 1 to len(fStrMessage)
bChange = False
'Looks For html tags
If mid(fStrMessage, iPos, 1) = "<" Then
bInHTML = True
End If
'Looks For End of html tags
If bInHTML = True Then
If mid(fStrMessage, iPos, 1) = ">" Then
bInHTML = False
End If
End If
If bInHTML <> True Then
For i = 0 to UBound(fArr)
If fArr(i) <> "" Then
If lcase(mid(fStrMessage, iPos, len(fArr(i)))) = lcase(fArr(i)) Then
bChange = True
strBuffer = strBuffer & "<span class=""spnSearchHighlight"" id=""hilite"">" & _
mid(fStrMessage, iPos, len(fArr(i))) & "</span id=""hilite"">"
iPos = iPos + len(fArr(i)) - 1
End If
End If
Next
End If
If Not bChange Then
strBuffer = strBuffer & mid(fStrMessage, iPos, 1)
End If
Next
SearchHiLite = strBuffer
End Function
Sub DropDownPaging(fnum)
If maxpages > 1 Then
If mypage = "" Then
pge = 1
Else
pge = mypage
End If
scriptname = request.servervariables("script_name")
Response.Write(" <form name=""PageNum" & fnum & """ action=""log.asp#replies"">" & vbNewLine)
Response.Write(" <td align=""right"" bgcolor=""" & strHeadCellColor & """ nowrap><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strHeadFontColor & """>" & vbNewLine)
If Archiveview = "true" Then Response.Write(" <input type=""hidden"" name=""ARCHIVE"" value=""" & ArchiveView & """>" & vbNewLine)
Response.Write(" <input type=""hidden"" name=""log_id"" value=""" & Request("log_id") & """>" & vbNewLine)
Response.Write(" <b># </b><select name=""whichpage"" size=""1"" onchange=""ChangePage(" & fnum & ");"">" & vbNewLine)
For counter = 1 to maxpages
If counter <> cLng(pge) Then
Response.Write " <option value=""" & counter & """>" & counter & "</option>" & vbNewLine
Else
Response.Write " <option selected value=""" & counter & """>" & counter & "</option>" & vbNewLine
End If
Next
Response.Write(" </select><b> /" & maxpages & "</b>" & vbNewLine)
If Request.QueryString("SearchTerms") <> "" Then Response.Write(" <input type=""hidden"" name=""SearchTerms"" value=""" & Request.QueryString("SearchTerms") & """>" & vbNewLine)
Response.Write(" </font></td>" & vbNewLine)
Response.Write(" </form>" & vbNewLine)
End If
top = "0"
End Sub
Function DateToStr(dtDateTime)
If not isDate(strForumTimeAdjust) Then
strForumTimeAdjust = strToDate(strForumTimeAdjust)
End If
DateToStr = year(dtDateTime) & doublenum(Month(dtdateTime)) & doublenum(Day(dtdateTime)) & doublenum(Hour(dtdateTime)) & doublenum(Minute(dtdateTime)) & doublenum(Second(dtdateTime)) & ""
End Function
Function chkTime1(tTime)
Dim fTime
fTime = tTime
If fTime = "" Then
Exit Function
End If
'## Local Time Display
fTime = DateToStr(DateAdd("n", intForumBias -intLocalBias -DayLightSave + intForumDaylAdjust, strToDate(fTime)))
'## Local Time Display
If strTimeType = 12 Then
If cint(Mid(fTime, 9,2)) > 12 Then
chkTime1 = chkTime1 & " " & _
(cint(Mid(fTime, 9,2)) -12) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2) & " " & "PM"
ElseIf cint(Mid(fTime, 9,2)) = 12 Then
chkTime1 = chkTime1 & " " & _
cint(Mid(fTime, 9,2)) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2) & " " & "PM"
ElseIf cint(Mid(fTime, 9,2)) = 0 Then
chkTime1 = chkTime1 & " " & _
(cint(Mid(fTime, 9,2)) +12) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2) & " " & "AM"
Else
chkTime1 = chkTime1 & " " & _
Mid(fTime, 9,2) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2) & " " & "AM"
End If
Else
chkTime1 = chkTime1 & " " & _
Mid(fTime, 9,2) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2)
End If
End Function
Function chkDate1(tDate)
Dim fdate
fdate = tdate
If fDate = "" Then
Exit Function
End If
' If IsDate(fDate) Then
'## Local Time Display
fDate = DateToStr(DateAdd("n", intForumBias -intLocalBias - DayLightSave + intForumDaylAdjust, strToDate(fDate)))
'## Local Time Display
Select Case strDateType
Case "dmy"
chkDate1 = Mid(fDate,7,2) & "/" & _
Mid(fDate,5,2) & "/" & _
Mid(fDate,1,4)
Case "mdy"
chkDate1 = Mid(fDate,5,2) & "/" & _
Mid(fDate,7,2) & "/" & _
Mid(fDate,1,4)
Case "ymd"
chkDate1 = Mid(fDate,1,4) & "/" & _
Mid(fDate,5,2) & "/" & _
Mid(fDate,7,2)
Case "ydm"
chkDate1 =Mid(fDate,1,4) & "/" & _
Mid(fDate,7,2) & "/" & _
Mid(fDate,5,2)
Case "dmmy"
chkDate1 = Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),1) & " " & _
Mid(fDate,1,4)
Case "mmdy"
chkDate1 = Monthname(Mid(fDate,5,2),1) & " " & _
Mid(fDate,7,2) & " " & _
Mid(fDate,1,4)
Case "ymmd"
chkDate1 = Mid(fDate,1,4) & " " & _
Monthname(Mid(fDate,5,2),1) & " " & _
Mid(fDate,7,2)
Case "ydmm"
chkDate1 = Mid(fDate,1,4) & " " & _
Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),1)
Case "dmmmy"
chkDate1 = Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),0) & " " & _
Mid(fDate,1,4)
Case "mmmdy"
chkDate1 = Monthname(Mid(fDate,5,2),0) & " " & _
Mid(fDate,7,2) & " " & _
Mid(fDate,1,4)
Case "ymmmd"
chkDate1 = Mid(fDate,1,4) & " " & _
Monthname(Mid(fDate,5,2),0) & " " & _
Mid(fDate,7,2)
Case "ydmmm"
chkDate1 = Mid(fDate,1,4) & " " & _
Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),0)
Case Else
chkDate1 = Mid(fDate,5,2) & "/" & _
Mid(fDate,7,2) & "/" & _
Mid(fDate,1,4)
End Select
' End If
End Function
%>
Posted - 18 January 2013 : 04:58:01
