<!--#include file="masterinclude.asp"-->
<% if isEmpty(application(dbName&"category")) then response.redirect ("ini.asp") %>
<!--#include file="session.asp"-->
<!--#include file="js/io.asp"-->
<%
Dim m, objRS, objCom, strSQL, iNum, iThreadID, mpg, mpage, href, appid, tmode, gotoStyle, referredPage, p, ifMReferred
Dim go,toStyle
dim smode
isSearchEngine = isSearchEngineCompatible
go = request.queryString("go")
m = request.queryString("m")
appid = request.queryString("appid")
tmode = request.queryString("tmode")
smode = request.queryString("smode")
referredPage = request("http_referer")
p = request.queryString("p")
toStyle = request.queryString("toStyle")
if go = "" then go = "k"

if memViewPref = 0 or memViewPref = 2 or memBrowser <> "moz6" then ' link to message list
	gotoStyle = 0
else
	gotoStyle = memViewPref
end if

if toStyle = "" then 
	if gotoStyle = 0 then toStyle = "tm" else toStyle = "m"
end if

Dim key, language
key = request.queryString("key")

'response.write key
'response.end

if m<>"" then
		set objCom = server.createobject("adodb.command")
			With objCom
				.activeConnection = datastore 
				.commandText = dbOwnerPrefix&"spFB"
				.commandType = adCmdStoredProc
				.Parameters.Append .Createparameter("@m", adInteger, adParamInput, 0, m)
				.Parameters.Append .Createparameter("@num", adInteger, adParamOutput, 0)
				.Parameters.Append .Createparameter("@threadID", adInteger, adParamOutput, 0)
				.Parameters.Append .Createparameter("@go", adVarchar, adParamInput, 10, go)
				.Parameters.Append .Createparameter("@timeframe", adDBTimeStamp, adParamInput, 0, memlastvisit)
				
				.execute , , adExecuteNoRecords
				iNum = .parameters(1)
				iThreadID = .parameters(2)
			End With
		set objCom = nothing
		mpg = Application(dbName&"mpg")
		if iNum > mpg then
			if iNum mod mpg <> 0 then mpage = (iNum\mpg+1) else mpage = (iNum\mpg)
		else
			mpage = 1
		end if
	if go = "k" then ' link from default page
		if toStyle = "tm" then
			href = linkModifier("tm.asp?m="&iThreadID&"&appid="&appid&"&p="&p&"&mpage="&mpage&"&key="&Server.URLEncode(""&key)&"&tmode="&tmode&"&smode="&smode&"&s=")&"#"&m
		else
			href = "m.asp?m="&m&"&appid="&appid&"&mpage="&mpage&"&p="&p&"&key="&Server.URLEncode(""&key)&"&tmode="&tmode&"&smode="&smode
		end if
	else
		if go = "prev" or go = "next" then
			if not iThreadID = "" then
				href = linkModifier(request.queryString("viewType")&".asp?m="&iThreadID&"&tmode="&tmode&"&smode="&smode&"&p="&p)
			else
				response.redirect (referredPage)
				response.end
			end if
		else 
			if toStyle = "tm" then
				href = linkModifier("tm.asp?m="&m&"&appid="&appid&"&p="&p&"&mpage="&mpage&"&key="&Server.URLEncode(""&key)&"&tmode="&tmode&"&smode="&smode&"&s=")&"#"&iThreadID
			else
				href = "m.asp?m="&iThreadID&"&appid="&appid&"&mpage="&mpage&"&p="&p&"&key="&Server.URLEncode(""&key)&"&tmode="&tmode&"&smode="&smode
			end if
		end if
	end if
else 'link to message list
	href = linkModifier("tt.asp?appid="&appid&"&tmode="&tmode&"&smode="&smode)
end if
response.clear
'response.write href
'response.end
response.redirect(href)
response.end
%>