Enten er BOF eller EOF sand
Er der nogen der kan spotte en fejl..? Det virker fint indtil jeg blander nummer 2 table ind i det \"kortmain\"Min head:
<%
Dim Query, Kortmain, Kort, id, Tabelnavn01, Tabelnavn02, Tabelnavn03
\'HOVEDTABLE
id= Request.Querystring (\"id\")
If id < 1 Then
id = 1
End If
\'HOVEDTABLE
Tabelnavn01 = \"indhold\"
Set Query= Conn.Execute (\"SELECT * From \" & TabelNavn01 & \" Where id =\"& id &\"\")
\'KORTTABLE
TabelNavn02 = \"kortmain\"
Set Kortmain= Conn.Execute (\"SELECT * From \" & TabelNavn02 & \" Where id =\"& id &\"\")
\'KORTENE
TabelNavn03 = \"kort\"
Set Kort= Conn.Execute (\"SELECT * From \" & TabelNavn03 & \" Where id =\"& id &\"\")
%>
<head>
<title><%=Query(\"titel\")%></title>
<link rel=\"stylesheet\" type=\"text/css\" href=\"styles/style.css\">
<% If id = 4 Then %>
<style type=\"text/css\">
<!--
td.main {
background-color: #F5F3DA;
background-image:url(pic/<%=Kortmain(\"Background\")%>);
background-position: 100%, 100% ;
background-attachment:fixed;
background-repeat:no-repeat
}
-->
</style>
<% Else %>
<style type=\"text/css\">
<!--
td.main {
background-color: #F5F3DA;
background-image:url(pic/<%=Query(\"Background\")%>);
background-position: 100%, 100% ;
background-attachment:fixed;
background-repeat:no-repeat
}
-->
<% End If %>
</style>
</head>
Længere nede, der hvor fejlen nok opstår
<% If id = 4 Then %>
<table cellspacing=\"0\" cellpadding=\"0\" border=\"0\" width=\"85%\" height=\"95%\">
<tr>
<% Do until Kortmain.EOF%>
<td height=\"15\">
<a href=\"<%=Kortmain(\"linkstreg\")%>\" class=\"submenu\"><%=Kortmain(\"link\")%></a>
</td>
<% Kortmain.MoveNext
loop
%>
</tr>
<tr>
<td><%=Kortmain(\"text\")%></td>
</tr>
</table></td>
<% Else %>
<table cellspacing=\"0\" cellpadding=\"0\" border=\"0\" width=\"85%\" height=\"95%\">
<tr>
<td height=\"50\">
<h1><%=Query(\"head\")%></td>
</tr>
<tr>
<td>
<%=Query(\"text\")%></td>
</tr>
</table></td>
<% End If %>
