<%@LANGUAGE="VBSCRIPT"%>
<%
set rsHome = Server.CreateObject("ADODB.Recordset")
rsHome.ActiveConnection = MM_connSsm_new_STRING
rsHome.Source = "SELECT * FROM home ORDER BY data DESC"
rsHome.CursorType = 0
rsHome.CursorLocation = 2
rsHome.LockType = 3
rsHome.Open()
rsHome_numRows = 0
Session("settimana") = (rsHome.Fields.Item("ID").Value)
Session("data") = (rsHome.Fields.Item("data").Value)
dim testo
testo = (rsHome.Fields.Item("testo").Value)
if testo <> "" then
testo = Replace ((rsHome.Fields.Item("testo").Value), VbCrLf, " ")
end if
dim testo_1
testo_1 = (rsHome.Fields.Item("testo_1").Value)
if testo_1 <> "" then
testo_1 = Replace ((rsHome.Fields.Item("testo_1").Value), VbCrLf, " ")
end if
dim testo_2
testo_2 = (rsHome.Fields.Item("testo_2").Value)
if testo_2 <> "" then
testo_2 = Replace ((rsHome.Fields.Item("testo_2").Value), VbCrLf, " ")
end if
dim testo_3
testo_3 = (rsHome.Fields.Item("testo_3").Value)
if testo_3 <> "" then
testo_3 = Replace ((rsHome.Fields.Item("testo_3").Value), VbCrLf, " ")
end if
dim testo_4
testo_4 = (rsHome.Fields.Item("testo_4").Value)
if testo_4 <> "" then
testo_4 = Replace ((rsHome.Fields.Item("testo_4").Value), VbCrLf, " ")
end if
%>
Parrocchia S. Silvestro e Martino
<%
rsHome.Close()
%>
