|
<%
file = "info.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_info = Server.CreateObject("ADODB.Recordset")
rs_info.Open "SELECT * FROM notizie WHERE id = 1",conn,1,3
informazioni_info = rs_info("informazioni")
if len(informazioni_info) > 0 AND informazioni_info <> "." then
informazioni_info = replace(informazioni_info,vbcrlf," ")
%> Offerta per gli utenti internet: <%
response.Write(informazioni_info)
%>
|