<%
dim admin,nn,ee
call openconn()
session("forumnavn") = request.querystring("forumnavn")
if session("agurkerersundt") = "ldfhjufmfo85jbfjst4" then admin = true
strSQL = "SELECT * FROM Forums where forumnavn like '" & session("forumnavn") & "'"
Set rs = dbc.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
nn = rs("name")
ee = rs("email")
strSQL = "SELECT *, date AS FormDate, date AS FormTime FROM Entries WHERE (ForumID =" & rs("Id") & ") ORDER BY ID DESC"
Set formatDate = dbc.Execute(strSQL)
If (formatDate.BOF Or formatDate.EOF) Then
dtmFormatDate = "Ingen indlęg" & " Forum oprettet af: " & nn & ""
Else
dtmFormatDate = formatDate("FormDate") & " Forum oprettet af: " & nn & ""
End If
strSQL = "SELECT Count(*) AS ItemCount FROM Entries Where (ForumID = " & rs("Id") & ")"
Set recordCount = dbc.Execute(strSQL)
strHTML = strHTML & "