%
pagetitel = "Hemliga Ord på "
%>
<%
datta = request("datum")
k = request("k")
if datta = empty or datta < date() then
datta = date()
end if
%>
Secretspot
<% if k = "ok" then%>
Tack för kommentaren, den kommer att visas när skribenten har godkänt den. Titta gärna tillbaka senare...
<% end if %>
<% sql = "select * from secretspot where src_datum = '" & datta & "' and src_datum <= '" & date() & "'"
rs.open sql, conn, 1, 3
if not rs.eof then
text_rubrik = Server.HTMLEncode(rs("src_rubrik"))
text_text = rs("src_text")
%>
<%=text_rubrik %>
<%=datum_kort(rs("src_datum")) %>
<%=replace(text_text, chr(10), "
") %>
<% if rs("src_comment") = 1 then %>
Ibland behöver man skriva lite anonymt. Det kan Ordarna göra på denna sida, och det är självklart inte meningen att du ska veta vem som har skrivit vad.
Senaste sju hemliga Orden
<%
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.maxrecords = 10
sql = "select * from secretspot where src_datum <= '" &date()& "' order by src_datum desc"
rs2.open sql, conn, 1,3
for i = 1 to 10
if not rs2.eof then
%>
<%
rs2.movenext
end if
next
rs2.close
%>
<% conn.close %>