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

Øvrige udvalg: Der er <%=antal%> registrerede medlemmer i databasen
<% SQL = "Select * from info where web='Blad & PR udvalg' ORDER BY navn" set RS = conn.execute(sql) if not rs.EOF then %> <% DO WHILE NOT rs.EOF %> <% if session("User_kreds30") = "Administrator" then %> <% else %> <% end if %>

 <%=rs("web")%>

<%=rs("navn")%>

<%=rs("adresse")%>

<%=rs("postnr")%>, <%=rs("bynavn")%>

<% if rs("mail") <> "" then %>

<%=rs("mail")%>

<% end if %> <% if rs("privattlf") <> "" then %>

<%=rs("privattlf")%>

<% end if %> <% if rs("mobiltlf") <> "" then %>

<%=rs("mobiltlf")%>

<% end if %>
">ret i oplysninger | ">slet denne oplysning
 
<% rs.MoveNext LOOP RS.Close end if %> <% SQL = "Select * from info where web='Aktivitetsudvalg' ORDER BY navn" set RS = conn.execute(sql) if not rs.EOF then %> <% DO WHILE NOT rs.EOF %> <% if session("User_kreds30") = "Administrator" then %> <% else %> <% end if %>

 <%=rs("web")%>

<%=rs("navn")%>

<%=rs("adresse")%>

<%=rs("postnr")%>, <%=("bynavn")%>

<% if rs("mail") <> "" then %>

<%=rs("mail")%>

<% end if %> <% if rs("privattlf") <> "" then %>

<%=rs("privattlf")%>

<% end if %> <% if rs("mobiltlf") <> "" then %>

<%=rs("mobiltlf")%>

<% end if %>
">ret i oplysninger | ">slet denne oplysning
 
<% rs.MoveNext LOOP RS.Close end if %> <% SQL = "Select * from info where web='Årets hund' ORDER BY navn" set RS = conn.execute(sql) if not rs.EOF then %> <% DO WHILE NOT rs.EOF %> <% if session("User_kreds30") = "Administrator" then %> <% else %> <% end if %>

 <%=rs("web")%>

<%=rs("navn")%>

<%=rs("adresse")%>

<%=rs("postnr")%>, <%=rs("bynavn")%>

<% if rs("mail") <> "" then %>

<%=rs("mail")%>

<% end if %> <% if rs("privattlf") <> "" then %>

<%=rs("privattlf")%>

<% end if %> <% if rs("mobiltlf") <> "" then %>

<%=rs("mobiltlf")%>

<% end if %>
">ret i oplysninger | ">slet denne oplysning
 
<% rs.MoveNext LOOP RS.Close end if %> <% SQL = "Select * from info where web='Sponsorudvalg' ORDER BY navn" set RS = conn.execute(sql) if not rs.EOF then %> <% DO WHILE NOT rs.EOF %> <% if session("User_kreds30") = "Administrator" then %> <% else %> <% end if %>

 <%=rs("web")%>

<%=rs("navn")%>

<%=rs("adresse")%>

<%=rs("postnr")%>, <%=rs("bynavn")%>

<% if rs("mail") <> "" then %>

<%=rs("mail")%>

<% end if %> <% if rs("privattlf") <> "" then %>

<%=rs("privattlf")%>

<% end if %> <% if rs("mobiltlf") <> "" then %>

<%=rs("mobiltlf")%>

<% end if %>
">ret i oplysninger | ">slet denne oplysning
 
<% rs.MoveNext LOOP RS.Close end if %> <% SQL = "Select * from info where web='Pladsudvalg' ORDER BY navn" set RS = conn.execute(sql) if not rs.EOF then %> <% DO WHILE NOT rs.EOF %> <% if session("User_kreds30") = "Administrator" then %> <% else %> <% end if %>

 <%=rs("web")%>

<%=rs("navn")%>

<%=rs("adresse")%>

<%=rs("postnr")%>, <%=rs("bynavn")%>

<% if rs("mail") <> "" then %>

<%=rs("mail")%>

<% end if %> <% if rs("privattlf") <> "" then %>

<%=rs("privattlf")%>

<% end if %> <% if rs("mobiltlf") <> "" then %>

<%=rs("mobiltlf")%>

<% end if %>
">ret i oplysninger | ">slet denne oplysning
 
<% rs.MoveNext LOOP RS.Close end if %> <% SQL = "Select * from info where web='Køkkenudvalget' ORDER BY navn" set RS = conn.execute(sql) if not rs.EOF then %> <% DO WHILE NOT rs.EOF %> <% if session("User_kreds30") = "Administrator" then %> <% else %> <% end if %>

 <%=rs("web")%>

<%=rs("navn")%>

<%=rs("adresse")%>

<%=rs("postnr")%>, <%=rs("bynavn")%>

<% if rs("mail") <> "" then %>

<%=rs("mail")%>

<% end if %> <% if rs("privattlf") <> "" then %>

<%=rs("privattlf")%>

<% end if %> <% if rs("mobiltlf") <> "" then %>

<%=rs("mobiltlf")%>

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