Fejl i kode
Jeg har denne asp kode til at vise en medlemsliste og det virker fint men hvis der kommer over 46 medlemmer i databasen vises de sidste ikke. Er der en der ved hvad der er galt.<%
Dim conn
dim rsmedlemmer
dim strConnect
strConnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("./db/Medlemmer.mdb")
'lav en forbindelse
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConnect
'lav to recordset fra hhv. grupper og dykkerinformation
Set rsmedlemmer = conn.Execute("Select * FROM Medlemmer ORDER by fornavn")
%>
<br>
</span></p>
<hr>
<table border="0" width="1506">
<tr>
<td width="40"><b><font color="#800080">Nr</font></b></td>
<td width="165" align="left"><b><font color="#800080">Fornavn</font></b></td>
<td width="161"><b><font color="#800080">Efternavn</font></b></td>
<td width="280"><b><font color="#800080">Adresse</font></b></td>
<td width="59"><b><font color="#800080">Postnr</font></b></td>
<td width="197"><b><font color="#800080">By</font></b></td>
<td width="122"><b><font color="#800080">Telefon</font></b></td>
<td width="128"><b><font color="#800080">Mobil</font></b></td>
<td width="225"><b><font color="#800080">Email</font></b></td>
<td width="65"><b><font color="#800080">Niveau</font></b></td>
</tr>
</table>
<%
Do While Not rsmedlemmer.EOF
%>
<table border="1" width="1506">
<tr>
<td width="3%" align="right" nowrap> <%=rsmedlemmer("medlemsnummer")%></td>
<td width="10%"> <%=rsmedlemmer("fornavn")%></td>
<td width="10%"> <B><font size="3"> </font></b><%=rsmedlemmer("efternavn")%></td>
<td width="17%"> <%=rsmedlemmer("adresse")%></td>
<td width="4%"> <%=rsmedlemmer("Postnr")%></td>
<td width="12%"> <%=rsmedlemmer("By")%></td>
<td width="8%"> <%=rsmedlemmer("Telefon")%></td>
<td width="8%"> <%=rsmedlemmer("Biltelefon")%></td>
<td width="15%"> <a href="mailto:<%=rsmedlemmer("Email")%>"><%=rsmedlemmer("Email")%></td>
<td width="3%"> <%=rsmedlemmer("Sikkerhedstrin")%></td>
</tr>
</table>
<%
rsmedlemmer.MoveNext
Loop
conn.close
set conn = Nothing
%>
</b>
</body>
