<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 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")&"'" 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 %> Shop online - Fusaromoto E-commerce - Daviduccio.it


   
Lista Per Marca:

 
Lista Per Categoria:


 
Azioni:
 

<% 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 %> 		  
| Home | Chi siamo | Moto| Aquabike | Quad | Officina | Ricambi | Eventi | Contatti | Lavora con noi | Shop |
© fusaromoto 2004 - 2007 realizzato da sergio fusaro ecommerce by daviduccio.it
  

<% 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%>