<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim N_Lista N_Lista = request.cookies("Lista") %> <% Dim marca Dim marca_numRows Set marca = Server.CreateObject("ADODB.Recordset") marca.ActiveConnection = MM_ecommerce_STRING marca.Source = "SELECT DISTINCT Marca FROM Prodotti" marca.CursorType = 0 marca.CursorLocation = 2 marca.LockType = 1 marca.Open() marca_numRows = 0 %> <% Dim Tipo Dim Tipo_numRows Set Tipo = Server.CreateObject("ADODB.Recordset") Tipo.ActiveConnection = MM_ecommerce_STRING Tipo.Source = "SELECT DISTINCT Classe FROM Prodotti" Tipo.CursorType = 0 Tipo.CursorLocation = 2 Tipo.LockType = 1 Tipo.Open() Tipo_numRows = 0 %> <% if Request.QueryString("fcampo") <> "" Or Request.QueryString("fcosa") <> "" then Dim Prodo Dim Prodo_numRows Set Prodo = Server.CreateObject("ADODB.Recordset") Prodo.ActiveConnection = MM_ecommerce_STRING ' Prodo.Source = "SELECT * FROM Prodotti WHERE "&Request.QueryString("fcampo")&"='"&Request.QueryString("fcosa")&"' AND Dispo = 'Y'" Prodo.Source = "SELECT * FROM Prodotti WHERE Marca = '& N_Lista' AND Dispo = 'Y'" Prodo.CursorType = 0 Prodo.CursorLocation = 2 Prodo.LockType = 1 Prodo.Open() Prodo_numRows = 0 end if %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 marca_numRows = marca_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 Tipo_numRows = Tipo_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 Prodo_numRows = Prodo_numRows + Repeat3__numRows %> Liste di Nascite - Martinucci regali e ...

L'acquisto dell'articolo prenotato puņ essere effettuato attraverso il pagamento in contanti
oppure a mezzo Bonifico Bancario presso BCC di Anagni (FR) filiale di Montelanico (RM)
intestato a: Martinucci Luigina & C. s.n.c.
Coord. Bancarie: 
EU IBAN: IT94 R083 4439 2100 0000 8827 626
Tel. e FAX 06 97304143
 E-mail: martinucci@martinucci-regali.com
Martinucci regali e ...  
   
Liste di Nascite
<% response.write N_lista %>

 

 
 
Azioni:

ESCI
 

<% if request.QueryString("az")="prod" then%> <%end if if request.QueryString("az")="list" then%>  

<%end if if request.QueryString("az")="carr" then%>  

<%end if if request.QueryString("az")="carrList" then%>  

<%end if if request.QueryString("az")="" then%>  

<%end if if request.QueryString("az")="ordina" then%>  

<%end if if request.QueryString("az")="ricerca" then%>  

<%end if if request.QueryString("az")="errore" then%>  

<%end if %> <% marca.Close() Set marca = Nothing %> <% Tipo.Close() Set Tipo = Nothing %> <%if Request.QueryString("fcampo") <> "" Or Request.QueryString("fcosa") <> "" then Prodo.Close() Set Prodo = Nothing end if%>