<!--#Include File="setting.asp"-->
<%
Set oCon = Server.CreateObject("ADODB.Connection")
oCon.Open dbfconncpz
ocon.CursorLocation=3
Set MemRecordSet = Server.CreateObject("ADODB.Recordset")
%>
<!--#Include File="_top.asp"-->

<%
				bstrQuery = "Select * from clanky where kde='"&kde&"' and id='"&request("id")&"' order by id desc"
				MemRecordSet.Open bstrQuery, ocon,1,4	
do while not memrecordset.eof
                %>
<DIV id=Layer11 
style="Z-INDEX: 17; LEFT: 220px; WIDTH: 360px; POSITION: absolute; TOP: 151px; HEIGHT: 383px">
<table width="100%" height="25" background="images/topback2.gif"> 
<tr><td>&nbsp;<font size="3" face="arial black" color="#8F0000"><b><%=memrecordset("kategoria")%></b>
</td></tr></table>

<TABLE cellSpacing=0 cellPadding=2 width="100%" border=0>
  <TBODY>
  <TR>
    <TD vAlign=top width="90%">
      <DIV align=justify>
<% if memrecordset("kategoria")&""="SDĽ v médiách" then %>
<SPAN class=text-red-small><%=memrecordset("nazov")%><BR>
<br>
<SPAN class=text-sivy-small><%=memrecordset("autor")%> - <%=memrecordset("medium")%> [<%=day(memrecordset("datum"))%>.<%=month(memrecordset("datum"))%>.<%=year(memrecordset("datum"))%>]<BR>
</SPAN><SPAN class=text-black-small>
<% else %>
<% if memrecordset("kategoria")&""<>"Profil" then %><SPAN class=text-sivy-small><%=day(memrecordset("datum"))%>.<%=month(memrecordset("datum"))%>.<%=year(memrecordset("datum"))%><BR><% end if %></SPAN><SPAN class=text-red-small><%=memrecordset("nazov")%> <BR></A><% end if %></SPAN><SPAN 
      class=text-black-small>
<% if memrecordset("titlepic")&""<>"" then %>
<img src="<%=memrecordset("titlepic")%>" align="right" width=124>
<% end if %>
<% vysl=replace(replace(replace(replace(memrecordset("alltext"),"<font","<fon"),"<FONT","<FON"),"</font","</fon"),"</FONT","</FON")%>
<% vysl=replace(vysl,"<p ","<pxx")%>
<% vysl=replace(vysl,"<P ","<pxx")%>
<% vysl=replace(vysl,"<?xml","<pxx")%>
<% vysl=replace(vysl,"<span ","<spa")%>
<% vysl=replace(vysl,"</span>","</spa>")%>
<% vysl=replace(vysl,"</SPAN>","</SPA>")%>
<% vysl=replace(vysl,"<SPAN ","<spa")%>
<% vysl=replace(vysl,"</H1>","</H1><SPAN class=text-black-small>")%>
<% vysl=replace(vysl,"</H2>","</H2><SPAN class=text-black-small>")%>
<% vysl=replace(vysl,"</H3>","</H3><SPAN class=text-black-small>")%>
<% vysl=replace(vysl,"</H4>","</H4><SPAN class=text-black-small>")%>
<% vysl=replace(vysl,"</H5>","</H5><SPAN class=text-black-small>")%>
<% vysl=replace(vysl,"</H6>","</H6><SPAN class=text-black-small>")%>
      <%=vysl%></SPAN></DIV></TD>
      
      </TBODY></TABLE>
<center>
<%
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
%>
<a target="_new" border="0" href="obrazok.asp?link=<%=memrecordset3("pic2")%>"><img src="<%=memrecordset3("pic")%>" alt="<%=memrecordset3("popis")%>" width=100></a><%
if w=3 then 
Response.write("<br>")
w=0
end if 
memrecordset3.movenext
loop
end if 
memrecordset3.close
set memrecordset3=nothing
%>


<TABLE cellSpacing=0 cellPadding=2 width="100%" border=0>
  <TBODY>
          <tr> 
            <td width="29%"><img src="images/printer.gif" width="16" height="17" align="absmiddle"><span class="text-sivy-small"> 
              <a href="#"><span onclick="window.open('tlac.asp?id=<%=request("id")%>&amp;rnd=<%=rnd%>', 'notes', 'width=560,height=450,scrollbars=yes,resizable=yes');">verzia pre tlač</span></a></span></td>
            <td width="31%"><span class="text-sivy-small"><img src="images/posli_e_mailom.gif" width="15" height="16" align="absmiddle"> 
              <a href="#"><span onclick="window.open('mail.asp?id=<%=request("id")%>&amp;rnd=<%=rnd%>', 'notes', 'width=500,height=450,scrollbars=yes,resizable=yes');">poslať e-mailom</a></span></td>
            <td width="31%"><span class="text-sivy-small">
              <a href="diskusia.asp?id=<%=request("id")%>">diskusia</a></span></td>
          </tr>
      </TBODY></TABLE>
      
      <IMG 
height=2 src="images/separator_midle.gif" width=360> 

<%
 memrecordset.movenext
 loop
memrecordset.close
%>      
</DIV>
      

<!--#Include File="_down.asp"-->
<%
ocon.close
Set oCon = nothing
Set MemRecordSet = nothing
%>