<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("/mdb-database/news.mdb") ) Set Rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM news WHERE id = "& request.querystring("id") Rs.Open sql, Conn, 1, 3 If Rs.EOF then response.write "
" else response.write ""& replace(Ucase(Rs("titolo")),"##","'") &"" foto1 = Rs("foto1") if Rs("didfoto1") <> "0" then didfoto1 = replace(Rs("didfoto1"),"##","'") else didfoto1 = "" end if testo = replace(Rs("testo"),"##","'") end if Rs.Close Set Rs = Nothing Conn.Close Set Conn = Nothing %>


<% if foto1 <> "0" then %>


<%=didfoto1%>
(clicca per ingrandire)
<%end if%>

<%=testo%>

 

 

 

 
 

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

Cookie policy | Privacy policy