<% Option Explicit %>
<%
'Set the response buffer to true as we maybe redirecting
Response.Buffer = True
'Dimension variables
Dim strReturnPage 'Holds the page to return to
Dim strReturnPageProperties 'Holds the properties of the return page
'Get the forum page to return to
Select Case Request.QueryString("RP")
Case "Topic"
'Read in the forum and topic to return to
strReturnPage = "Topics.asp"
strReturnPageProperties = "?CID=" & trim(CInt(Request.QueryString("CID"))) & "&FID=" & trim(CInt(Request.QueryString("FID"))) & "&RP=Topic&PP=" & CInt(Request.QueryString("PP"))
'Read in the thread and forum to return to
Case "Thread"
strReturnPage = "Threads.asp"
strReturnPageProperties = "?CID=" & trim(CInt(Request.QueryString("CID"))) & "&FID=" & trim(CInt(Request.QueryString("FID"))) & "&TID=" & trim(CLng(Request.QueryString("TID"))) & "&RP=Thread&PP=" & trim(CInt(Request.QueryString("PP"))) & "&THP=" & trim(Request.QueryString("THP"))
'Read in the search to return to
Case "Search"
strReturnPage = "Search.asp"
strReturnPageProperties = "?RP=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 = "?RP=pm"
'Read in the active topic page to return to
' in future unselect these option
'Case "Active"
' strReturnPage = "active_topics.asp"
' strReturnPageProperties = "?PP=" & CInt(Request.QueryString("PP"))
'Else return to the forum main page
Case Else
strReturnPage = "default.asp"
strReturnPageProperties = "?FID=0"
End Select
'Reset server objects
Set adoCon = Nothing
Set strCon = Nothing
'Redirect if not been through the registration process
%>
:: Register New User ::