Open up view_announcements.asp and around line 133 you'll find this code, add the line in red:
%>
<a name="<%=rs("A_ID")%>"></a>
<tr>
<td bgcolor="<% =CColor %>" valign="top" nowrap>
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b><% =ChkString(rs("A_SUBJECT"),"display") %></b></font></td>
<td bgcolor="<% =CColor %>" valign="top"><img src="icon_posticon.gif" border="0" hspace="3"><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">Posted by <% =rs("A_AUTHOR") %> (<% =ChkDate(rs("A_START_DATE")) %> through <% =ChkDate(rs("A_END_DATE")) %>)<% if AdminAllowed = 1 then %> <a href="JavaScript:openWindow('pop_announce_delete.asp?mode=Announcement&A_ID=<% =rs("A_ID") %>')"><img src="icon_delete_reply.gif" height=15 width=15 alt="Delete Announcement" border="0" align="absmiddle" hspace="6"></a><% end if %><% if rs("A_END_DATE") < DatetoStr(Now()) then %><font color="<% =strActiveLinkColor %>">(This Announcement has expired)<% end if %><% if rs("A_START_DATE") > DatetoStr(Now()) then %><font color="<% =strActiveLinkColor %>">(This Announcement has not started yet)<% end if %></font></font>
<hr noshade size="<% =strFooterFontSize %>">
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =formatStr(rs("A_MESSAGE")) %><a href="#top"><img src="icon_go_up.gif" height=15 width=15 border="0" align="right" alt="Go to Top of Page"></a></font></td>
</tr>
<%
Now I don't have a copy of the scrolling version so I can't show you exactly what needs changed but all you need to do is look in the include file that displays the announcements and find where it write the link. Then just add #<%=rs("A_ID")%> after view_announcements.asp and it should work.
If you post a text version of the include file I can give you a defenate answer.
Hope this helps.
Good things come to those who wait.
http://www.freeasphost.co.uk/evolution/
Topic Locked
Posted - 10 April 2002 : 17:57:28
