<% mode = Request("mode") %> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../../../database/bestyr.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 %> bestyrelsen i schæferhundeklubben - Kreds 30, Greve

Bestyrelsen: Der er <%=antal%> registrerede medlemmer i databasen
<% SQL = "Select * from info ORDER BY navn" set RS = conn.execute(sql) %> <% DO WHILE NOT rs.EOF web = rs("web") navn = rs("navn") adresse = rs("adresse") postnr = rs("postnr") bynavn = rs("bynavn") mail = rs("mail") privattlf = rs("privattlf") mobiltlf = rs("mobiltlf") %> <% if session("User_kreds30") = "Administrator" then %> <% else %> <% end if %>

<%=navn%>

<%=web%>

<%=adresse%>

<%=postnr%>, <%=bynavn%>

<% if mail <> "" then %> <%=mail%>

<% end if %> <% if privattlf <> "" then %> <%=privattlf%>

<% end if %> <% if mobiltlf <> "" then %>

<%=mobiltlf%>

<% end if %>
">ret i oplysninger | ">slet denne oplysning
 
<% rs.MoveNext LOOP RS.Close conn.Close Set conn = nothing Set SQLstmt = nothing %>