<% 
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 "viewmsg2.asp"
Else
	If rs("forumstyle") = "1" Then
	Server.Execute "viewmsg2.asp"
	ElseIf rs("forumstyle") = "2" Then
	Server.Execute "viewmsg3.asp"
	ElseIf rs("forumstyle") = "3" Then
	Server.Execute "viewmsg4.asp"
	ElseIf rs("forumstyle") = "4" Then
	Server.Execute "viewmsg5.asp"
	Else
	Server.Execute "viewmsg1.asp"
	END IF
END IF			
myConn.Close
Set myConn = Nothing	
%>