News

<% set RS1 = Server.CreateObject("ADODB.Recordset") RS1.ActiveConnection = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="& Server.mappath("db/webcom.mdb") & ";" if idNews <> 0 then RS1.Source = "SELECT * FROM news WHERE id = "&idNews else RS1.Source = "SELECT TOP 1 * FROM news ORDER BY ID desc" end if RS1.CursorType = 0 RS1.CursorLocation = 2 RS1.LockType = 3 RS1.Open if (NOT RS1.EOF) then if db("allegato") <> "" then %>

" target="_blank"><%=db("allegato")%>

<% end if %>

<%=db("Titolo")%>

<%if db("Sottotitolo") <> "" then%>

» <%=db("Sottotitolo")%>

<%end if%> <%if db("Data") <> "" then%> <%=db("Data")%> <%end if%>

<%if db("foto1") <> "" then%>

" alt="<%=db("Titolo")%>" /> <%end if%> <%if db("foto2") <> "" then%>

" alt="<%=db("Titolo")%>" /> <%end if%> <%if db("foto3") <> "" then%>

" alt="<%=db("Titolo")%>" /> <%end if%>

<% testo = db("testoHTM") if instr(testo,vbCrLf) then testo = replace(testo,vbCrLf,"

") end if testo = "

"&testo&"

" %> <%=testo%> <%if db("Link") <> "" then%> More info:

" target="blank"><%=db("Link")%> <%end if%> <% end if RS1.Close Set RS1 = Nothing %>