 |
<%=aasta%>. Erklärungen:
<%
SQL = "dt0028Otsing @OTSITAVS6NA = '" & mida & "', @KEEL = 3, @AASTA = " & aasta
Set ADOR = Server.CreateObject("ADODB.Recordset")
Set ADOR = ADOC.Execute(SQL)
Pealkiri = ""
Do While Not ADOR.Eof
GID =ADOR.Fields("GID").Value
Pealkiri = ADOR.Fields("Pealkiri").Value
aeg =ADOR.Fields("aeg").Value
KUU =ADOR.Fields("KUU").Value
If KUU <> KUU1 Then
KUU1 = KUU
Response.Write " " & KUU & " "
End If
%> <%=Pealkiri%>
<%= FormatDateTime(aeg, 2)%>
<%
ADOR.MoveNext
Loop
If Pealkiri = "" Then
Response.Write "Ühtegi " & AASTA & ". aastal publitseeritud dokumenti ei leitud, mis vastab Teie tingimustele! "
End If
%>
<%
SQL = "dt0028OtsingKogusAastateKaupa @OTSITAVS6NA = '" & mida & "', @KEEL = 3"
Set ADOR = Server.CreateObject("ADODB.Recordset")
Set ADOR = ADOC.Execute(SQL)
Do While Not ADOR.Eof
AASTAD =ADOR.Fields("AASTAD").Value
DTKOGUS = ADOR.Fields("DTKOGUS").Value
%>
<% If CInt(AASTAD) = CInt(AASTA) Then %>
<%=AASTAD%> (<%=DTKOGUS%>)
<% Else %>
<%=AASTAD%> (<%=DTKOGUS%>)
<% End If %>
<% ADOR.MoveNext : Loop %>
zurück | archiv | start
|
