<!--#include file="includes/top.inc"-->
<%
  closeConn()
  OpenConn( "forum.mdb" )
  Dim strSQL, rs
	Const adOpenKeyset = 1
	Const adLockOptimistic = 3
  
  set rs = server.createobject("ADODB.recordset")
  
  strSQL = "SELECT * FROM Fora"
  rs.Open strSQL,conn, adOpenKeyset, adLockOptimistic
	Dim Forum
	Dim ForumBeskrivelse

	rs.AddNew
	rs("ForumNavn") = Request.Form("ForumNavn")
	rs("ForumBeskrivelse") = Request.Form("ForumBeskrivelse")
	rs.Update
	rs.Close
	Set rs = Nothing
%>
<!--#include file="includes/bottom.inc"-->
<%
	Response.Redirect("forum_opdater.asp?pageid=4")
%>