• Highlights keywords in threads accessed from search page results.

quote:

---

Originally posted by Nathan
Demo: http://www.ls3k.com/shighlight/

---

quote:

---

Originally posted by blackinwhite

for those who use "polls mod", an extra change can be needed for the Poll question:... line.

---

quote:

---

if (AdminAllowed = 1) or (lcase(strNoCookies) = "1") then %>
 <a href="JavaScript:openWindow('pop_delete.asp?<%= ArchiveLink %>mode=Topic&TOPIC_ID=<% =Topic_ID %>&FORUM_ID=<% =Forum_ID %>&CAT_ID=<% =Cat_ID %>&Topic_Title=<% =ChkString(Topic_Subject,"JSurlpath") %>')"><img border="0" src="icon_delete_reply.gif" alt="Delete Topic" height=15 width=15 hspace=6></a>
<% end if %>
<hr noshade size="1">

<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% if request("SearchTerms") = "" then response.write formatStr(Topic_Message) else response.write SearchHighlight(formatStr(Topic_Message)) end if'Ls3k Search Highlight :: Modified%></font></td>

</tr>
<%
End Sub

---

quote:

---

if (AdminAllowed = 1) or (lcase(strNoCookies) = "1") then %>
 <a href="JavaScript:openWindow('pop_delete.asp?<%= ArchiveLink %>mode=Topic&TOPIC_ID=<% =Topic_ID %>&FORUM_ID=<% =Forum_ID %>&CAT_ID=<% =Cat_ID %>&Topic_Title=<% =ChkString(Topic_Subject,"JSurlpath") %>')"><img border="0" src="icon_delete_reply.gif" alt="Delete Topic" height=15 width=15 hspace=6></a>
<% end if %>
<hr noshade size="1">
<% ' ###################### Poll Mod ########################
if rsTopic("T_ISPOLL") then %>
<% if (Request.Querystring("pollresults") <> "1") and ((Cat_Status <> 0) and (Forum_Status <> 0) and (Topic_Status <> 0)) then%>
<table border="0" width="100%">
<tr>
<td valign="top">
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Poll Question:</b></font><br>
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =formatStr(Topic_Message) %></font>
<table border="0" width="100%">
<form method="POST" action="topic.asp?TOPIC_ID=<%=Topic_ID%>&pollresults=1" name="Vote">
<tr>
<td width="100%" bgcolor="<% =strForumFirstCellColor %>" align="left">
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><br><b>Choices:</b></font><br>

<%
Dim nDef
Dim nTotal
Dim nnTotal

For nCount=1 To 8
If trim(vAnswers(nCount)) <> "" Then %>
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><input type="radio" value="<%=nCount%>" name="R1"><%=vAnswers(nCount)%></font><br>
<% End If
Next%>
</td>
</tr>
<% if rsTopic("T_ISPOLL") then %>
<tr>
<td width="100%" bgcolor="<% =strForumFirstCellColor %>" align="left"><br>
<% if strGfxButtons <> "0" then %>
<input type="image" src="vote.gif" name="vote" border="0" hspace="5">
<% else %>
<input type="submit" value="Vote Now!" name="vote">
<% end if %>
<input name="Method_Type" type="hidden" value="Vote">
<input name="TOPIC_ID" type="hidden" value="<% =ChkString(Topic_ID, "hidden") %>">
<input name="MEMBER_ID" type="hidden" value="<% =getMemberNumber(strDBNTUserName) %>">
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="topic.asp?TOPIC_ID=<%=Topic_ID%>&pollresults=1">View Results</a></font>
</td>
</tr>
<% end if %>
</form>
</table>
<% if strWhoVotes = "members" and mlev = 0 then %>
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><b>Who Can Vote?</b> Only Members can vote. You need to <a href="policy.asp">register</a> or be logged in to vote.</font>
<% end if %>
</td>
</tr>
</table>
<% end if
else %>
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =formatStr(Topic_Message) %></font>
<% end if %>

<% if rsTopic("T_ISPOLL") then
if (Request.Querystring("pollresults") = "1") or ((Cat_Status = 0) or (Forum_Status = 0) or (Topic_Status = 0)) then %>
<table border="0" width="100%">
<tr>
<td valign="top">
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Poll Question:</b></font><br>
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =formatStr(Topic_Message) %></font><br><br>
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Results:</b></font>
<table border="0" cellpadding="3" align="left" width="100%">
<tr>
<td>
<table border="0" cellPadding="3" cellSpacing="0" width="95%" align="center">
<%
Dim nMaxValue, nLowValue

'First of all get max value and nLowValue
nMaxValue = 0
For nCount=1 To 8
If trim(vAnswers(nCount)) <> "" and vCount(nCount) > nMaxValue Then
nMaxValue = vCount(nCount)
End If
Next

If nMaxValue = 0 Then
nMaxValue = 1
End If

Dim nMaxWidth
Dim vPercent(100)
nMaxWidth = 200 'This is number of pixels for maxvalue
Dim nThisVal, nPercent

nTotal = 0
nnTotal = 0

'1. Go through all and get total
For nCount = 1 To 8
If trim(vAnswers(nCount)) <> "" Then
nTotal = nTotal + vCount(nCount)
nnTotal = nnTotal + vCount(nCount)
End If
Next

If nnTotal = 0 Then
nnTotal = 1
End If

'2. Go through all and get percent
For nCount = 1 To 8
If trim(vAnswers(nCount)) <> "" Then
vPercent(nCount) = FormatNumber(vCount(nCount)/nnTotal*100,1)
End If
Next

For nCount=1 To 8
If trim(vAnswers(nCount)) <> "" Then
nThisVal = FormatNumber(vCount(nCount)/nMaxValue * nMaxWidth,0)
%>
<tr>
<td width="30%"><font face="<% =strDefaultFontFace %>" color="<% =strForumFontColor %>" size="<% =strDefaultFontSize %>"><%=vAnswers(nCount)%></font></td>
<td nowrap><font face="<% =strDefaultFontFace %>" color="<% =strForumFontColor %>" size="<% =strDefaultFontSize %>"><img src="bar.gif" width="<%=nThisVal%>" height="10">  (<%=vPercent(nCount)%> %)</font></td>
<td nowrap width="10%"><font face="<% =strDefaultFontFace %>" color="<% =strForumFontColor %>" size="<% =strDefaultFontSize %>"><%=vCount(nCount)%> votes</font></td>
</tr>
<%
End If
Next
%>
</table>
</td>
</tr>
<tr>
<td align="center"><font face="<% =strDefaultFontFace %>" color="<% =strForumFontColor %>" size="<% =strFooterFontSize %>"><br><b>Total Votes:</b> <%=nTotal%> counted<br>
<b>Last Vote:</b> <% =ChkDate(rsTopic("T_LAST_VOTE")) & ChkTime(rsTopic("T_LAST_VOTE")) %></font></td>
</tr>
</table>
</td>
</tr>
</table>
<% end if
end if
' #####################################################################################
%> </td>

<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% if request("SearchTerms") = "" then response.write formatStr(Topic_Message) else response.write SearchHighlight(formatStr(Topic_Message)) end if'Ls3k Search Highlight :: Modified%></font></td>

</tr>
<%
End Sub

---

quote:

---

Originally posted by richfed

That's a total of 5 changes on topic.asp.

---