<%
file = "aggiornamenti.mdb"
set conn = server.createobject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Request.ServerVariables("APPL_PHYSICAL_PATH") &"mdb-database\"& file
Set rs_news = Server.CreateObject("ADODB.Recordset")
rs_news.Open "SELECT * FROM notizie WHERE id = 1",conn,1,3
informazioni_news = rs_news("notizie")
informazioni_long = rs_news("descrizione")
if len(informazioni_news) > 0 AND informazioni_news <> "." then
informazioni_news = replace(informazioni_news,vbcrlf,"
")
end if
if len(informazioni_long) > 0 AND informazioni_long <> "." then
informazioni_long = replace(informazioni_long,vbcrlf,"
")
end if
rs_news.close
set rs_news = nothing
%>
<%response.Write(informazioni_news)%>
<%response.Write(informazioni_long)%>
