<% Set boord = Server.CreateObject("ADODB.Recordset") if request("bo_date") = empty then sql = "SELECT * FROM besoksord where bo_date <= '" & date() & "' ORDER BY bo_date DESC" ' sql = "SELECT * FROM besoksord ORDER BY bo_date DESC" else sql = "select * from besoksord where bo_date = '" & request("bo_date") & "' and bo_date <= '" & date() & "'" end if boord.open sql, conn, 1, 3 if boord.eof then bo_bakgrund = "ffffff" else bo_bakgrund = boord("bo_bakgrund") bo_datum = boord("bo_date") headline = boord("bo_headline") bo_namn = boord("bo_name") end if pagetitel = headline & " - "& bo_namn & " - Gästskriv på " %>

Besökande Ord

<% if not boord.eof then %>

<%=boord("bo_headline") %>

<%=datum_kort(boord("bo_date")) %> av <%=boord("bo_name") %>
<%=replace(boord("bo_text"), chr(10), "
") %>

Kommentarer

<% Set rs_k = Server.CreateObject("ADODB.Recordset") sql = "select * from bo_k where bo_id = '" & boord("bo_id") & "' 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:
">

<% else %>
Tyvärr, inga externa ord besöker Ord idag.
<% end if boord.close %>
Inte bara Ordare kan och vill skriva, varje dag publiceras ett ord skrivet av någon av alla våra besökare.
<% if session("filuserid") = empty then %>
Vill du skriva ett ord här?

<% end if %>

Tidigare besök

<% sql = "select * from besoksord where bo_date <= '" & date() & "' order by bo_date desc" rs.open sql, conn, 1, 3 for bo_ord_int = 1 to 12 if not rs.eof then%>
" class=link_on_white><%=rs("bo_headline") %>
<%=datum_kort(rs("bo_date")) %> av <%= rs("bo_name") %>
<% rs.movenext end if next rs.close %>
<% conn.close %>