Glömde.
Så här ser koden ut för forumet.
<!--#include file="functions.inc"-->
<%
Session("dbasepath") = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("forum.mdb")
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open Session("dbasepath")
SQLStmt = "SELECT * FROM Forums"
Set RS = Connection.Execute(SQLStmt)
%>
<html>
<head>
<link REL="stylesheet" HREF="styles/forum.css" TYPE="text/css">
<title>Forum.</title>
<meta name="Author" content="Michael Jenselius">
<meta name="Company" content="Intermedia Publishing AB">
<meta name="Publishied" content="1998">
<meta name="Copyright" content="Intermedia Publishing AB">
</head>
<body MARGINHEIGHT="0" MARGINWIDTH="0" bgcolor="#FFFFFF" text="#000000" topmargin="0" leftmargin="0" vlink="#0000FF">
<table border="0" width="600">
<tr>
<td width="188" valign="top" colspan="2"><img src="images/forumlogga.gif" alt="forumlogga.gif (3219 bytes)" WIDTH="265" HEIGHT="108"></td>
</tr>
<tr>
<td width="219" valign="top"><p align="right"><img src="images/dottedvertical.gif" alt="dottedvertical.gif (956 bytes)" WIDTH="2" HEIGHT="361"></td>
<td valign="top" width="589"><p align="left"><br>
<font face="Verdana" size="2"><%=RS("Description")%></font></p>
<p><img src="images/dottedline.gif" WIDTH="360" HEIGHT="2"></p>
<table border="0" width="400">
<tr>
<td width="204" align="center"><img src="images/back.gif" alt="back.gif (57 bytes)" WIDTH="12" HEIGHT="9"> <font face="Verdana"><b><small><a href="index.asp">Tillbaka till huvudmenyn</a></small></b></font></td>
<td width="188" align="center"><img src="images/post.gif" alt="havemail.gif (513 bytes)" WIDTH="12" HEIGHT="9"> <a href="forumpost.asp?ForumId=<%=RS("Id")%>"><strong><small><font face="Verdana">Posta
inlägg</font></small></strong></a></td>
</tr>
</table>
<table border="0" width="400">
<tr>
<td width="100%" bgcolor="#B3D9D9"><small><font face="Verdana"><strong>Forum:</strong> <%=RS("Forum")%></font></small></td>
</tr>
</table>
<table border="0" width="400">
<tr>
<td width="234" bgcolor="#B3D9D9"><strong><small><font face="Verdana">Rubriker</font></small></strong></td>
<td width="37" bgcolor="#B3D9D9"><strong><small><font face="Verdana">Svar</font></small></strong></td>
<td width="117" bgcolor="#B3D9D9"><strong><small><font face="Verdana">Senaste inlägg</font></small></strong></td>
</tr>
<% Do until RS2.EOF
SQLStmt = "SELECT Count(*) AS ItemCount FROM Entries Where ReplyId =" & RS2("Id")
SQLStmt = SQLStmt & " AND OrgThread <> TRUE"
Set RS3 = Connection.Execute(SQLStmt)
%>
<tr>
<td width="234" bgcolor="#F7F7F7"><small><font face="Verdana"><a href="viewmsg.asp?id=<%=RS2("Id")%>&ForumId=<%=RS("Id")%>"><%= HTMLTecken(RS2("Subject"))%></a><br>
<small><% ' = RS2("Subject")%> </small></font></small></td>
<td width="37" bgcolor="#D4D4D4" valign="top" align="left"><small><font face="Verdana"><%=RS3("ItemCount") %></font></small></td>
<td width="117" bgcolor="#F7F7F7" valign="top" align="left"><small><font face="Verdana"><%=RS2("FormDate")%></font></small></td>
</tr>
<%
RS2.MoveNext
Loop
RS.Close
RS2.Close
RS3.Close
%>
</table>
<p align="left"><img src="images/dottedline.gif" alt="dottedline.gif (909 bytes)" WIDTH="360" HEIGHT="2"></p>
<p> </td>
</tr>
</table>
</body>
</html>
<% Connection.Close %>