Eil. Nr. |
Pavardė, vardas, tėvo vardas |
Gyveno |
Kategorija |
Profesija |
|
<% Eil = 0 %>
<% Kiek = 1 %>
<% VisoKiek = 0 %>
<% Do While Not rst.EOF %>
<%
Raide2=rst("Raide")
if ( Kiek=1 ) Then
Raide1=Raide2
End If
if ( Kiek>1 and Raide1 <> Raide2 ) Then
Raide1=Raide2
%>
<% If Eil=0 Then %>
|
|
|
|
|
|
<%
End If
%>
<% If Eil=1 Then %>
|
|
|
|
|
|
<%
End If
%>
<%
Eil = Eil + 1
if ( Eil>1 ) then Eil=0
End If
%>
<% If Eil=0 Then %>
<%
nKodas=rst("Kodas")
response.write(Kiek)
response.write(" (")
response.write(nKodas)
response.write(") ")
%> |
<% = rst("Pavarde_1")%>
<% P2 = rst("Pavarde_2")
if P2<> Empty Then
response.write(" ("& P2 &")")
End If
%>
<% V1 = rst("Vardas_1")
Tv = rst("Tevo_vardas")
if V1<> Empty Then
response.write(", "& V1)
End If
if Tv<> Empty Then
response.write(", "& Tv)
End If
%> |
<% Gm = rst("Gimimo_metai")
Mr = rst("Mirties_metai")
if Gm=0 Then
response.write( "* - ")
End If
if Gm<>0 Then
response.write(Gm & " - ")
End If
if Mr=0 Then
response.write( "*")
End If
if Mr<>0 Then
response.write(Mr)
End If
%> |
<% KatJau=0
Kat1= rst("Kat_Knygnesys")
Kat2= rst("Kat_Daraktorius")
Kat3= rst("Kat_Organizatorius")
Kat4= rst("Kat_Platintojas")
Kat5= rst("Kat_Bendradarbis")
Kat6= rst("Kat_Knygrisys")
Kat7= rst("Kat_Remejas")
if Kat1<>0 Then
response.write("Knygnešys")
KatJau=1
End If
if Kat2<>0 Then
if KatJau>0 Then
response.write("; ")
End If
response.write("Daraktorius")
KatJau=1
End If
if Kat3<>0 Then
if KatJau>0 Then
response.write("; ")
End If
response.write("Organizatorius")
KatJau=1
End If
if Kat4<>0 Then
if KatJau>0 Then
response.write("; ")
End If
response.write("Platintojas")
KatJau=1
End If
if Kat5<>0 Then
if KatJau>0 Then
response.write("; ")
End If
response.write("Bendradarbis")
KatJau=1
End If
if Kat6<>0 Then
if KatJau>0 Then
response.write("; ")
End If
response.write("Knygrišys")
KatJau=1
End If
if Kat7<>0 Then
if KatJau>0 Then
response.write("; ")
End If
response.write("Rėmėjas")
KatJau=1
End If
%> |
<%
PrJau=0
Pr = rst("Profesija")
if Pr<>0 Then
response.write(rst("Profesijos_pavadinimas"))
PrJau=1
End If
Pr = rst("Profesija_kita")
if Pr<>0 Then
if PrJau>0 Then
response.write("; ")
End If
response.write(rst("Profesijos_kitos_pavadinimas"))
End If
%> |
<%
Ft = rst("Foto_1")
If ( Not Ft ) Then
response.write(" >>>")
%> |
<% End If %>
<% If Eil=1 Then %>
<%
nKodas=rst("Kodas")
response.write(Kiek)
response.write(" (")
response.write(nKodas)
response.write(") ")
%> |
<% = rst("Pavarde_1")%>
<% P2 = rst("Pavarde_2")
if P2<> Empty Then
response.write(" ("& P2 &")")
End If
%>
<% V1 = rst("Vardas_1")
Tv = rst("Tevo_vardas")
if V1<> Empty Then
response.write(", "& V1)
End If
if Tv<> Empty Then
response.write(", "& Tv)
End If
%> |
<%
Gm = rst("Gimimo_metai")
Gma = rst("Gimimas_apie")
Mr = rst("Mirties_metai")
Mra = rst("Mirtis_apie")
if Gm=0 Then
response.write( "* - ")
End If
if Gm<>0 Then
if Gma<>0 Then
response.write("*")
End If
response.write(Gm & " - ")
End If
if Mr=0 Then
response.write( "*")
End If
if Mr<>0 Then
if Mra<>0 Then
response.write("*")
End If
response.write(Mr)
End If
%> |
<%
KatJau=0
Kat1= rst("Kat_Knygnesys")
Kat2= rst("Kat_Daraktorius")
Kat3= rst("Kat_Organizatorius")
Kat4= rst("Kat_Platintojas")
Kat5= rst("Kat_Bendradarbis")
Kat6= rst("Kat_Knygrisys")
Kat7= rst("Kat_Remejas")
if Kat1<>0 Then
response.write("Knygnešys")
KatJau=1
End If
if Kat2<>0 Then
if KatJau>0 Then
response.write("; ")
End If
response.write("Daraktorius")
KatJau=1
End If
if Kat3<>0 Then
if KatJau>0 Then
response.write("; ")
End If
response.write("Organizatorius")
KatJau=1
End If
if Kat4<>0 Then
if KatJau>0 Then
response.write("; ")
End If
response.write("Platintojas")
KatJau=1
End If
if Kat5<>0 Then
if KatJau>0 Then
response.write("; ")
End If
response.write("Bendradarbis")
KatJau=1
End If
if Kat6<>0 Then
if KatJau>0 Then
response.write("; ")
End If
response.write("Knygrišys")
KatJau=1
End If
if Kat7<>0 Then
if KatJau>0 Then
response.write("; ")
End If
response.write("Rėmėjas")
KatJau=1
End If
%> |
<%
PrJau=0
Pr = rst("Profesija")
if Pr<>0 Then
response.write(rst("Profesijos_pavadinimas"))
PrJau=1
End If
Pr = rst("Profesija_kita")
if Pr<>0 Then
if PrJau>0 Then
response.write("; ")
End If
response.write(rst("Profesijos_kitos_pavadinimas"))
End If
%> |
<%
Ft = rst("Foto_1")
If ( Not Ft ) Then
response.write(" >>>")
%> |
<% End If %>
<%
Eil = Eil + 1
if ( Eil>1 ) then Eil=0
%>
<% Kiek = Kiek + 1 %>
<% VisoKiek = VisoKiek + 1 %>
<% rst.MoveNext %>
<% Loop %>
<% End If %>