<%
dim conn
dim rs
dim IDPRODOTTO
dim nome
dim prezzo
dim qta
dim codice
dim mioid
dim quanti
'qta=REQUEST("qta")
'codice=request("codice")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/dati.mdb")
sql = "Select news.* from news order by data "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn
%>
