<% closeConn() OpenConn( "forum.mdb" ) Dim strSQL, frs set frs = server.createobject("ADODB.recordset") strSQL = "SELECT * FROM Fora" frs.Open strSQL,conn %>

<% ' -> DETTE ER MEDDELELSEN OM, AT DATABASEN ER TOM. Dim strErr strErr = "Intet forum oprettet!" If frs.EOF Then strErr = ""& strErr &""%>

Intet forum oprettet!

<%Else If Not (frs.BOF Or frs.EOF) Then Do While Not frs.EOF%>

');"><%=frs("ForumNavn")%>

<% frs.MoveNext Loop End If End If frs.Close Set frs = Nothing %> <%response.flush%>

<%response.write setupClubName if right(setupClubName,1) <> "s" then response.write "s" else response.write "'" end if%> Forum

<%response.flush%>