|
|
Dnes je
<%
Dim dnesniden
Dim den
dnesniden=weekday(now)
select case dnesniden
case 1
den="neděle"
case 2
den="pondělí"
case 3
den="úterý"
case 4
den="středa"
case 5
den="čtvrtek"
case 6
den="pátek"
case 7
den="sobota"
end select
response.write den & " " & day(now) & "." & month(now) & "." & year(now)%>
|
<%
recordset.open "Select * from uvod where uvod.id=1"
if recordset.eof and recordset.bof then
else
do while not recordset.eof%>
<%=recordset("text")%>
<%
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%>
| |