<% session.lcid = 1030%> <% mode = Request("mode") %> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../../../database/dog.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 %> Årets hund i schæferhundeklubben - Kreds 30, Greve <% 'SQL = "Select * from info where web='Årets Brugshund' ORDER BY privattlf desc, postnr asc" SQL = "Select * from info where web='Årets Brugshund' ORDER BY privattlf desc, cdate(postnr) desc" 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") %> <% rs.MoveNext LOOP RS.Close end if %> <% SQL = "Select * from info where web='Aktivitetsudvalg' ORDER BY privattlf desc" 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") %> <% rs.MoveNext LOOP RS.Close end if %> <% 'SQL = "Select * from info where web='Årets Brugshund u 18 md' ORDER BY privattlf desc" SQL = "Select * from info where web='Årets Brugshund u 18 md' ORDER BY privattlf desc, cdate(postnr) desc" 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") %> <% rs.MoveNext LOOP RS.Close end if %> <% SQL = "Select * from info where web='Årets Udstillingshund' ORDER BY privattlf desc, cdate(postnr) desc" 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") %> <% rs.MoveNext LOOP RS.Close end if %> <% SQL = "Select * from info where web='Årets Udstillingshund u 18 md' ORDER BY privattlf desc, cdate(postnr) desc" 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") %> <% rs.MoveNext LOOP RS.Close end if %> <% SQL = "Select * from info where web='Årets Hele Hund' ORDER BY privattlf desc, cdate(postnr) desc" 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") %> <% rs.MoveNext LOOP RS.Close end if %> <% SQL = "Select * from info where web='Årets Hele hund u 18 md' ORDER BY privattlf desc, cdate(postnr) desc" 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") %> <% rs.MoveNext LOOP RS.Close end if %> <% conn.Close Set conn = nothing Set SQLstmt = nothing %>

Årets hund i Kreds 30: Der er <%=antal%> registrerede hunde i databasen

 <%=rs("web")%>

Hund

Stambog

Fødselsdato

Hundefører

Point

<%=navn%>

<%=adresse%>

<%=postnr%>

<%=mail%>

<%=privattlf%>

 <% If Session("User_kreds30") <> "Administrator" Then %>
 
<% else %>
">ret | ">slet
<% End If %>

 <%=rs("web")%>

Hund

Stambog

Fødselsdato

Hundefører

Point

<%=navn%>

<%=adresse%>

<%=postnr%>

<%=mail%>

<%=privattlf%>

 <% If Session("User_kreds30") <> "Administrator" Then %>
 
<% else %>
">ret | ">slet
<% End If %>

 <%=rs("web")%>

Hund

Stambog

Fødselsdato

Hundefører

Point

<%=navn%>

<%=adresse%>

<%=postnr%>

<%=mail%>

<%=privattlf%>

 <% If Session("User_kreds30") <> "Administrator" Then %>
 
<% else %>
">ret | ">slet
<% End If %>

 <%=rs("web")%>

Hund

Stambog

Fødselsdato

Hundefører

Point

<%=navn%>

<%=adresse%>

<%=postnr%>

<%=mail%>

<%=privattlf%>

 <% If Session("User_kreds30") <> "Administrator" Then %>
 
<% else %>
">ret | ">slet
<% End If %>

 <%=rs("web")%>

Hund

Stambog

Fødselsdato

Hundefører

Point

<%=navn%>

<%=adresse%>

<%=postnr%>

<%=mail%>

<%=privattlf%>

 <% If Session("User_kreds30") <> "Administrator" Then %>
 
<% else %>
">ret | ">slet
<% End If %>

 <%=rs("web")%>

Hund

Stambog

Fødselsdato

Hundefører

Point

<%=navn%>

<%=adresse%>

<%=postnr%>

<%=mail%>

<%=privattlf%>

 <% If Session("User_kreds30") <> "Administrator" Then %>
 
<% else %>
">ret | ">slet
<% End If %>

 <%=rs("web")%>

Hund

Stambog

Fødselsdato

Hundefører

Point

<%=navn%>

<%=adresse%>

<%=postnr%>

<%=mail%>

<%=privattlf%>

 <% If Session("User_kreds30") <> "Administrator" Then %>
 
<% else %>
">ret | ">slet
<% End If %>