<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim N_Lista
N_Lista = request.cookies("Lista")
X_Lista = "Marca=N_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
%>
<%
if N_Lista <> "" then
Dim Prodo
Dim Prodo_numRows
Set Prodo = Server.CreateObject("ADODB.Recordset")
Prodo.ActiveConnection = MM_ecommerce_STRING
Prodo.Source = "SELECT * FROM Prodotti WHERE Marca = '"&N_Lista&"'"
' Prodo.Source = "SELECT * FROM Prodotti WHERE Marca = ='"&Request.QueryString("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 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 Roma Colleferro (RM)
intestato a: Martinucci Luigina s.a.s. di Martinucci Carlo
Coord. Bancarie:
IBAN: IT 91 Y 08327 39060 000000703559
Tel. e FAX 06 97304143
E-mail:
martinucci@martinucci-regali.com |
| |
|
| Lista
di Nascita: |
<% 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
%>
<%
if N_Lista <> "" then
Prodo.Close()
Set Prodo = Nothing
end if
%>