<% Dim N_Lista N_Lista = request.cookies("Lista") %> Visualizza Lista di Nascita <% dim rs dim cn '*********************************************** ' Aggiunta '*********************************************** dim strDataBasePath ' Percorso del database set rs=server.CreateObject("ADODB.RECORDSET") set cn=server.CreateObject("ADODB.CONNECTION") '******************************************** ' Cambiare il Path del database '******************************************** strDataBasePath = "/mdb-database/E-commerce.mdb" cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath(strDataBasePath) cn.Open '*********************************** ' Apre il database ' rs.Source="Select * from Strutture_Aziendali" <<<-****** (OLD) '*********************************** rs.Source="select * from Prodotti WHERE Marca = '"&N_Lista&"'" rs.ActiveConnection = cn rs.Open ,,0,1 IF not rs.EOF then rs.MoveFirst end if %>

Lista di Nascita di : <%=n_lista%>

 Martinucci regali e ...
        
<% '************************************** 'Scrive l'intestazione delle colonne '*************************************** Response.Write "" & chr(13) Response.Write "" & chr(13) Response.Write "" & chr(13) Response.Write "" & chr(13) Response.Write "" & chr(13) Response.Write "" & chr(13) Response.Write "" & chr(13) while not rs.EOF Response.Write "" & chr(13) Response.Write "" & chr(13) '************************************** ' campo 1 '************************************** Response.Write "" & chr(13) '************************************** ' campo 2 '************************************** Response.Write "" & chr(13) '************************************** ' campo 3 '************************************** Response.Write "" & chr(13) '************************************** ' campo 4 ////=FormatCurrency((Lista.Fields.Item("Prezzo").Value)) '************************************** Response.Write "" & chr(13) '************************************** ' campo 5 '************************************** Response.Write "" & chr(13) Response.Write "" & chr(13) rs.MoveNext wend Response.Write "
---Cod Articolo Descrizione Prezzo Prenotato da
" & chr(13) Response.Write " " & chr(13) Response.Write "" & chr(13) Response.Write rs.Fields(1) & chr(13) Response.Write "" & chr(13) Response.Write rs.Fields(2) & chr(13) Response.Write "" & chr(13) Response.Write rs.Fields(3) & chr(13) Response.Write "" & chr(13) Response.Write FormatCurrency(rs.Fields(4)) & chr(13) Response.Write "" & chr(13) Response.Write rs.Fields(9) & chr(13) Response.Write "
" %>