Så skulle det gerne virke...
DEBAT.ASP:
--------------
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html xmlns="
http://www.w3.org/1999/xhtml"><% response.buffer = true %>
<%
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/debat.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strDSN
%>
<%
sql ="SELECT * FROM debattype Where ID=" & Request.Querystring("id")
Set Rs = Conn.Execute(sql)
%>
<head>
<title>Velkommen til Jernløse IF Håndbold > DEBATFORUM > DEBAT OM KAMPENE</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../typo.css" rel="stylesheet" type="text/css">
<meta name="keywords" content="håndbold, jernløse, JIF, klub, forening, idræt, handball, regstrup, håndboldklub, håndboldforening, idrætsforening, motion, herrehåndbold, damehåndbold">
<meta name="description" content="Motion og sammenhold">
</head>
<body bgcolor="#7B9FB3" marginwidth="0" marginheight="0" topmargin="0" bottommargin="0">
<font color="#7B9FB3"></font>
<table width="750" height="508" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" id="main" style="border: 1px solid #000000;">
<!--DWLayoutTable-->
<tr >
<td height="68" colspan="3" valign="top" background="../pic/bg_top.jpg"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr>
<td height="25" colspan="3" valign="top" background="../pic/gif/bg_topmenu.gif">
<!--#include file="../menu.inc"-->
</td>
</tr>
<tr>
<td width="153" height="371" valign="top">
<!--VENSTRE MENU START-->
<p> </p>
<p>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="
http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="153" height="300">
<param name="movie" value="../menu.swf" />
<param name="quality" value="high" />
<embed src="../menu.swf" quality="high" pluginspage="
http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="153" height="300"></embed></object>
</p></td>
<td width="15" valign="top" background="../pic/gif/vertikal.gif"><!--DWLayoutEmptyCell--> </td>
<td width="604" valign="top">
<!--MAIN START-->
<p><br />
<% do until rs.EOF %>
<span class="overskrift-1">Debatforum > <%=rs("type") %></span><br />
<br />
</p>
<table width="95%" border="0" cellpadding="1" cellspacing="0" style="border: 1px solid #cccccc;">
<!--DWLayoutTable-->
<tr>
<td colspan="4" valign="top" style="background-color=#DAE6F4;"> <%=rs("type") %></td>
<td colspan="2" valign="top" style="background-color=#DAE6F4;"><a href="#">
<div align="right" onClick="history.back();">< tilbage </div>
</a></td>
<% rs.movenext
loop %>
<% rs.close
set rs = nothing %>
</tr>
<tr valign="top">
<td width="54">dato</td>
<td width="18">ID</td>
<td width="230">overskrift</td>
<td colspan="2">navn</td>
<td width="47"> </td>
</tr>
<%
sql ="SELECT * FROM traad Where typeID=" & Request.Querystring("id") & " order by traadid desc"
Set Rs = Conn.Execute(sql)
%>
<% do until rs.EOF %>
<tr>
<td><%=rs("dato") %></td>
<td><%=rs("traadID") %></td>
<td><a href="kommentar.asp?id=<%=Rs("traadid")%>&debatid=<%=Request.Querystring("id")%>"><%=rs("overskrift") %></a></td>
<td colspan="2"><%=rs("navn") %></td>
<td> </td>
</tr>
<% rs.movenext
loop %>
<% rs.close
set rs = nothing %>
<tr>
<td height="20"> </td>
<td> </td>
<td> </td>
<td width="151"> </td>
<td width="11"> </td>
<td> </td>
</tr>
</table>
<p></p>
<table width="95%" border="0" style="border: 1px solid #cccccc;">
<form name="opret" id="opret" method="post" action="add.asp?id=<%=request("id")%>">
<tr>
<td colspan="3" style="background-color=#DAE6F4;"> Opret en ny tråd:</td>
</tr>
<tr>
<td width="36%">navn:
<input type="text" name="navn" /> </td>
<td width="64%">overskift:
<input type="text" name="overskrift" size="37" /></td>
<td width="12%" rowspan="2">
</td>
</tr>
<tr>
<td colspan="2" valign="top">Besked:
<textarea name="besked" cols="53" rows="5" id="besked"></textarea>
<input type="submit" name="Submit" value="Opret" style="background-color: #ffffff"/>
<input type="hidden" name="dato" size="18" value="<%=(NOW)%>" />
<input type="hidden" name="typeID" size="18" value=" <%=Request.Querystring("id") %>" />
</td>
</tr>
</form>
</table>
<p></p>
</td>
</tr>
<tr valign="middle">
<td height="20" colspan="3">
<!--#include file="../bund.inc"-->
</td>
</tr>
</table>
</body>
</html>