<% Set con=Server.CreateObject("ADODB.Connection") con.open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("/mdb-database/db.mdb") dbCode="5ANJzWYGVs7hLYQX" dbuser="piraext" dbServer="unix01.piramedia.it" dbDriver="MySQL ODBC 3.51 Driver" dbname="databaseMo" conMo = "server=" & dbServer & ";db=" & dbName & ";driver=" & dbDriver & ";uid=" & dbUser & ";pwd=" & dbCode & ";" FUNCTION fixquotes (thestring) fixquotes = REPLACE (thestring, "'", "''" ) END FUNCTION Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = con sqlString = "select * from scheda" RS.open sqlString nome = rs("nome") italiano = rs("italiano") inglese = rs("inglese") tedesco = rs("tedesco") francese = rs("francese") sito = rs("sito") email = rs("email") password = rs("password") portale = rs("portale") altro = rs("altro") naltro = rs("naltro") ml = rs("ml") id_portale = rs("idportale") %> Meteo di Montaione, Meteo provincia di Firenze, Toscana