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

Trænerliste: Der er <%=antal%> registrerede trænere i databasen
<% SQL = "Select * from info where web='Trænere' ORDER BY navn" set RS = conn.execute(sql) if not rs.EOF then %> <% 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") %> <% end if %> <% rs.MoveNext LOOP RS.Close end if %> <% SQL = "Select * from info where web='Sportræner' ORDER BY navn" set RS = conn.execute(sql) if not rs.EOF then %> <% 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") %> <% end if %> <% rs.MoveNext LOOP RS.Close end if %> <% SQL = "Select * from info where web='Trænere under uddannelse' ORDER BY navn" set RS = conn.execute(sql) if not rs.EOF then %> <% 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") %> <% end if %> <% rs.MoveNext LOOP RS.Close end if %> <% SQL = "Select * from info where web='Godkendte prøvefiguranter' ORDER BY navn" set RS = conn.execute(sql) if not rs.EOF then %> <% 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") %> <% end if %> <% rs.MoveNext LOOP RS.Close end if %> <% SQL = "Select * from info where web='Figuranter' ORDER BY navn" set RS = conn.execute(sql) if not rs.EOF then %> <% 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") %> <% end if %> <% rs.MoveNext LOOP RS.Close end if %> <% SQL = "Select * from info where web='Figuranter under uddannelse' ORDER BY navn" set RS = conn.execute(sql) if not rs.EOF then %> <% 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") %> <% end if %> <% rs.MoveNext LOOP RS.Close end if %> <% SQL = "Select * from info where web='Klubhuset' ORDER BY navn" set RS = conn.execute(sql) if not rs.EOF then %> <% 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") %> <% end if %> <% rs.MoveNext LOOP RS.Close end if %> <% conn.Close Set conn = nothing Set SQLstmt = nothing %>

 <%=rs("web")%>

<%=navn%>

<%=adresse%>

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

<% if mail <> "" then %>

<%=mail%>

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

<%=privattlf%>

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

<%=mobiltlf%>

<% end if %> <% if session("User_kreds30") = "Administrator" then %>
">ret i oplysninger | ">slet denne oplysning
<% else %>
 

 <%=rs("web")%>

<%=navn%>

<%=adresse%>

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

<% if mail <> "" then %>

<%=mail%>

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

<%=privattlf%>

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

<%=mobiltlf%>

<% end if %> <% if session("User_kreds30") = "Administrator" then %>
">ret i oplysninger | ">slet denne oplysning
<% else %>
 

 <%=rs("web")%>

<%=navn%>

<%=adresse%>

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

<% if mail <> "" then %>

<%=mail%>

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

<%=privattlf%>

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

<%=mobiltlf%>

<% end if %> <% if session("User_kreds30") = "Administrator" then %>
">ret i oplysninger | ">slet denne oplysning
<% else %>
 

 <%=rs("web")%>

<%=navn%>

<%=adresse%>

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

<% if mail <> "" then %>

<%=mail%>

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

<%=privattlf%>

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

<%=mobiltlf%>

<% end if %> <% if session("User_kreds30") = "Administrator" then %>
">ret i oplysninger | ">slet denne oplysning
<% else %>
 

 <%=rs("web")%>

<%=navn%>

<%=adresse%>

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

<% if mail <> "" then %>

<%=mail%>

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

<%=privattlf%>

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

<%=mobiltlf%>

<% end if %> <% if session("User_kreds30") = "Administrator" then %>
">ret i oplysninger | ">slet denne oplysning
<% else %>
 

 <%=rs("web")%>

<%=navn%>

<%=adresse%>

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

<% if mail <> "" then %>

<%=mail%>

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

<%=privattlf%>

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

<%=mobiltlf%>

<% end if %> <% if session("User_kreds30") = "Administrator" then %>
">ret i oplysninger | ">slet denne oplysning
<% else %>
 

 <%=rs("web")%>

<%=navn%>

<%=adresse%>

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

<% if mail <> "" then %>

<%=mail%>

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

<%=privattlf%>

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

<%=mobiltlf%>

<% end if %> <% if session("User_kreds30") = "Administrator" then %>
">ret i oplysninger | ">slet denne oplysning
<% else %>