<%@ Language=VBScript %> <% Dim conn Dim rs Set conn = Server.CreateObject("ADODB.Connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("/db/CatalogoCuccagna.mdb") Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT * FROM TB_PRODOTTI WHERE CategoriaSid=54", conn %> Tartufi

TARTUFI

 

<%do while not rs.eof%>
<% rs.movenext loop %>
_small.jpg" width="115" height="85" alt="Clicca per ingrandire">

<%rs.Fields("Descrizione").Value%>

<%FormatNumber(rs.Fields("Prezzo").Value, 2)%> euro <%rs.Fields("Dimensione").Value%>