<%=memrecordset("kategoria")%>

<% if memrecordset("kategoria")&""="SDĽ v médiách" then %> <%=memrecordset("nazov")%>

<%=memrecordset("autor")%> - <%=memrecordset("medium")%> [<%=day(memrecordset("datum"))%>.<%=month(memrecordset("datum"))%>.<%=year(memrecordset("datum"))%>]
<% else %> <% if memrecordset("kategoria")&""<>"Profil" then %><%=day(memrecordset("datum"))%>.<%=month(memrecordset("datum"))%>.<%=year(memrecordset("datum"))%>
<% end if %><%=memrecordset("nazov")%>
<% end if %> <% if memrecordset("titlepic")&""<>"" then %>

" align="right" width=124> <% end if %> <% vysl=replace(replace(replace(replace(memrecordset("alltext")," <% vysl=replace(vysl,"

<% vysl=replace(vysl,"

<% vysl=replace(vysl," <% vysl=replace(vysl," <% vysl=replace(vysl,"","")%> <% vysl=replace(vysl,"","")%> <% vysl=replace(vysl," <% vysl=replace(vysl,"","")%> <% vysl=replace(vysl,"","")%> <% vysl=replace(vysl,"","")%> <% vysl=replace(vysl,"","")%> <% vysl=replace(vysl,"","")%> <% vysl=replace(vysl,"","")%> <%=vysl%>

<% Set MemRecordSet3 = Server.CreateObject("ADODB.Recordset") bstrQuery = "select * from obrazky where idrec='"&request("id")&"'" MemRecordSet3.Open bstrQuery, dbfconncpz,1,4 if memrecordset3.recordcount>0 then w=0 do while not memrecordset3.eof w=w+1 %> ">

" alt="<%=memrecordset3("popis")%>" width=100><% if w=3 then Response.write("
") w=0 end if memrecordset3.movenext loop end if memrecordset3.close set memrecordset3=nothing %>

&rnd=<%=rnd%>', 'notes', 'width=560,height=450,scrollbars=yes,resizable=yes');">verzia pre tlač

&rnd=<%=rnd%>', 'notes', 'width=500,height=450,scrollbars=yes,resizable=yes');">poslať e-mailom

">diskusia

<% memrecordset.movenext loop memrecordset.close %>