<%
Option Explicit
Dim section,sql,username,level,forumid,rsForum
username = Request.Cookies("pb_username")
level = Request.Cookies("level")
forumid = Request.QueryString("forumid")
%>
<%
sql = "SELECT * FROM forums WHERE forumid = " & forumid
Set rsForum = Server.CreateObject("ADODB.Recordset")
rsForum.Open sql, conn, 3, 3
%>
Philboard
tilbage til <%=rsForum("forumname")%> | tilbage til forum index | log ind | <%if username <> "" then Response.Write("log ud | ") end if%>ny bruger | hjælp | sidste emner | søg
Post nyt emne
Forum : <%=rsForum("forumname")%>
<%if username <> "" then%>
<%if CInt(level) < rsForum("level") then%>
Desværre, du har ikke ret til at poste i dette forum.
<%else%>
<%end if%>
<%else%>
Du skal være logget ind for at poste et nyt emne!
<%end if%>
<%
rsForum.close
set rsForum = nothing
conn.close
set conn = nothing
%>