Write new

<% For Each d in data("datas").Items %>
<%=s.html(d("title"))%>  ">Edit  ">Del
<%=Replace(s.html(d("body")), vbCrLf, "
")%>
<%=d("modified")%>

<% Next %>