Top 5 fejl
Hejsa, af en eller anden årsag skriver denne side mere end de først poster fra databasen ud :( nogen der kan se hvorfor?<%@ Language=VBScript %>
<% Option Explicit %>
<html>
<head>
<title></title>
</head>
<body bgcolor="#52718C">
<table>
<%
DIM objConn, strConnect, rs, sql
Set objConn = Server.CreateObject("ADODB.Connection")
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../database/uploaddb.mdb") & ";"
Set rs = server.createobject("adodb.recordset")
objConn.Open strConnect
sql = "SELECT TOP 5 * FROM tblFiler ORDER BY ID DESC"
set rs = objconn.execute(sql)
while not rs.eof
%>
<tr><td class = "tekst" align = "right" valign="bottom"><img src="../images/menupunkt.gif"</td>  <td class = "tekst" valign="top"><a style="color: #FFFFFF" href="../vis_bil_1.asp?id=<%=rs("ID")%>" target="_parent"><%=rs("Model")%>  <%=rs("Maerke")%></a>
</td>
</tr>
<%
rs.movenext
wend
%>
</table>
<%
rs.close
Set rs = Nothing
objConn.close
Set objConn = Nothing
%>
</body>
</html>
