%
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 & "
" & rs("Forum") & " " & rs("Description") & " | "
strHTML = strHTML & "" & recordCount("ItemCount") & " | "
strHTML = strHTML & " " & dtmFormatDate & ""
if admin then strHTML = strHTML & " Ret Slet"
strHTML = strHTML & " |
"
rs.MoveNext
Loop
End If
rs.close
call closeconn()
%>
<%=session("title")%> : FORUM
topmargin="2" leftmargin="0" marginwidth="0" marginheight="2">
>
border="2" width="100%" cellspacing="0" cellpadding="1" <%=tabelbg%>>
| >Forums |
align="center">Antal indlęg |
> Seneste indlęg |
<%
response.write strHTML
%>
| > | > | align="right">Opret Nyt Forum |
|