%
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), "
") %>
<% 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%>
<%
rs.movenext
end if
next
rs.close %>
<% conn.close %>