 |
NEWS
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open = "news"
set novita=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM [novita] ORDER BY data"
novita.Open sql, conn,3,3
%>
<%if novita.eof then%>
Nessuna novità attualmente presente in archivio.<%else%>
|
|
|
| Data |
Novità |
Approfondimento |
|
|
<%
vecchia="****"
do while not novita.eof
data=" " & right("00" & (novita("data") mod 100) ,2) & "/" & right("00" & int((novita("data") mod 10000)/100),2) & "/" & right(int(novita("data")/10000),2)
if not isNull(novita.fields("dataf").value) then data=data & "
" & right("00" & (novita("dataf") mod 100) ,2) & "/" & right("00" & int((novita("dataf") mod 10000)/100),2) & "/" & right(int(novita("dataf")/10000),2)
%>
| <%=data%> |
<%=novita("titolo")%>
<%=novita("corpo")%> |
<%if not isNull(novita("d_lunga")) then%>&id_news=<%=novita("id")%>','dettagli',630,240);" target="_self"> <%end if%> |
|
<%novita.movenext
loop%>
<%end if
novita.close
set novita=Nothing
set conn=Nothing
%> |
|
|
