<% StrConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "&Server.MapPath(".") & "/mdb-database/parrocchia.mdb;" Set conn = Server.CreateObject("ADODB.Connection") conn.open Strconn Set objRs = Server.CreateObject("ADODB.Recordset") set objRs = conn.Execute("SELECT * from trasmissione where id = 1" ) loggato = false Do while NOT objRs.EOF response.write(objRs("trasmissione")) objRs.Movenext Loop objRs.Close Set objRs = Nothing conn.Close Set conn = Nothing %>

  <% StrConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "&Server.MapPath(".") & "/mdb-database/parrocchia.mdb;" Set conn = Server.CreateObject("ADODB.Connection") conn.open Strconn Set objRs = Server.CreateObject("ADODB.Recordset") set objRs = conn.Execute("SELECT * from trasmissione where id = 2" ) loggato = false Do while NOT objRs.EOF response.write(objRs("trasmissione")) objRs.Movenext Loop objRs.Close Set objRs = Nothing conn.Close Set conn = Nothing %>

  <% StrConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "&Server.MapPath(".") & "/mdb-database/parrocchia.mdb;" Set conn = Server.CreateObject("ADODB.Connection") conn.open Strconn Set objRs = Server.CreateObject("ADODB.Recordset") set objRs = conn.Execute("SELECT * from trasmissione where id = 3" ) loggato = false Do while NOT objRs.EOF response.write(objRs("trasmissione")) objRs.Movenext Loop objRs.Close Set objRs = Nothing conn.Close Set conn = Nothing %>

  <% StrConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "&Server.MapPath(".") & "/mdb-database/parrocchia.mdb;" Set conn = Server.CreateObject("ADODB.Connection") conn.open Strconn Set objRs = Server.CreateObject("ADODB.Recordset") set objRs = conn.Execute("SELECT * from trasmissione where id = 4" ) loggato = false Do while NOT objRs.EOF response.write(objRs("trasmissione")) objRs.Movenext Loop objRs.Close Set objRs = Nothing conn.Close Set conn = Nothing %>

  <% StrConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "&Server.MapPath(".") & "/mdb-database/parrocchia.mdb;" Set conn = Server.CreateObject("ADODB.Connection") conn.open Strconn Set objRs = Server.CreateObject("ADODB.Recordset") set objRs = conn.Execute("SELECT * from trasmissione where id = 5" ) loggato = false Do while NOT objRs.EOF response.write(objRs("trasmissione")) objRs.Movenext Loop objRs.Close Set objRs = Nothing conn.Close Set conn = Nothing %>

  <% StrConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "&Server.MapPath(".") & "/mdb-database/parrocchia.mdb;" Set conn = Server.CreateObject("ADODB.Connection") conn.open Strconn Set objRs = Server.CreateObject("ADODB.Recordset") set objRs = conn.Execute("SELECT * from trasmissione where id = 6" ) loggato = false Do while NOT objRs.EOF response.write(objRs("trasmissione")) objRs.Movenext Loop objRs.Close Set objRs = Nothing conn.Close Set conn = Nothing %>

  <% StrConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "&Server.MapPath(".") & "/mdb-database/parrocchia.mdb;" Set conn = Server.CreateObject("ADODB.Connection") conn.open Strconn Set objRs = Server.CreateObject("ADODB.Recordset") set objRs = conn.Execute("SELECT * from trasmissione where id = 7" ) loggato = false Do while NOT objRs.EOF response.write(objRs("trasmissione")) objRs.Movenext Loop objRs.Close Set objRs = Nothing conn.Close Set conn = Nothing %>

  <% StrConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "&Server.MapPath(".") & "/mdb-database/parrocchia.mdb;" Set conn = Server.CreateObject("ADODB.Connection") conn.open Strconn Set objRs = Server.CreateObject("ADODB.Recordset") set objRs = conn.Execute("SELECT * from trasmissione where id = 8" ) loggato = false Do while NOT objRs.EOF response.write(objRs("trasmissione")) objRs.Movenext Loop objRs.Close Set objRs = Nothing conn.Close Set conn = Nothing %>