<% 
Set myConn = Server.CreateObject("ADODB.Connection")
		myConn.Open "DRIVER={MySQL}; Server=mydb6.surf-town.net; Database=spoforum; Uid=spoaddict; Password=spassersoren;"
strSQL = "SELECT forumstyle, startsidesettings FROM spobruger"&_
			" WHERE (username = '" & Session("NAME") & "')"
		Set rs = myConn.Execute(strSQL)

Request("i")
		
If isEmpty(Session("ID")) Then	
Server.Execute "forumthreads2.asp?ForumID=" & Request("i") & ""
Else
	If rs("forumstyle") = "1" Then
	Server.Execute "forumthreads2.asp?ForumID=" & Request("i") & ""
	ElseIf rs("forumstyle") = "2" Then
	Server.Execute "forumthreads3.asp?ForumID=" & Request("i") & ""
	ElseIf rs("forumstyle") = "3" Then
	Server.Execute "forumthreads4.asp?ForumID=" & Request("i") & ""
	ElseIf rs("forumstyle") = "4" Then
	Server.Execute "forumthreads5.asp?ForumID=" & Request("i") & ""
	Else
	Server.Execute "forumthreads1.asp?ForumID=" & Request("i") & ""
	END IF
END IF			
myConn.Close
Set myConn = Nothing	
%>