<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("/mdb-database/pagine.mdb") ) Set Rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM pagine WHERE pagina = 'consoli'" Rs.Open sql, Conn, 1, 3 If Rs.Eof then response.write "Sezione vuota" else testo = replace(Rs("testo"),"##","'") response.write testo end if Rs.Close Set Rs = Nothing Conn.Close Set Conn = Nothing %>

 
 

powered by first web - segnalato su www.viveretrapani.it

Cookie policy | Privacy policy