<%
Set Rs = Conn.Execute("SELECT * FROM novita WHERE Trim(titolo_deu) <> '' AND Trim(contenuto_deu) <> '' AND data <= '" & Year(Date) & Right("00" & Month(Date), 2) & Right("00" & Day(Date), 2) & "' ORDER BY data DESC")
While Not Rs.EOF
%>
| |
|
<% = Mid(Rs("data"), 7, 2) & "." & Mid(Rs("data"), 5, 2) & "." & Mid(Rs("data"), 1, 4) %>
|
| <% = Server.HTMLEncode(Rs("titolo_deu")) %> |
<% = Replace(Server.HTMLEncode(Rs("contenuto_deu")), vbCrLf, vbCrLf & " " & vbCrLf) %>
|
<%
Rs.MoveNext
Wend
Conn.Close
Set Rs = Nothing
Set Conn = Nothing
%>
|