<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim piante Dim piante_numRows Set piante = Server.CreateObject("ADODB.Recordset") piante.ActiveConnection = MM_piantef_STRING piante.Source = "SELECT * FROM Bonsai" piante.CursorType = 1 piante.CursorLocation = 2 piante.LockType = 1 piante.Open() piante_numRows = 0 %> <% Dim dettaglio__MMColParam dettaglio__MMColParam = "1" If (Request.QueryString("select") <> "") Then dettaglio__MMColParam = Request.QueryString("select") End If %> <% Dim dettaglio Dim dettaglio_numRows Set dettaglio = Server.CreateObject("ADODB.Recordset") dettaglio.ActiveConnection = MM_piantef_STRING dettaglio.Source = "SELECT * FROM Bonsai WHERE ID = " + Replace(dettaglio__MMColParam, "'", "''") + "" dettaglio.CursorType = 2 dettaglio.CursorLocation = 2 dettaglio.LockType = 1 dettaglio.Open() dettaglio_numRows = 0 Dim foto foto = 0 if Request.QueryString("n_foto")<>"" then foto = Request.QueryString("n_foto") End if %>

	azienda prodotti info arredo
	> Listino| Suggerimenti | ricerca   > 2003 FLORPAGANO - Ruvo di Puglia - BARI - ITALY

<% piante.Close() Set piante = Nothing %> <% dettaglio.Close() Set dettaglio = Nothing %>