Eil. Nr. |
Pavardė, vardas,
tėvo vardas |
Gyvenimo
metai |
Veiklos sritis |
Valstybė |
Nuotr. |
|
<% 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")
P3 = rst("Pavarde_3")
if (P2<> Empty and P3 <> Empty) Then
response.write(" ("& P2 & ", "& P3 &")")
elseif (P2<> Empty) Then
response.write(" ("& P2 & ")")
elseif (P3<> Empty) Then
response.write(" ("& P3 & ")")
else response.write("")
End If
%>
<% V1 = rst("Vardas_1")
V2 = rst("Vardas_2")
V3 = rst("Vardas_3")
If V1<> Empty Then
response.write(", " & V1)
End If
if (V2<> Empty and V3 <> Empty) Then
response.write(" ("& V2 & ", "& V3 &")")
elseif (V2<> Empty) Then
response.write(" ("& V2 & ")")
elseif (V3<> Empty) Then
response.write(" ("& V3 & ")")
else response.write("")
End If
%>
<% Tv1 = rst("Tevo_vardas_1")
Tv2 = rst("Tevo_vardas_2")
Tv3 = rst("Tevo_vardas_3")
If Tv1<> Empty Then
response.write(", " & Tv1 & "")
End If
if Tv2 <> Empty and Tv3 <> Empty Then
response.write(" ("& Tv2 & Tv3 & ")")
elseIf Tv2 <> Empty and Tv3 = Empty Then
response.write(" (" & Tv2 & ")")
elseif Tv2 = Empty and Tv3 <> Empty Then
response.write(" (" & Tv3 & ")")
else response.write("")
End If
%>
|
<% Gm = rst("Gimimo_metai")
Mr = rst("Mirties_metai")
if Gm<>Empty Then
response.write(Gm & "")
else
response.write("*")
End If
if Mr<>Empty Then
response.write(Mr)
else
response.write("*")
End If
%> |
<%
PrJau=0
Pr1Jau=0
Pr = rst("Veiklos")
if Pr<>0 Then
ntVeiklos=Prf(Pr)
response.write(ntVeiklos)
PrJau=1
End If
Pr = rst("Veiklos_kita")
if Pr<>0 Then
if PrJau>0 Then
response.write(", ")
End If
ntVeiklos=Prf(Pr)
response.write(ntVeiklos)
Pr1Jau=1
End If
Prt = rst("Veiklos_tipas")
if Prt<>Empty Then
if Pr1Jau>0 Then
response.write(", ")
End If
if (Pr1Jau=0) and (PrJau>0) Then
response.write(", ")
End if
response.write(Prt)
End If
%> |
<%
Lit = rst("Lietuva")
Lat = rst("Latvija")
If Lit Then
response.write("Lietuva")
else If Lat Then
response.write("Latvija")
else response.write("")
End If
End If
%>
|
<%
Ft1 = rst("Foto_1")
Ft2 = rst("Foto_2")
If ( Ft1 or Ft2 ) Then
response.write("+")
End If
%> |
<%
Ft1 = rst("Foto_1")
Ft2 = rst("Foto_2")
If ( Not Ft1 and Not Ft2 ) Then
response.write(" >>" & " ")
%>
<%
Tx = rst("Tekstas_2")
If Tx Then
response.write(" >>>" )
End If
If (Not Tx) Then
response.write("")
End If
%> |
<% 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")
P3 = rst("Pavarde_3")
if (P2<> Empty and P3 <> Empty) Then
response.write(" ("& P2 & ", "& P3 &")")
elseif (P2<> Empty) Then
response.write(" ("& P2 & ")")
elseif (P3<> Empty) Then
response.write(" ("& P3 & ")")
else response.write("")
End If
%>
<% V1 = rst("Vardas_1")
V2 = rst("Vardas_2")
V3 = rst("Vardas_3")
If V1<> Empty Then
response.write(", " & V1)
End If
if (V2<> Empty and V3 <> Empty) Then
response.write(" ("& V2 & ", "& V3 &")")
elseif (V2<> Empty) Then
response.write(" ("& V2 & ")")
elseif (V3<> Empty) Then
response.write(" ("& V3 & ")")
else response.write("")
End If
%>
<% Tv1 = rst("Tevo_vardas_1")
Tv2 = rst("Tevo_vardas_2")
Tv3 = rst("Tevo_vardas_3")
If Tv1<> Empty Then
response.write(", " & Tv1 & "")
End If
if Tv2 <> Empty and Tv3 <> Empty Then
response.write(" ("& Tv2 & Tv3 & ")")
elseIf Tv2 <> Empty and Tv3 = Empty Then
response.write(" (" & Tv2 & ")")
elseif Tv2 = Empty and Tv3 <> Empty Then
response.write(" (" & Tv3 & ")")
else response.write("")
End If
%>
|
<% Gm = rst("Gimimo_metai")
Mr = rst("Mirties_metai")
if Gm<>Empty Then
response.write(Gm & "")
else
response.write("*")
End If
if Mr<>Empty Then
response.write(Mr)
else
response.write("*")
End If
%> |
<%
PrJau=0
Pr1Jau=0
Pr = rst("Veiklos")
if Pr<>0 Then
ntVeiklos=Prf(Pr)
response.write(ntVeiklos)
PrJau=1
End If
Pr = rst("Veiklos_kita")
if Pr<>0 Then
if PrJau>0 Then
response.write(", ")
End If
ntVeiklos=Prf(Pr)
response.write(ntVeiklos)
Pr1Jau=1
End If
Prt = rst("Veiklos_tipas")
if Prt<>Empty Then
if Pr1Jau>0 Then
response.write(", ")
End If
if (Pr1Jau=0) and (PrJau>0) Then
response.write(", ")
End if
response.write(Prt)
End If
%> |
<%
Lit = rst("Lietuva")
Lat = rst("Latvija")
If Lit Then
response.write("Lietuva")
else If Lat Then
response.write("Latvija")
else response.write("")
End If
End If
%>
|
<%
Ft1 = rst("Foto_1")
Ft2 = rst("Foto_2")
If ( Ft1 or Ft2 ) Then
response.write("+")
End If
%> |
<%
Ft1 = rst("Foto_1")
Ft2 = rst("Foto_2")
If ( Not Ft1 and Not Ft2 ) Then
response.write(" >>" & " ")
%>
<%
Tx = rst("Tekstas_2")
If Tx Then
response.write(" >>>" )
End If
If (Not Tx) Then
response.write("")
End If
%> |
<% End If %>
<%
Eil = Eil + 1
if ( Eil>1 ) then Eil=0
%>
<% Kiek = Kiek + 1 %>
<% VisoKiek = VisoKiek + 1 %>
<% rst.MoveNext %>
<% Loop %>
<% End If %>