<% mode = Request("mode") %> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../../../database/kennel.mdb") SQL = "Select * from kenneloversigt order by emne" set rscount = conn.execute("select count(id) as antal from kenneloversigt") antal = rscount("antal") set rscount = nothing %> Kenneloversigt i schæferhundeklubben - Kreds 30, Greve

Kenneloversigt: Der er <%=antal%> registrerede kenneler i databasen
<% SQL = "Select * from kenneloversigt ORDER BY KennelNavn" set RS = conn.execute(sql) %> <% DO WHILE NOT rs.EOF KennelNavn = rs("KennelNavn") KennelEjer = rs("KennelEjer") KennelAdresse = rs("KennelAdresse") KennelPostnr = rs("KennelPostnr") KennelBy = rs("KennelBy") Kennelwww = rs("Kennelwww") KennelMail = rs("KennelMail") Kenneltlf = rs("Kenneltlf") KennelMobil = rs("KennelMobil") %> <% if session("User_kreds30") = "Administrator" then %> <% end if %>

<%=KennelNavn%>

Ejer: <%=KennelEjer%>

<%=KennelAdresse%>, <%=KennelPostnr%> <%=Kennelby%>

<% if Kennelwww <> "" then %>

<%=Kennelwww%>

<% end if %> <% if KennelMail <> "" then %>

<%=KennelMail%>

<% end if %> <% if Kenneltlf <> "" then %>

<%=kenneltlf%>

<% end if %> <% if KennelMobil <> "" then %>

<%=KennelMobil%>

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