<% mode = Request("mode") %> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../../../database/result.mdb") SQL = "Select * from info order by emne" set rscount = conn.execute("select count(id) as antal from info") antal = rscount("antal") set rscount = nothing %> Resultater i schæferhundeklubben - Kreds 30, Greve
<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../../../database/result.mdb") SQL = "Select * from info ORDER BY id desc" set RS = conn.execute(sql) %> <% DO WHILE NOT rs.EOF staevne = rs("staevne") ejer = rs("ejer") sejr = rs("sejr") info = rs("info") %> <% else %> <% end if %> <% rs.MoveNext LOOP RS.Close conn.Close Set conn = nothing Set SQLstmt = nothing %>
Tilføj endnu et resultat til klubben

Der er <%=antal%> registrerede prøver i Kreds 30, Greve


<%=ejer%> - <%=sejr%>

ved <%=staevne%>
<%=info%>
<% if session("User_kreds30") = "Administrator" then %>
">ret i oplysninger | ">slet denne oplysning