<%@ Language=VBScript %> <% Set oCon = Server.CreateObject("ADODB.Connection") oCon.Open dbfconncpz ocon.CursorLocation=3 Set MemRecordSet = Server.CreateObject("ADODB.Recordset") if request("zapis")="ok" then bstrQuery = "insert into diskusia (kde,subject,text,meno,email,datum,clanok) values ('"&kde&"','"&replace(request("subject"),"'","")&"','"&replace(request("textx"),"'","")&"','"&replace(request("meno"),"'","")&"','"&replace(request("email"),"'","")&"',getdate(),'"&replace(request("id"),"'","")&"')" MemRecordSet.Open bstrQuery, dbfconncpz,1,4 ' bstrQuery ="insert into diskusia (meno,email,text,subject,clanok,kde,datum) values ('"&Request("meno")&"','"&Request("email")&"','"&mid(replace(Request("text"),""&vbcrlf,"
")&"",1,3999)&"','"&Request("subjekt")&"','"&Request("id")&"','"&kde&"',getdate())" Response.Redirect("diskusia.asp?id="&request("id")&"&rnd="&rnd) end if %>
 
<% if request("id")&""="" then %> Chcete vyjadriť svoj postoj k daňovej či dôchodkovej reforme, ktoré pre nás pripravila súčasná pravicová vláda? Chcete zaujať stanovisko k odluke cirkvi od štátu, či k zavádzaniu vyučovania náboženstva na školách? Využite prosím túto rubriku. <% end if %> <% 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 %>
<%=memrecordset("datum")%>
"><%=memrecordset("nazov")%>
<%=memrecordset("titletext")%>
 <% if memrecordset("titlepic")&""<>"" then %> "> <% end if %>
<% memrecordset.movenext loop memrecordset.close %> &zapis=ok" name="forma" id="forma"> <% page=request("page") if page="" then page=0 page=page+0 lastskupina="" yop=20+page*20 Set MemRecordSet = Server.CreateObject("ADODB.Recordset") bstrQuery = "Select top "&yop&" * from diskusia where clanok='"&request("id")&"' and kde='"&kde&"' order by id desc" MemRecordSet.Open bstrQuery, ocon,0,1 aa=0 %> <% Do While Not MemRecordSet.EOF %>
Odosielateľ:
Predmet:
Pridajte svoj názor:
 
V diskusii je <%=memrecordset.recordcount%> príspevkov.
<% aa=aa+1 if aa>page*20 then %>
<% farba3=farbanadpisov2 %> <%=ucase(replace(memrecordset("meno"),"<","<"))%> [ <%=memrecordset("datum")%> ]
<% if memrecordset("email")<>"" then %> e-mail:"><%= replace(memrecordset("email"),"<","<") %>
<% end if%> <% %> <% if memrecordset("subject")<>"" then %> <%= replace(memrecordset("subject"),"<","<") %>
<% end if%> <% textx=memrecordset("text") if instr(1,textx," ")=0 and len(textx)>40 then textx=mid(textx,1,40)%> <%aaaaa=replace(textx,"
","|br|")%> <%aaaaa=replace(textx,"<","")%> <%aaaaa=replace(textx,"|br|","
")%> <%=aaaaa%>
<% end if MemRecordSet.MoveNext Loop memrecordset.close %>
<% bstrQuery = "Select id from diskusia where clanok='"&request("id")&"' and kde='"&kde&"'" MemRecordSet.Open bstrQuery, oCon,1,4 %> <% if page>0 then %> &page=<%=page-1%>"><<<<<<<% end if %>  <% if page*2020 then %> &page=<%=page+1%>">>>>>>> <% end if %> <% memrecordset.close %>

<% if request("id")&""<>"" then %> ">Návrat na článok


<% end if %>

<% ocon.close Set oCon = nothing Set MemRecordSet = nothing %>