<%response.write setupClubName%>

<%Option Explicit%> <% If isEmpty(Session("UserID")) Then Response.Redirect("index.asp") End If %> <%response.write setupClubName%> - Administration

<%response.write setupClubName%> <% if right(setupClubName,1) = "s" then response.write "'" else response.write "s" end if %> medlemsliste pr. <%=day(now) & "/" & month(now) & "-" & year(now)%>:

<% dim RS, SQL set RS = server.createobject("ADODB.recordset") SQL = "SELECT * FROM spillere ORDER By fornavn" RS.Open SQL,conn if not RS.eof then do until RS.EOF %> <% RS.MoveNext loop end if RS.close set RS=nothing %>

Navn Licensnr. Fødselsdag Telefon Mobil E-mail
<%response.write RS("fornavn") & " " & RS("efternavn")%><%if not RS("aktiv") = true then response.write "
-ikke aktiv-"%> <%response.write RS("licensnummer")%> <%response.write writeDate(RS("foedt"))%> <%response.write RS("telefon")%> <%response.write RS("mobil")%> <%response.write RS("mail")%>
<% closeconn() %>

Navn	Licensnr.	Fødselsdag	Telefon	Mobil	E-mail
<%response.write RS("fornavn") & " " & RS("efternavn")%><%if not RS("aktiv") = true then response.write " -ikke aktiv-"%>	<%response.write RS("licensnummer")%>	<%response.write writeDate(RS("foedt"))%>	<%response.write RS("telefon")%>	<%response.write RS("mobil")%>	<%response.write RS("mail")%>