<% Option Explicit %>
<%
'****************************************************************************************
'** Copyright Notice
'**
'** WebtriX Discussion Forum
'**
'** Copyright 2001-2002 All Rights Reserved.
'**
'****************************************************************************************
'Set the response buffer to true as we maybe redirecting
Response.Buffer = True
'Dimension variables
Dim rsForum 'Holds the recorset of the forums
Dim strReturnPage 'Holds the page to return to
Dim strForumName 'Holds the forum name
Dim lngForumID 'Holds the fourum ID
Dim strReturnPageProperties 'Holds the properties of the return page
'Get the forum page to return to
Select Case Request.QueryString("ReturnPage")
Case "Topic"
'Read in the forum and topic to return to
strReturnPage = "display_forum_topics.asp"
strReturnPageProperties = "?ReturnPage=Topic&ForumID=" & CInt(Request.QueryString("ForumID")) & "&PagePosition=" & CInt(Request.QueryString("PagePosition"))
'Read in the thread and forum to return to
Case "Thread"
strReturnPage = "display_topic_threads.asp"
strReturnPageProperties = "?ReturnPage=Thread&ForumID=" & CInt(Request.QueryString("ForumID")) & "&TopicID=" & CLng(Request.QueryString("TopicID")) & "&PagePosition=" & CInt(Request.QueryString("PagePosition")) & "&ThreadPage=" & Request.QueryString("ThreadPage")
'Read in the search to return to
Case "Search"
strReturnPage = "search.asp"
strReturnPageProperties = "?ReturnPage=Search&SearchPagePosition=" & Request.QueryString("SearchPagePosition") & "&search=" & Server.URLEncode(Request.QueryString("search")) & "&searchMode=" & Request.QueryString("searchMode") & "&searchIn=" & Request.QueryString("searchIn") & "&forum=" & Request.QueryString("forum") & "&searchSort=" & Request.QueryString("searchSort")
'Read in the private message to return to
Case "pm"
strReturnPage = "pm_welcome.asp"
strReturnPageProperties = "?ReturnPage=pm"
'Read in the active topic page to return to
Case "Active"
strReturnPage = "active_topics.asp"
strReturnPageProperties = "?PagePosition=" & CInt(Request.QueryString("PagePosition"))
'Else return to the forum main page
Case Else
strReturnPage = "default.asp"
strReturnPageProperties = "?ForumID=0"
End Select
%>
Tantra Connection...Discussion Forum Search