How to upgrade 7.01 to 7.5 selectively

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Well, basically I cut and paste the code (of search.asp) from 7.5 to 7.01... such that the last portion of my new search.asp looks like this.. (no changes to the other portions were made):

<table width="<% = strTableVariableWidth %>" border="0" cellspacing="0" cellpadding="4" align="center">
<tr>
<td><!-- #include file="includes/forum_jump_inc.asp" --></td>
<%
'If there is more than 1 page of topics then dispaly drop down list to the other topics
If intTotalNumOfPages > 1 Then
'Display an image link to the last topic
Response.Write (vbCrLf & " <td align=""right"" class=""text"">")

'Display a prev link if previous pages are available
If intRecordPositionPageNum > 1 Then Response.Write("<a href=""search.asp?KW=" & Server.URLEncode(Request.QueryString("KW")) & "&SM=" & strSearchMode & "&SI=" & strSearchIn & "&FM=" & intForumID & "&OB=" & Trim(Mid(Request.QueryString("OB"), 1, 3)) & "&SPN=" & intRecordPositionPageNum - 1 & """>&lt;&lt&nbsp;" & strTxtPrevious & "</a>&nbsp;")

Response.Write (strTxtPage & " " & _
vbCrLf & " <select onChange=""ForumJump(this)"" name=""SelectTopicPage"">")
'Loop round to display links to all the other pages
For intTopicPageLoopCounter = 1 to intTotalNumOfPages
'Display a link in the link list to the another topic page
Response.Write (vbCrLf & " <option value=""search.asp?KW=" & Server.URLEncode(Request.QueryString("KW")) & "&SM=" & strSearchMode & "&SI=" & strSearchIn & "&FM=" & intForumID & "&OB=" & Trim(Mid(Request.QueryString("OB"), 1, 3)) & "&SPN=" & intTopicPageLoopCounter & """")
'If this page number to display is the same as the page being displayed then make sure it's selected
If intTopicPageLoopCounter = intRecordPositionPageNum Then
Response.Write (" selected")
End If
'Display the link page number
Response.Write (">" & intTopicPageLoopCounter & "</option>")
Next
'End the drop down list
Response.Write (vbCrLf & " </select> " & strTxtOf & " " & intTotalNumOfPages)

'Display a next link if needed
If intRecordPositionPageNum <> intTotalNumOfPages Then Response.Write("&nbsp;<a href=""search.asp?KW=" & Server.URLEncode(Request.QueryString("KW")) & "&SM=" & strSearchMode & "&SI=" & strSearchIn & "&FM=" & intForumID & "&OB=" & Trim(Mid(Request.QueryString("OB"), 1, 3)) & "&SPN=" & intRecordPositionPageNum + 1 & """>" & strTxtNext & "&nbsp;&gt;&gt;</a>")

Response.Write("</td>")
End If

'Reset Server Objects
Set rsTopic = Nothing
Set rsCommon = Nothing
adoCon.Close
Set adoCon = Nothing
%>
</tr>
</table>