<% @Language=VBScript %> <% '~~~~ Kataloog: Ametlikud teated '~~~~ Dokument: Välisvisiidid '~~~~ Keel: saksa '~~~~ Viimati muudetud: 20.03.2001 [Taavi Meos] dim Keel Keel = 3 %> Eesti Vabariigi President - Besuche im Ausland
<% '~~~~ SQL: Viimane välisvisiit '~~~~ @Keel = 1 SQL = "dt0033ViimaneDokument " & Keel Set ADOR = Server.CreateObject("ADODB.Recordset") Set ADOR = ADOC.Execute(SQL) GID =ADOR.Fields("GID").Value Pealkiri = ADOR.Fields("Pealkiri").Value aeg =ADOR.Fields("aeg").Value sisu = Replace(ADOR.Fields("sisu").Value, VBLf, "
") ADOR.Close %>


Besuche im Ausland
<% mida = Request.QueryString("mida") aasta = Request.QueryString("aasta") If aasta = "" Then aasta = DatePart("yyyy", Now()) End If %>
Suche:
 
<% If GID > 0 Then %>
printversion
<% End If %>

<% If GID > 0 Then %>
<%=Pealkiri%>
<%= FormatDateTime(aeg, 2)%>

<%=sisu%>


<% Dim mitmes SQL = "dt0033ViimasedDokumendid " & Keel Set ADOR = Server.CreateObject("ADODB.Recordset") Set ADOR = ADOC.Execute(SQL) Do While Not ADOR.Eof GID =ADOR.Fields("GID").Value Pealkiri = ADOR.Fields("Pealkiri").Value aeg =ADOR.Fields("aeg").Value mitmes = mitmes + 1 If mitmes > 1 Then %> <%=Pealkiri%>
<%= FormatDateTime(aeg, 2)%>
<% End If ADOR.MoveNext Loop %>

<% End If %>

 

archiv | start