<% 
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)

If isEmpty(Session("ID")) Then	
Server.Execute "default.asp"
Else
	If rs("forumstyle") = "1" Then
	Server.Execute "/forum2/default.asp"
	Else
	Server.Execute "default.asp"
	END IF
END IF			
myConn.Close
Set myConn = Nothing	
%>