<% Dim RecSet, add dim anvenamn, anvfnamn, anvadress, anvPostnr, anvOrt, anvTelefon, anvMobiltelefon, anvtel_jobbet dim anvuppdaterad, updat, medlemmar dbConnect Connection Set RecSet = Server.CreateObject("ADODB.Recordset") add = "SELECT * FROM medlem Order By Prilex " RecSet.Open add, Connection medlemmar=0 %>

<% Do Until RecSet.EOF If left(RecSet("prilex"),1)="5" then If Not RecSet("adress")="" then If RecSet("Betald")=True then If Not RecSet("FNamn")="Reserverad" then medlemmar=medlemmar+1 If Left(RecSet("adress"),1)= "*" then medlemmar=medlemmar-1 %> <% End If End If End If End If RecSet.MoveNext Loop Response.Write _ "" &"Idag är vi " & medlemmar-1 &" medlemmar i Prilex."& "
" RecSet.Close Connection.Close %>

Prilex nr	Namn	Ort	Amatör signal	E-post		Uppdaterad
<%=RecSet("prilex")%>	<%=RecSet("fnamn")%> <%=RecSet("enamn")%>	<%=RecSet("ort")%>	<%=RecSet("Amatorcall")%>	<% If RecSet("epost")<>"" then Response.Write _ "" & RecSet("epost") & "" End If %>		<%=Left(RecSet("Uppdaterad"),16)%>

<% fattas=fattas-30 PrintFooter %>