Objekt fejl i forbindelse med kald til access
Hej,jeg har set noget magen til nedenstående virke et sted, men jeg kan ikke få det til at virke her.
Der kommer en fejl når den når til flg. linie:
DO UNTIL se.EOF
Er der nogen der kan forklare hvad der er galt?
~Kurt
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"../fpdb/adresser.mdb\")
SQLalle = \"SELECT * FROM grundtabel ORDER BY efternavn \"
SQLmusvi = \"SELECT * FROM grundtabel WHERE afdeling = \'musvitter\' ORDER BY efternavn \"
SQLmejse = \"SELECT * FROM grundtabel WHERE afdeling = \'mejser\' ORDER BY efternavn\"
SQLspurv = \"SELECT * FROM grundtabel WHERE afdeling = \'spurve\' ORDER BY efternavn\"
SQLleder = \"SELECT * FROM grundtabel WHERE afdeling = \'ledere\' ORDER BY efternavn\"
Set alle = conn.Execute(SQLalle)
Set musvi = conn.Execute(SQLmusvi)
Set mejse = conn.Execute(SQLmejse)
Set spurv = conn.Execute(SQLspurv)
Set leder = conn.Execute(SQLleder)
%>
<%
If request(\"vis\") = \"true\" Then
Se = Request(\"Se\")
End If
%>
<html>
<head>
<meta http-equiv=\"Content-Language\" content=\"da\">
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<link rel=\"stylesheet\" type=\"text/css\" href=\"../adminmodul/style_sfi_admin.css\">
<title>Afdelinger</title>
</head>
<body>
<form method=\"POST\" action=\"valg.asp?vis=true\" name=\"valg\">
<p><select size=\"1\" name=\"se\">
<option value=\"alle\">Alle grupper</option>
<option value=\"musvi\">Musvitterne</option>
<option value=\"mejse\">Mejserne</option>
<option value=\"spurv\">Spurvene</option>
<option value=\"leder\">Ledere</option>
</select>
<input type=\"submit\" value=\"Vis\" name=\"visknap\"></p>
</form>
<table border=\"1\" width=\"100%\">
<tr>
<td width=\"15%\"> </td>
<td width=\"55%\"> </td>
<td width=\"15%\"> </td>
<td width=\"15%\"> </td>
</tr>
<tr>
<td width=\"100%\" colspan=\"4\"> </td>
</tr>
<%
DO UNTIL se.EOF
%>
<tr>
<td width=\"45%\"><%=se(\"efternavn\")%>, <%=se(\"fornavn\")%></td>
<td width=\"40%\"><%=se(\"adresse\")%></td>
<td width=\"15%\"><%=se(\"tlf\")%></td>
</tr>
<%
se.MoveNext
LOOP
se.Close
%>
</table>
</body>
</html>
