<% Response.Buffer = TRUE %> <%' styrelse.asp %> <%PrintHeader "Styrelse, revisorer och valberedning"%> <% 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" RecSet.Open add, Connection %> <% Do Until RecSet.EOF If left(RecSet("prilex"),1)="5" then If mid(RecSet("registerdata"),4,1) = "1" then 'Response.Write len(RecSet("Eprilex")) fattas=fattas-2 %> <% Exit Do End If End If RecSet.MoveNext Loop %> <% RecSet.MoveFirst Do Until RecSet.EOF If left(RecSet("prilex"),1)="5" then If mid(RecSet("registerdata"),4,1) = "2" then 'Response.Write len(RecSet("Eprilex")) fattas=fattas-2 %> <% Exit Do End If End If RecSet.MoveNext Loop %> <% RecSet.MoveFirst Do Until RecSet.EOF If left(RecSet("prilex"),1)="5" then If mid(RecSet("registerdata"),4,1) = "3" then fattas=fattas-2 %> <% Exit Do End If End If RecSet.MoveNext Loop %> <% RecSet.MoveFirst Do Until RecSet.EOF If left(RecSet("prilex"),1)="5" then If mid(RecSet("registerdata"),4,1) = "4" then fattas=fattas-2 %> <% Exit Do End If End If RecSet.MoveNext Loop %> <% RecSet.MoveFirst Do Until RecSet.EOF If left(RecSet("prilex"),1)="5" then If mid(RecSet("registerdata"),4,1) = "5" then fattas=fattas-2 %> <% Exit Do End If End If RecSet.MoveNext Loop %> <% RecSet.MoveFirst Do Until RecSet.EOF If left(RecSet("prilex"),1)="5" then If mid(RecSet("registerdata"),4,1) = "6" then fattas=fattas-2 %> <% Exit Do End If End If RecSet.MoveNext Loop %> <% RecSet.MoveFirst Do Until RecSet.EOF If left(RecSet("prilex"),1)="5" then If mid(RecSet("registerdata"),4,1) = "7" then fattas=fattas-2 %> <% Exit Do End If End If RecSet.MoveNext Loop %>

Styrelsen	Namn	Medlemsnr	E-post
Ordförande	<%=RecSet("fnamn")%> <%=RecSet("enamn")%>	Prilex <%=RecSet("prilex")%>	<% If IsNull(RecSet("Eprilex")) Or RecSet("Eprilex")="" then Response.Write _ "" & RecSet("Epost") & "" else Response.Write _ "" & RecSet("Eprilex") & "" End if %>
V. Ordförande	<%=RecSet("fnamn")%> <%=RecSet("enamn")%>	Prilex <%=RecSet("prilex")%>	<% If IsNull(RecSet("Eprilex")) Or RecSet("Eprilex")="" then Response.Write _ "" & RecSet("Epost") & "" else Response.Write _ "" & RecSet("Eprilex") & "" End if %>
Kassör	<%=RecSet("fnamn")%> <%=RecSet("enamn")%>	Prilex <%=RecSet("prilex")%>	<% If IsNull(RecSet("Eprilex")) Or RecSet("Eprilex")="" then Response.Write _ "" & RecSet("Epost") & "" else Response.Write _ "" & RecSet("Eprilex") & "" End if %>
Sekreterare	<%=RecSet("fnamn")%> <%=RecSet("enamn")%>	Prilex <%=RecSet("prilex")%>	<% If IsNull(RecSet("Eprilex")) Or RecSet("Eprilex")="" then Response.Write _ "" & RecSet("Epost") & "" else Response.Write _ "" & RecSet("Eprilex") & "" End if %>
V. Sekreterare	<%=RecSet("fnamn")%> <%=RecSet("enamn")%>	Prilex <%=RecSet("prilex")%>	<% If IsNull(RecSet("Eprilex")) Or RecSet("Eprilex")="" then Response.Write _ "" & RecSet("Epost") & "" else Response.Write _ "" & RecSet("Eprilex") & "" End if %>
Suppleant	<%=RecSet("fnamn")%> <%=RecSet("enamn")%>	Prilex <%=RecSet("prilex")%>	<% If IsNull(RecSet("Eprilex")) Or RecSet("Eprilex")="" then Response.Write _ "" & RecSet("Epost") & "" else Response.Write _ "" & RecSet("Eprilex") & "" End if %>
Suppleant	<%=RecSet("fnamn")%> <%=RecSet("enamn")%>	Prilex <%=RecSet("prilex")%>	<% If IsNull(RecSet("Eprilex")) Or RecSet("Eprilex")="" then Response.Write _ "" & RecSet("Epost") & "" else Response.Write _ "" & RecSet("Eprilex") & "" End if %>

