<% 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 %>
"> ">

Kommentarer

<% Set rs_k = Server.CreateObject("ADODB.Recordset") sql = "select * from secret_bo where scr_id = '" & rs("src_id") & "' and valid = 1 order by bo_k_id" rs_k.open sql, conn, 1, 3 do while not rs_k.eof %>
<%=rs_k("bo_k_name") %>:<% if rs_k("bo_k_date") <> empty then%> (<%=datum(rs_k("bo_k_date")) %>)<%end if %>
<%=replace(Server.HTMLEncode(rs_k("bo_k_kom")), chr(10), "
") %>
<% rs_k.movenext loop %> <% rs_k.close %> Namn:
" style="width:300px;">
Kommentar:


Obs! Kommentarer publiceras först när skribenten har godkänt dem.
<% end if else %>
Tyvärr: idag finns det inga hemligheter.
<% end if rs.close %>
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 %>
"><%If rs2("src_rubrik") = empty then %>[rubriklös]<%else %><%=rs2("src_rubrik") %><%end if %>
<% rs2.movenext end if next rs2.close %>
<% conn.close %>