|
work mule
Senior Member
USA
1358 Posts |
 Posted - 17 August 2001 : 18:45:45
|
You'll see where I inserted the code.
This should work. If it doesn't, then you may have to make sure that both variables are converted to numbers for comparison purposes.
********** Mine looks like: ----------------------------------------------------------------
<%
' ### TOPIC REVERSE MOD ###
' Commented out so you could see where it was originally.
' if mypage = 1 then
' Call GetFirst()
' end if
' ### TOPIC REVERSE MOD ###
rsTopic.close
set rsTopic = Nothing
'## Forum_SQL
strSql = "UPDATE " & strActivePrefix & "TOPICS "
strSql = strSql & " SET " & strActivePrefix & "TOPICS.T_VIEW_COUNT = (" & strActivePrefix & "TOPICS.T_VIEW_COUNT + 1) "
strSql = strSql & " WHERE (" & strActivePrefix & "TOPICS.TOPIC_ID = " & Topic_ID & ");"
my_conn.Execute (strSql)
if rsReplies.EOF or rsReplies.BOF then '## No replies found in DB
Response.Write ""
else
intI = 0
howmanyrecs = 0
rec = 1
do until rsReplies.EOF or (mypage = 1 and rec > CInt(strPageSize)) or (mypage > 1 and rec > CInt(strPageSize)) '**
Reply_Content = rsReplies("R_MESSAGE")
if intI = 0 then
CColor = strAltForumCellColor
else
CColor = strForumCellColor
end if
%>
********** Mine looks like: ----------------------------------------------------------------
<%
rsReplies.MoveNext
intI = intI + 1
if intI = 2 then
intI = 0
end if
rec = rec + 1
loop
end if
' ### TOPIC REVERSE MOD ###
if (mypage = maxpages) OR (maxpages="") then
Call GetFirst()
end if
' ### TOPIC REVERSE MOD ###
%>
</table></td>
</tr>
<tr>
<td colspan="2">
<table border="0" width="100%">
<tr>
<td>
<% if maxpages > 1 then %>
<table border=0>
<tr>
<td valign="top"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Topic is <% =maxpages %> Pages Long: </font></td>
<td valign="top"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% Call Paging() %></font></td>
</tr>
</table>
<% else %>
<td valign="top"> </td>
<% end if %>
</td>
<td align="right" nowrap>
<% if (AdminAllowed = 1) then %>
<% call AdminOptions() %>
<% else %>
<% end if %>
</td>
</tr>
</table></td>
</tr>
</table>
</div>
<table width="100%">
<tr>
<td align="center" valign="top" width="70%"><% Call PostingOptions() %></td>
<td align="center" valign="top" width="30%"><!--#INCLUDE FILE="inc_jump_to.asp" --></td>
</tr>
</table>
<%
********** END: ----------------------------------------------------------------
|
 |
|
Topic Locked
