Data |
Vieta |
Renginys |
|
<% Eil = 0 %>
<% Kiek = 1 %>
<% VisoKiek = 0 %>
<% Do While Not rst.EOF %>
<% If Eil=0 Then %>
<%
Pr_Metai=rst("Pr_Metai")
Pr_Menuo=rst("Pr_Menuo")
Pr_Diena=rst("Pr_Diena")
Pr_Valanda=rst("Pr_Valanda")
Pr_Minutes=rst("Pr_Minutes")
If ( Pr_Menuo < 10 ) then Pr_Menuo="0" & Pr_Menuo
If ( Pr_Diena < 10 ) then Pr_Diena="0" & Pr_Diena
If ( Pr_Minutes < 10 ) then Pr_Minutes="0" & Pr_Minutes
Pb_Metai=rst("Pb_Metai")
Pb_Menuo=rst("Pb_Menuo")
Pb_Diena=rst("Pb_Diena")
Pb_Valanda=rst("Pb_Valanda")
If ( Pb_Menuo < 10 ) then Pb_Menuo="0" & Pb_Menuo
If ( Pb_Diena < 10 ) then Pb_Diena="0" & Pb_Diena
response.write(Pr_Metai)
response.write(" ")
response.write(Pr_Menuo)
response.write(" ")
response.write(Pr_Diena)
response.write(" ")
If ( Pr_Valanda<> Empty and Pr_Valanda<>0 ) then
response.write(" ")
response.write(Pr_Valanda)
If ( Pr_Minutes<> Empty and Pr_Minutes<>0 ) then
response.write(".")
response.write(Pr_Minutes)
End If
response.write(" val.")
End If
response.write(" ")
If ( Pr_Metai<>Pb_Metai or Pr_Menuo<>Pb_Menuo or Pr_Diena<>Pb_Diena ) then
If ( Pb_Metai<>9999 ) then
response.write(Pb_Metai)
response.write(" ")
If ( Pb_Menuo<>99 ) then
response.write(Pb_Menuo)
response.write(" ")
If ( Pb_Diena<>99 ) then
response.write(Pb_Diena)
End If
End If
End If
End If
%>
|
<%
Vieta=rst("Vieta")
if ( Vieta <> 0 ) then
response.write(rst("Vietos_pavadinimas"))
end if
%>
|
<% response.write(rst("Pavadinimas")) %>
|
<%
if ( rst("Adresas")<>Empty ) then
response.write(" >>>")
end if
%>
|
<% End If %>
<% If Eil=1 Then %>
<%
Pr_Metai=rst("Pr_Metai")
Pr_Menuo=rst("Pr_Menuo")
Pr_Diena=rst("Pr_Diena")
Pr_Valanda=rst("Pr_Valanda")
Pr_Minutes=rst("Pr_Minutes")
If ( Pr_Menuo < 10 ) then Pr_Menuo="0" & Pr_Menuo
If ( Pr_Diena < 10 ) then Pr_Diena="0" & Pr_Diena
If ( Pr_Minutes < 10 ) then Pr_Minutes="0" & Pr_Minutes
Pb_Metai=rst("Pb_Metai")
Pb_Menuo=rst("Pb_Menuo")
Pb_Diena=rst("Pb_Diena")
Pb_Valanda=rst("Pb_Valanda")
If ( Pb_Menuo < 10 ) then Pb_Menuo="0" & Pb_Menuo
If ( Pb_Diena < 10 ) then Pb_Diena="0" & Pb_Diena
response.write(Pr_Metai)
response.write(" ")
response.write(Pr_Menuo)
response.write(" ")
response.write(Pr_Diena)
response.write(" ")
If ( Pr_Valanda<> Empty and Pr_Valanda<>0 ) then
response.write(" ")
response.write(Pr_Valanda)
If ( Pr_Minutes<> Empty and Pr_Minutes<>0 ) then
response.write(".")
response.write(Pr_Minutes)
End If
response.write(" val.")
End If
response.write(" ")
If ( Pr_Metai<>Pb_Metai or Pr_Menuo<>Pb_Menuo or Pr_Diena<>Pb_Diena ) then
If ( Pb_Metai<>9999 ) then
response.write(Pb_Metai)
response.write(" ")
If ( Pb_Menuo<>99 ) then
response.write(Pb_Menuo)
response.write(" ")
If ( Pb_Diena<>99 ) then
response.write(Pb_Diena)
End If
End If
End If
End If
%>
|
<%
Vieta=rst("Vieta")
if ( Vieta <> 0 ) then
response.write(rst("Vietos_pavadinimas"))
end if
%>
|
<% response.write(rst("Pavadinimas")) %>
|
<%
if ( rst("Adresas")<>Empty ) 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 %>