loop til hudløshed
hvad er der galt her ???<%
bogen = request.querystring(\"bogid\")
%>
<%
strConn = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"../bebop.mdb\")
Set objRS4 = Server.CreateObject(\"ADODB.RecordSet\")
strQ4 = \"SELECT DISTINCT bognummer,artikelid,titel FROM presse WHERE bognummer = \" & bogen & \"\"
objRS4.Open strQ4, strConn
Set objRS5 = Server.CreateObject(\"ADODB.RecordSet\")
strQ5 = \"SELECT * FROM presse WHERE bognummer = 999\"
objRS5.Open strQ5, strConn
Set objRS6 = Server.CreateObject(\"ADODB.RecordSet\")
strQ6 = \"SELECT DISTINCT bognummer,anmeldid,emne FROM anmeldelser WHERE bognummer = \" & bogen & \"\"
objRS6.Open strQ6, strConn
%>
<%
if objRS4(\"artikelid\") = empty Then
link = \"Ingen artikler\"
else
link = \"<a href=\"\"user_vis_artikel_enkelt.asp?artid=\" & objRS4(\"artikelid\") & \"\"\">\" & tit = objRS4(\"titel\") & \"</a>\"
end if
%>
<%
if objRS5(\"artikelid\") = empty Then
link1 = \"Ingen artikler\"
else
link1 = \"<a href=\"\"user_vis_artikel_enkelt.asp?artid=\" & objRS5(\"artikelid\") & \"\"\">\" & tit = objRS5(\"titel\") & \"</a>\"
end if
%>
<%
if objRS6(\"emne\") = empty Then
link2 = \"Ingen anmeldelser\"
else
link2 = \"<a href=\"\"user_vis_anmeldelse.asp?anmeld=\" & objRS6(\"anmeldid\") & \"\"\">\" & objRS6(\"emne\") & \"</a>\"
end if
%>
<html>
<head>
<title>Bøger</title>
</head>
<body bgcolor=\"#FFFFFF\">
<table width=\"160\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td><b>Relevante artikler:</b></td>
</tr>
<%
do while not objrs4.eof
%>
<tr>
<td>
<%=link%><br>
</td>
</tr>
<%
objrs4.movenext
loop
%>
</table>
<table width=\"160\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td><b>Andre artikler:</b></td>
</tr>
<%
do while not objrs5.eof
%>
<tr>
<td>
<%=link1%><br>
</td>
</tr>
<%
objrs5.movenext
loop
%>
</table>
<tr>
<td>
<table width=\"160\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td><b>Læs anmeldelser:</b></td>
</tr>
<%
do while not objrs6.eof
%>
<tr>
<td>
<%=link2%><br>
</td>
</tr>
<%
objrs6.movenext
loop
%>
</table>
</body>
</html>
