<% LanguageParser.IncludeSection "topic" Dim tid, arrTemp, strSortText, intSubId, finderror, arrDownload, objSysFile, i, arrDataFile, strFileName, arrTopic, intLocked, fid, cname, cid, sname, sid, arrWriteway, arrPoll, arrVote, posts, intColor, color, intTotalVotes, intSize, page, intLastPost, intPage, intPostsPerPage, intPostsTotal, intposts, strPaging, arrPosts 'Check if user has notify on and reset nseen in that case if instr(1,request.querystring("TID"),"#") <> 0 then tid = mid(request.querystring("TID"), 1, instr(1,request.querystring("TID"),"#")-1) tid = Clng(tid) Else tid = Clng(request.querystring("TID")) end if If hasnotify(tid, userid) then strSQL = "UPDATE aspbb_notify SET nseen=0 WHERE ntopicid= {0} AND nuser= {1}" objDAL.Execute strSQL, Array(tid, userid) End if Function DeleteFile(intFileId) If ModerateSub(userid, intSubId, 1) Then strSQL = "Select did,durl from aspbb_downloads where did = {0}" objDAL.Open arrDownload, strSQL, Array(Clng(intFileId)) set objSysFile = Server.CreateObject("Scripting.FileSystemObject") if objSysFile.FileExists(Server.MapPath(arrDownload(1, 0))) then objSysFile.DeleteFile Server.MapPath(arrDownload(1, 0)),true End if objDAL.Execute "Delete from aspbb_downloads where did = {0}", Array(arrDownload(0, 0)) objDAL.Execute "Update aspbb_topics Set tattach = 0 where tattach = {0}", Array(arrDownload(0, 0)) objDAL.Execute "Update aspbb_posts Set pattach = 0 where pattach = {0}", Array(arrDownload(0, 0)) End if End Function '/// Some administrative functions strSQL = "SELECT tforumid FROM aspbb_topics WHERE tid={0}" objDAL.Open arrTemp, strSQL, Array(tid) if not EOF(arrtemp) then intSubId = arrTemp(0, 0) else finderror = 1 end if if Request.QueryString("quickview") = "toggle" then if session("listmode") = 2 then session("listmode") = 1 else session("listmode") = 2 end if end if If Request.QueryString("action") = "lock" then If ModerateSub(userid, intSubId, 1) then objDAL.Execute "Update aspbb_topics set tlocked = 1 where tid ={0}", Array(tid) End if objDAL.Disconnect Response.Redirect("topic.asp?TID="& tid &"") End if If Request.QueryString("action") = "unlock" then If ModerateSub(userid, intSubId, 1) then objDAL.Execute "Update aspbb_topics set tlocked = 0 where tid ={0}", Array(tid) End if objDAL.Disconnect Response.Redirect("topic.asp?TID="& tid &"") End if If Request.QueryString("action") = "sticky" then If ModerateSub(userid, intSubId, 1) then objDAL.Execute "Update aspbb_topics set ttype = 2 where tid = {0}", Array(tid) End if objDAL.Disconnect Response.Redirect("topic.asp?TID="& tid &"") End if If Request.QueryString("action") = "nosticky" then If ModerateSub(userid, intSubId, 1) then objDAL.Execute "Update aspbb_topics set ttype = 0 where tid = {0}", Array(tid) End if objDAL.Disconnect Response.Redirect("topic.asp?TID="& tid &"") End if If Request.QueryString("action") = "delete_file" Then DeleteFile(Request.QueryString("fileid")) objDAL.Disconnect Response.Redirect("topic.asp?TID="& tid &"") End if if Request.QueryString("action") = "delete_topic" then dim postsintopic If ModerateSub(userid, intSubId, 1) or isMyTopic(userid, tid) then if isnumeric(tid) Then '// Get file attached to this topic strSQL = "SELECT tattach FROM aspbb_topics WHERE tid= {0}" objDAL.Open arrDataFile, strSQL, Array(tid) if not EOF(arrDataFile) then if arrDataFile(0, 0) <> 0 then DeleteFile(arrDataFile(0, 0)) end if End if '// Get files attached to replies under this topic strSQL = "SELECT pattach FROM aspbb_posts WHERE ptopicid= {0}" objDAL.Open arrDataFile, strSQL, Array(tid) if not EOF(arrDataFile) Then for i = 0 To Ubound(arrDataFile, 2) if arrDataFile(0, i) <> 0 then DeleteFile(arrDataFile(0, i)) end if Next End if postsintopic = objDAL.GetValue("Select Count(*) from aspbb_posts where ptopicid = {0}", Array(tid)) if len(postsintopic) = 0 then postsintopic = 0 else postsintopic = Clng(postsintopic) End if objDAL.Execute "Update aspbb_subcategory set sposts = sposts - {0}, stopics = stopics - 1 where sid = {1}", Array(postsintopic, intSubId) objDAL.Execute "Delete from aspbb_posts where ptopicid = {0}", Array(tid) objDAL.Execute "Delete from aspbb_topics where tid = {0} or toldid= {0}", Array(tid) End if End if Response.Redirect("forum.asp?forum_ID="& intSubId &"") End if if Request.QueryString("action") = "delete_post" then If ModerateSub(userid, intSubId, 1) or isMyPost(userid, chkstring(Request.QueryString("post"),1)) then if isnumeric(Request.QueryString("post")) then '/// First check if we need to delete a attachment strSQL = "SELECT pattach FROM aspbb_posts WHERE ptopicid= {0}" objDAL.Open arrDataFile, strSQL, Array(tid) if not EOF(arrDataFile) then if arrDataFile(0, 0) <> 0 Then DeleteFile(arrDataFile(0, 0)) End if end if objDAL.Execute "Delete from aspbb_posts where aspbb_posts.pid = {0}", Array(Request.QueryString("post")) objDAL.Execute "Update aspbb_topics Set tanswers = tanswers - 1 where tid = {0}", Array(tid) objDAL.Execute "Update aspbb_subcategory set sposts = sposts - 1 where sid = {0}", Array(intSubId) intLastPost = objDAL.GetValue("Select Count(*) from aspbb_posts where ptopicid = {0}", Array(tid)) if Clng(intLastPost) = 0 Then objDAL.Execute "Update aspbb_topics set tdatelast = tdatecreate where tid = {0}", Array(tid) Else intLastPost = objDAL.GetValue("Select Max(pdatecreate) from aspbb_posts where ptopicid = {0}", Array(tid)) objDAL.Execute "Update aspbb_topics set tdatelast = {0} where tid = {1}", Array(Clng(intLastPost), tid) End if End if End if Response.Redirect("topic.asp?sort="&Request.QueryString("sort")&"&page="&Request.QueryString("page")&"&TID="& tid &"") End if '/// End of administrative part if tid = "" then response.write LanguageParser.GetKey("errors", "ErrorGeneral") else If Clng(session("lastpost")) <> tid Then objDAL.Execute "UPDATE aspbb_topics set tseen=tseen+1 where tid = {0}", Array(tid) Session("lastpost") = tid End if '/// Display the topic strSQL = "Select aspbb_topics.tanswers, aspbb_topics.tlocked, aspbb_topics.tforumid, aspbb_topics.ttitle, aspbb_topics.ttype, aspbb_topics.tpoll, aspbb_topics.tbody, aspbb_topics.tattach, aspbb_topics.tdatechanged, aspbb_topics.tdatecreate, aspbb_topics.tip, "& _ "aspbb_members.mid, aspbb_members.muser, aspbb_members.mtitle, aspbb_members.mavatar, aspbb_members.mplace, aspbb_members.mreggad, aspbb_members.mwarnings, aspbb_members.msign, aspbb_topics.tnosmile, aspbb_topics.tforumid " & _ "from aspbb_topics inner join aspbb_members on aspbb_topics.tmemberid = aspbb_members.mid " & _ "where tid = {0}" objDAL.Open arrTopic, strSQL, Array(tid) If not EOF(arrTopic) then Response.Cookies("aspbb_newposts")(cstr(tid)) = arrTopic(0, 0) If Clng(arrTopic(1, 0)) = 1 then intLocked = 1 End if fid = arrTopic(2, 0) %>
<% '/// Write our current location in the forum strSQL = "SELECT aspbb_category.cid, aspbb_category.cname, aspbb_subcategory.sid, aspbb_subcategory.sname" & _ " FROM aspbb_category INNER JOIN aspbb_subcategory ON" & _ " aspbb_category.cid = aspbb_subcategory.suid where aspbb_subcategory.sid = {0}" objDAL.Open arrWriteway, strSQL, Array(fid) if not EOF(arrWriteway) Then cname = arrWriteway(1, 0) cid = arrWriteway(0, 0) sname = arrWriteway(3, 0) sid = arrWriteway(2, 0) End if '///Check if user have access to this topic If ModerateSub(userid, intSubId, 0) or readsub(userid,intsubid) or LimitedAccess(userid, intsubid) then %> <% =langStart %> > <%=cname%> > <%=sname%> > <%=Server.HTMLEncode(arrTopic(3, 0))%> <% '/// End of path writing '/// Display administrative options for moderators If ModerateSub(userid, intSubId, 1) then If arrTopic(1, 0) = 1 then Response.Write("
"& langUnlock &"
") Else Response.Write("
"& langLock & "
") End if If arrTopic(4, 0) = 2 then Response.Write("
"& langRemoveSticky &"
") Else Response.Write("
" & langMakeSticky &"
") End if End if '/// End of administrative options if not readsub(userid, intsubid) and not LimitedAccess(userid, intsubid) then %> <%if inside=1 Then %><%End if %> <% end if %>
<%= langQuickView %> <% if session("listmode") = 2 then response.write ""%>
<%If Clng(arrTopic(5, 0)) = 1 then strSQL = "Select poid, poquestion, poanswer, poexpires, povotes from aspbb_polls where potopicid = {0} order by poisquestion desc, poid asc" objDAL.Open arrPoll, strSQL, Array(tid) If inside = 1 and Request.QueryString("show") <> "score" then strSQL = "Select Count(vmemberid) as intRes from aspbb_votes where vmemberid = {0} and vtopicid = {1}" objDAL.Open arrVote, strSQL, Array(userid, tid) If cLng(arrVote(0,0)) = 0 Then posts = 0 Else posts = 1 End if Elseif Request.QueryString("show") = "score" and inside = 1 then posts = 1 Else posts = 1 End if if posts = 0 and Cdate(uTimeStamp(arrPoll(3, 0))) > now() then%> <% For i = 1 to Ubound(arrPoll, 2) If i mod 2 Then color = "aspbbcolor1" else color = "aspbbcolor2" end if%> <% Next If i mod 2 Then color = "aspbbcolor1" else color = "aspbbcolor2" end if%>
<%=arrPoll(1, 0)%>
<%=arrPoll(2, i)%>
<% =langPollStanding %><%If ModerateSub(userid, intSubId, 1) Then Response.Write(" "& langEditPoll &"")%>

