codice:
<%
id = request("id")
Set Conn= Server.CreateObject("Adodb.connection")
Conn.Open "provider=microsoft.jet.oledb.4.0; data source="& Server.MapPath("asp/db/nomedb.mdb")
sql =" select * from prodotti where idprodotto ="&id
set rs = conn.execute(sql)
%>
<%
While NOT rs.EOF
%>
Descrizione: <%= rs("descrizione") %>
Prodotto: <%= rs("prodotto") %>
Linea: <%= rs("linea") %>
Validità: <%= rs("validita") %>
Prezzo: <%= rs("prezzo") %>
<hr>
<%
rs.MoveNext
Wend
%>
<%
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
Sperando di non ver scritto oscenità :-)