|
|
|
| Naši partneři Kontaktovat firmu | | | |
<%
recordset.open "SELECT * FROM uvod where uvod.id=2"
response.write recordset("text")
recordset.close
%>
|
<%
recordset.open "SELECT * FROM partneri;"
if recordset.eof and recordset.bof then%>
<%response.write ""%>
<%
else
kikin=600
do while not recordset.eof
kikin=kikin+1
%>
<%recordset.movenext
loop
end if
recordset.close
%>
|
|
|
|
| |
<%
recordset.open "Select * from anketa;"
if recordset("on") then
anketa=true
else
anketa=false
end if
recordset.close
recordset.open "Select * from zbozi where zbozi.akce>0;"
if recordset.eof and recordset.bof then
else
pocetakci=recordset.recordcount
randomize
citace=0
if pocetakci>=3 then
citace=int(rnd*(pocetakci-3)+1)
else
citace=0
end if
kikinc=0
%>
<%end if
recordset.close
%>
<%
recordset.open "Select * from novinky order by novinky.datum desc;"
if recordset.eof and recordset.bof then
else
kikin=0
%>
<%end if
recordset.close
%><%
recordset.open "Select * from anketa;"
if recordset("on") then
application.lock
application("cervena")=recordset("cervena")
application("zluta")=recordset("zluta")
application("modra")=recordset("modra")
application.unlock
%>
<%
end if
recordset.close%>
| |