<%@LANGUAGE="VBSCRIPT"%> <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="" MM_authFailedURL="../../medlem/login/login_fejl.asp" MM_grantAccess=false If Session("MM_Username") <> "" Then If (true Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then MM_qsChar = "?" If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" MM_referrer = Request.ServerVariables("URL") if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL) End If %> <% Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open strDSN strSQL = "SELECT * FROM Forums" Set rs = myConn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then Do While Not rs.EOF strSQL = "SELECT *, Format$([date],'dd/mm/yyyy') AS FormDate, Format$([date],'hh:mm') AS FormTime FROM Entries WHERE (ForumID =" & rs("Id") & ") ORDER BY ID DESC" Set formatDate = myConn.Execute(strSQL) If (formatDate.BOF Or formatDate.EOF) Then dtmFormatDate = "Ingen indlæg" Else dtmFormatDate = formatDate("FormDate") End If strSQL = "SELECT Count(*) AS ItemCount FROM Entries Where (ForumID = " & rs("Id") & ")" Set recordCount = myConn.Execute(strSQL) strHTML = strHTML & "" & rs("Forum") & "
" & rs("Description") & "" strHTML = strHTML & "" & recordCount("ItemCount") & "" strHTML = strHTML & "" & dtmFormatDate & "" rs.MoveNext Loop End If myConn.Close Set myConn = Nothing %> Dansk frieser forbund Forum

Oversigt

Her kan du stille spørgsmål og debattere emner af interesse for Danskfrieserforbundsmedlemer.

Klik på emnet.

<%=strHTML%>

Emne	Antal indlæg	Seneste indlæg