<% Else intTotalVotes = objDAL.GetValue("Select Sum(povotes) As TotalVotes from aspbb_polls where potopicid = {0}", Array(tid)) %> <% if len(style) = 0 or style = "" then style = "style ASPBB_default_css.css" For i = 1 to Ubound(arrPoll, 2) If i mod 2 Then color = "aspbbcolor1" else color = "aspbbcolor2" end if%> <%If Not arrPoll(4, i) = 0 then intSize = Round((arrPoll(4, i)/intTotalVotes*100)) if intsize = 100 then intsize = intsize -1 %> <%Else%> <%End if%> <% Next If ModerateSub(userid, intSubId, 1) Then%> <%End if%>
<%=arrPoll(1, 0)%> <%If Cdate(uTimeStamp(arrPoll(3, 0))) < now() then Response.Write("
"& langPollEnded) elseif inside = 0 then Response.Write("
"& langSignToVote) End if %>
<%=arrPoll(2, i)%> <%=arrPoll(4, i)%> <%=Round((arrPoll(4, i)/intTotalVotes*100),2)%>%  0 0,00%
<%Response.Write(" "& langEditPoll &"")%>

<% End if End if '// Set up for paging intPostsPerPage = intReplyPerPage If Request.QueryString("COMMAND") = "GOTOLAST" then '/// Get total nr of post for paging system intPostsTotal = Clng(objDAL.GetValue("SELECT COUNT(*) FROM aspbb_posts where ptopicid = {0}", Array(tid))) if intPostsTotal > 0 Then If (intPostsTotal / intPostsPerPage) <> Fix(intPostsTotal / intPostsPerPage) then intposts = Fix(intPostsTotal / intPostsPerPage) + 1 else intposts = (intPostsTotal / intPostsPerPage) end if Page = intPosts Else Page = 1 End if end if dim listmode if session("listmode") = 2 then listmode = 2 else listmode = 1 end if '/// Normal mode display starts here ////////// if len(Page) = 0 then 'GOTOLAST has'nt been called if Request.QueryString("page") = "" then page = 1 else page = Clng(Request.QueryString("page")) end if end if intPage = page '/// Paging init code If page = 0 then page = 1 '/// Draw pagingsystem navigation Sub Paging(showpages) if listmode <> 2 then intPostsTotal = Clng(objDAL.GetValue("SELECT COUNT(*) FROM aspbb_posts where ptopicid = {0}", Array(tid))) If (intPostsTotal / intPostsPerPage) <> Fix(intPostsTotal / intPostsPerPage) then intposts = Fix(intPostsTotal / intPostsPerPage) + 1 else intposts = (intPostsTotal / intPostsPerPage) end if if intposts > 1 then if showpages = 1 then Response.Write "
" & langPages & ": " & intPosts & "" end if if intposts > 1 Then Response.Write(" (") If intPage > 1 Then Response.Write "" & langFirstPage & " ... " Response.write "<< " End If For i = intpage-4 to intpage+4 If i > intPosts Then Exit For if i <> cint(intPage) Then If i >= 1 Then response.write "" & i & " " End If else response.write " [" & i & "] " end if Next If intPage + 1 =< intposts Then Response.write ">> " Response.write " ... " & langLastPage & "" End if Response.Write ")" End if End if Response.Write("
") End if '/// End of pagingsystem navigation End Sub %> <% '// Display topic if we are on page 1 dim blnIsAntiBump blnIsAntiBump = AntiBump(tid) If page = 1 then %> <% End if '/// End of list topic if not listmode = 2 then '/// Normal display mode starts here /// strSQL = "Select aspbb_posts.pid, aspbb_posts.ptitle, aspbb_posts.pbody, aspbb_posts.pattach, aspbb_posts.pdatechanged, aspbb_posts.pdatecreate, aspbb_posts.pip, "&_ " aspbb_members.mid, aspbb_members.muser, aspbb_members.mtitle, aspbb_members.mavatar, aspbb_members.mplace, aspbb_members.mreggad, aspbb_members.mwarnings, aspbb_members.msign, aspbb_posts.pnosmile " & _ "from aspbb_posts inner join aspbb_members on aspbb_posts.pmemberid = aspbb_members.mid " & _ "where ptopicid = {0} order by aspbb_posts.pdatecreate ASC" objDAL.OpenPaged arrPosts, page, intPostsPerPage, strSQL, Array(tid) '/// List all replys to this topic If not EOF(arrPosts) then dim blnModerateSub blnModerateSub = ModerateSub(userid, intSubId, 1) For i = 0 To Ubound(arrPosts, 2) If i mod 2 Then color = "aspbbcolor1" else color = "aspbbcolor2" end if %> <% 'Check who made the last post intLastPost = Clng(arrPosts(7, i)) Next Else '/// Else if objPosts.EOF %> <% End if '/// Quick mode display starts here ////////// else intPostsperpage = 1 If not isEmpty(Request.QueryString("quickid")) Then strSQL = "Select aspbb_posts.pid, aspbb_posts.ptitle, aspbb_posts.pbody, aspbb_posts.pattach, aspbb_posts.pdatechanged, aspbb_posts.pdatecreate, aspbb_posts.pip, "&_ " aspbb_members.mid, aspbb_members.muser, aspbb_members.mtitle, aspbb_members.mavatar, aspbb_members.mplace, aspbb_members.mreggad, aspbb_members.mwarnings, aspbb_members.msign, aspbb_posts.pnosmile " & _ "from aspbb_posts inner join aspbb_members on aspbb_posts.pmemberid = aspbb_members.mid " & _ "where ptopicid = {0} and pid={1}" objDAL.GetRows arrPosts,1, strSQL, Array(tid,Request.QueryString("quickid")) %> <% end if strSQL = "Select aspbb_posts.pid, aspbb_posts.ptitle, aspbb_posts.pbody, aspbb_posts.pattach, aspbb_posts.pdatechanged, aspbb_posts.pdatecreate, aspbb_posts.pip, "&_ " aspbb_members.mid, aspbb_members.muser, aspbb_members.mtitle, aspbb_members.mavatar, aspbb_members.mplace, aspbb_members.mreggad, aspbb_members.mwarnings, aspbb_members.msign " & _ "from aspbb_posts inner join aspbb_members on aspbb_posts.pmemberid = aspbb_members.mid " & _ "where ptopicid = {0} order by aspbb_posts.pdatecreate ASC" objDAL.Open arrPosts, strSQL, Array(tid) '/// List all replys to this topic If not EOF(arrPosts) then response.write "
<% =langAuthor %> <% Response.Write "
" & langThread & "
" call paging(0) Response.Write "
" %>
<%=arrTopic(12, 0)%>
<%=arrTopic(13, 0)%>
<% If len(arrTopic(14, 0)) <> 0 then Response.Write "" End if If isOnline(arrTopic(11, 0)) then response.write "

 
" Else response.write "

 
" End if %>
<% =langLocation %>: <% =Server.HTMLEncode(arrTopic(15, 0)) %>
<% =langRegistred %>: <% =FormatDateTime(uTimeStamp(arrTopic(16, 0)), vbshortdate) %>    <% =langwarnings %>: <% =arrTopic(17, 0) %>
<%If arrTopic(18, 0) <> "" then%> <%End if%>
<%If Len(arrTopic(3, 0)) > 0 then Response.Write(""& Server.HTMLEncode(arrTopic(3, 0)) &"
") End if%> <% Response.Write ASPBBCode(arrTopic(6, 0), arrTopic(19, 0)) '///Check for attachment If arrTopic(7, 0) <> 0 then Response.Write "

" & download(arrTopic(7, 0),"show") End if If arrTopic(8, 0) <> 0 Then Response.Write "


(" & langLastEdit &": " & uTimeStamp(arrTopic(8, 0)) & ")" End if intLastPost = arrTopic(11, 0) %>
__________________
<% Response.Write ASPBBCode(arrTopic(18, 0),mimgsigns) 'mimgsigns for displaying of images in signature or not %>
<%=PostDate(arrTopic(9, 0))%> <%if inside=1 and Clng(arrTopic(11, 0)) <> Clng(userId) then%> <% =langPM %> - <%end if if (isTopicLocked(tid) = 0 and inside = 1) AND (blnIsAntiBump = false or ModerateSub(userid, arrTopic(20,0), 1)) Then %> <% =langQuote %> - <% End if %> <% if inside=1 then%> <% =langReport %> - <%end if%> <%if isTopicLocked(tid) = 0 or ModerateSub(userid, intSubId, 1) Then If Clng(userID) = Clng(arrTopic(11, 0)) or ModerateSub(userid, intSubId, 1) then Response.Write(" " & langEdit & " - ") end if End if%> <% =langLink %> - <%If ModerateSub(userID, intSubId, 1) or Clng(arrTopic(11, 0)) = Clng(userid) then Response.Write(""& langDelete &" - ") End if%> Ip: <%If not ModerateSub(userid, intSubId, 1) then Response.Write(langLogged) else Response.Write(arrTopic(10, 0))%> - <% = langQuote %>:
<%=arrPosts(8, i)%>
<%=arrPosts(9, i)%>
<% If len(arrPosts(10, i)) <> 0 then Response.Write " " End if If isOnline(arrPosts(7, i)) then response.write "

 
" Else response.write "

 
" End if %>
<% =langLocation %>: <% =Server.HTMLEncode(arrPosts(11, i)) %>
<% =langRegistred %>: <% =FormatDateTime(uTimeStamp(arrPosts(12, i)), vbShortDate) %>      <% =langwarnings %>: <% =arrPosts(13, i) %>
<%If arrPosts(14, i) <> "" then%> <%End if%>
<%If Len(arrPosts(1, i)) > 0 then Response.Write(""& arrPosts(1, i) &"
") End if%> <% Response.Write ASPBBCode(arrPosts(2, i), arrPosts(15, i)) '///Check for attachment If arrPosts(3, i) <> 0 then Response.Write "

" & download(arrPosts(3, i),"show") End if If arrPosts(4, i) <> 0 Then Response.Write "


("& langLastEdit &": " & uTimeStamp(arrPosts(4, i)) & ")" End if %>
__________________
<% Response.Write ASPBBCode(arrPosts(14, i), mimgsigns) 'mimgsigns for displaying images in signature or not %>
<%=PostDate(arrPosts(5, i))%> <% if inside=1 And Clng(arrPosts(7, i)) <> Clng(userId) then%><% =langPM %> - <%end if%> <% if (isTopicLocked(tid) = 0 and inside = 1) AND (blnIsAntiBump = false or blnModerateSub) Then%><% =langQuote %> -<%end if%> <% if inside=1 then %> <% =langReport %> -<% end if %> <% if isTopicLocked(tid) = 0 or blnModerateSub Then If Clng(userID) = Clng(arrPosts(7, i)) or ModerateSub(userid, intSubId, 1) then Response.Write(" " & langEdit &" - ") end if End if %> <% =langLInk %> - <%If blnModerateSub or Clng(arrPosts(7, i)) = Clng(userid) then Response.Write(""& langDelete &" - ") End if%> Ip: <%If not blnModerateSub then Response.Write(langLogged) else Response.Write(arrPosts(6, i))%> - <%= langQuote %>:
<% = langNoAnswers %>
<%=arrPosts(8, 0)%>
<%=arrPosts(9, 0)%>
<% If len(arrPosts(10, 0)) <> 0 then Response.Write " " End if If isOnline(arrPosts(7, 0)) then response.write "

 
" Else response.write "

 
" End if %>
<% =langLocation %>: <% =Server.HTMLEncode(arrPosts(11, 0)) %>
<% =langRegistred %>: <% =FormatDateTime(uTimeStamp(arrPosts(12, 0)), vbShortDate) %>          <% =langwarnings %>: <% =arrPosts(13, 0) %>
<%If arrPosts(14, 0) <> "" then%> <%End if%>
<%If Len(arrPosts(1, 0)) > 0 then Response.Write(""& arrPosts(1, 0) &"
") End if%> <% Response.Write ASPBBCode(arrPosts(2, 0),arrPosts(15, 0)) '///Check for attachment If arrPosts(3, 0) <> 0 then Response.Write "

" & download(arrPosts(3, 0),"show") End if If arrPosts(4, 0) <> 0 Then Response.Write "


("& langLastEdit &": " & uTimeStamp(arrPosts(4, 0)) & ")" End if %>
__________________
<%=ASPBBCode(arrPosts(14, 0),arrPosts(15, 0))%>
<%=PostDate(arrPosts(5, 0))%> <%if inside=1 then%><% =langPM %> - <%end if%> <% if isTopicLocked(tid) = 0 and inside = 1 Then%><% =langQuote %> -<%end if%> <% if inside=1 then %> <% =langReport %> -<% end if %> <% if isTopicLocked(tid) = 0 or ModerateSub(userid, intSubId, 1) Then If Clng(userID) = Clng(arrPosts(7, 0)) or ModerateSub(userid, intSubId, 1) then Response.Write(" " & langEdit &" - ") end if End if %> <% =langLInk %> - <%If ModerateSub(userID, intSubId, 1) or Clng(arrPosts(7, 0)) = Clng(userid) then Response.Write(""& langDelete &" - ") End if%> Ip: <%If not ModerateSub(userid, intSubId, 1) then Response.Write(langLogged) else Response.Write(arrPosts(6, 0))%> - <%= langQuote %>:
" response.write "" Response.Write "" Dim image, strText for i = 0 to uBound(arrPosts,2) if i mod 2 then Response.Write "" next response.write "
 
QuickView: " & arrTopic(3, 0) & " - " & arrTopic(12,0) & " " & uTimeStamp(arrTopic(9,0)) & "
" Else Response.Write "
" End if if cInt(Request.QueryString("quickid")) = arrPosts(0,i) then response.write "  " if trim(arrPosts(1,i)) <> "" then strText = stripbb(arrPosts(1, i)) Response.Write " " & strText & " - " & arrPosts(8,i) & " " & uTimeStamp(arrPosts(5,i)) & "" else strText = stripbb(arrPosts(2, i)) Response.Write " " & left(strText,60) & "... - " & arrPosts(8,i) & " " & uTimeStamp(arrPosts(5,i)) & "" end if Response.Write "
 
" end if end if Else '//User has no access to this part of the forum Response.Write "
" & LanguageParser.GetKey("errors", "NoAccess") Response.End End if %> <% =langStart %> > <%=cname%> > <%=sname%> > <%=Server.HTMLEncode(arrTopic(3, 0))%>
<% If (isTopicLocked(tid) = 0 or ModerateSub(userid, intSubId, 1)) and inside = 1 and not readsub(userid, intsubid) then If (intLastPost <> userID or blnAntiBump = false) or ModerateSub(userid, intSubId, 1) then%>
<% =langReply %>


<% End if if readsub(userid, intsubid) then response.write "Read Only" end if end if '///Draw paging Call Paging(1) Else Response.write "" Response.write "
" & LanguageParser.GetKey("errors", "ErrorGeneral") &"
" & LanguageParser.GetKey("errors", "ErrorGeneralLong") & "
" End if if not finderror = 1 then%>
<% =langQuickReply %>
<%if inside = 1 and not readsub(userid,intsubid) and (intLocked <> 1 or ModerateSub(userid, intSubId, 1)) and (intLastPost <> userID or blnAntiBump = false) or ModerateSub(userid, intSubId, 1) then%>

<%Elseif intLocked = 1 and not ModerateSub(userid, intSubId, 1) then Response.Write(langThreadLocked) Elseif inside = 0 and intLocked <> 1 then Response.Write(LanguageParser.GetKey("errors", "NotLoggedIn")) End if%>
<%end if end if %>