<% RecSet.MoveFirst Do Until RecSet.EOF If left(RecSet("prilex"),1)="5" then If mid(RecSet("registerdata"),5,1) = "1" then fattas=fattas-2 %> <% Exit Do End If End If RecSet.MoveNext Loop %> <% RecSet.MoveFirst Do Until RecSet.EOF If left(RecSet("prilex"),1)="5" then If mid(RecSet("registerdata"),5,1) = "2" then fattas=fattas-2 %> <% Exit Do End If End If RecSet.MoveNext Loop %> <% RecSet.MoveFirst Do Until RecSet.EOF If left(RecSet("prilex"),1)="5" then If mid(RecSet("registerdata"),5,1) = "3" then fattas=fattas-2 %> <% Exit Do End If End If RecSet.MoveNext Loop %>

Revisorer
Revisor	<%=RecSet("fnamn")%> <%=RecSet("enamn")%>	Prilex <%=RecSet("prilex")%>	<% If IsNull(RecSet("Eprilex")) Or RecSet("Eprilex")="" then Response.Write _ "" & RecSet("Epost") & "" else Response.Write _ "" & RecSet("Eprilex") & "" End if %>
Revisor	<%=RecSet("fnamn")%> <%=RecSet("enamn")%>	Prilex <%=RecSet("prilex")%>	<% If IsNull(RecSet("Eprilex")) Or RecSet("Eprilex")="" then Response.Write _ "" & RecSet("Epost") & "" else Response.Write _ "" & RecSet("Eprilex") & "" End if %>
Suppleant	<%=RecSet("fnamn")%> <%=RecSet("enamn")%>	Prilex <%=RecSet("prilex")%>	<% If IsNull(RecSet("Eprilex")) Or RecSet("Eprilex")="" then Response.Write _ "" & RecSet("Epost") & "" else Response.Write _ "" & RecSet("Eprilex") & "" End if %>

<% RecSet.MoveFirst Do Until RecSet.EOF If left(RecSet("prilex"),1)="5" then If mid(RecSet("registerdata"),10,1) = "1" then fattas=fattas-2 %> <% Exit Do End If End If RecSet.MoveNext Loop %> <% RecSet.MoveFirst Do Until RecSet.EOF If left(RecSet("prilex"),1)="5" then If mid(RecSet("registerdata"),10,1) = "2" then fattas=fattas-2 %> <% Exit Do End If End If RecSet.MoveNext Loop %> <% RecSet.MoveFirst Do Until RecSet.EOF If left(RecSet("prilex"),1)="5" then If mid(RecSet("registerdata"),10,1) = "3" then fattas=fattas-2 %> <% Exit Do End If End If RecSet.MoveNext Loop %>

Valberedning
Sammankallande	<%=RecSet("fnamn")%> <%=RecSet("enamn")%>	Prilex <%=RecSet("prilex")%>	<% if RecSet("Eprilex")="" then Response.Write _ "" & RecSet("Epost") & "" else Response.Write _ "" & RecSet("Eprilex") & "" End if %>
	<%=RecSet("fnamn")%> <%=RecSet("enamn")%>	Prilex <%=RecSet("prilex")%>	<% if RecSet("Eprilex")="" then Response.Write _ "" & RecSet("Epost") & "" else Response.Write _ "" & RecSet("Eprilex") & "" End if %>
	<%=RecSet("fnamn")%> <%=RecSet("enamn")%>	Prilex <%=RecSet("prilex")%>	<% if RecSet("Eprilex")="" then Response.Write _ "" & RecSet("Epost") & "" else Response.Write _ "" & RecSet("Eprilex") & "" End if %>

<% PrintFooter RecSet.Close Connection.Close Set Connection = Nothing %>