Selvfølgelig må I det ;o)
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database/fladbuk.mdb")
sql = "SELECT TOP 5 * FROM PORTAL_MEMBERS INNER JOIN (PORTAL_TOPICS INNER JOIN PORTAL_REPLY ON (PORTAL_TOPICS.TOPIC_ID = PORTAL_REPLY.TOPIC_ID) AND (PORTAL_TOPICS.FORUM_ID = PORTAL_REPLY.FORUM_ID) AND (PORTAL_TOPICS.CAT_ID = PORTAL_REPLY.CAT_ID)) ON (PORTAL_MEMBERS.MEMBER_ID = PORTAL_TOPICS.T_AUTHOR) AND (PORTAL_MEMBERS.MEMBER_ID = PORTAL_REPLY.R_AUTHOR) ORDER BY PORTAL_REPLY.R_DATE DESC"
Set rs = Conn.Execute (sql)
%>
</font>
<p> <font face="Courier New, Courier, mono" size="3">
<%
if rs.EOF then
%>
<span class="overskrift"><font color="#FF0000"><b>Ingen anmeldelser
endnu! </b></font> </span>
<%
else
%>
</font></p>
<div align="center">
<table height="8" cellspacing="1" align="center" cellpadding="2" border="0" bgcolor="#000000" width="700">
<tr bgcolor="#CCCCCC">
<td width="82%">
<div align="center"><font face="Courier New, Courier, mono" size="3" color="#333333"><b>Seneste
anmeldelse</b></font></div>
</td>
</tr>
<%
Do Until rs.EOF
%>
<tr bgcolor="#E5E5E5">
<td width="82%"> <strong><font size="2">Emne:
<% = rs("T_SUBJECT") %>
</font></strong><font size="2"> </font><br>
<font size="2">Indsat af:
<% = rs("M_NAME") %>
Sidste besvaret af:
<% = rs("T_LAST_POST_AUTHOR") %>
den
<% = rs("R_DATE") %><br>
Link:
<% = rs("TOPIC_ID") %>
</font><br>
</a> <font color="#FF0000" size="2"> </font></font></td>
</tr>
<%
rs.MoveNext
Loop
%>
<p></p>
</table>
</div>
<font face="Courier New, Courier, mono" size="2">
<p>
<% end if
rs.Close
Conn.Close
Set rs = Nothing
Set Conn = Nothing
%>
</p>
</html>
