<% 'VERSIONE FILE 1.4.0 Option Explicit %> <% '---Dichiarazione variabili Dim QSCategoria, QSPg, I, Index, Codice, SQL, SQLScheda, RSScheda, QSID, ID, Prodotto, GDescrizione, GFoto, CPrezzo, Tipologia, RStip, RPrezzo, Giacenza, Iva, PuntiSconto, ProdottoGiacenzaInfinita QSCategoria = Request.QueryString("cat") QSSCategoria = Request.QueryString("scat") QSPg = Int(Request.QueryString("pg")) If QSPg <= 0 Then QSPg = 1 End If %> <%=NomeSito%>




 

<% QSID = Request.QueryString("ID") '---Recupero le informazioni sul prodotto dal database SQLScheda = " SELECT * FROM Prodotti WHERE ID = "& QSID & " AND Cancellato = False " Set RSScheda = Conn.Execute(SQLScheda) '---Assegno e stampo a video If Not RSScheda.EOF Then ID = RSScheda("ID") Codice = RSScheda("Codice") Prodotto = RSScheda("Prodotto") GDescrizione = RSScheda("GDescrizione") GFoto=RSScheda("GFoto") CPrezzo = RSScheda("CPrezzo") RPrezzo = RSScheda("RPrezzo") Giacenza = RSScheda("Giacenza") ProdottoGiacenzaInfinita = RSScheda("GiacenzaInfinita") Iva = RSScheda("Iva") PuntiSconto = RSScheda("PuntiSconto") Tipologia = RSScheda("Tipologia") RSScheda.Close %>

<%=Titolo_Pagina_Prodotto%>


> <%=Prodotto%> (<%=Codice%>)

<%=GDescrizione%>

<% If Tipologia = True Then Set RStip = Server.CreateObject("ADODB.RecordSet") SQL = " SELECT * FROM Tipologie WHERE IDProdotto = "& ID With RStip .Open SQL, Conn, 1 If Not (.BOF And .EOF) Then %> <% End If %>
<%=Disponibilita%>:  <% If ImmagineGiacenza Then Response.Write "" %>  <% If (ProdottoGiacenzaInfinita) Then Response.Write TestoGiacenzaInfinita Else Response.Write Giacenza End If End If %>

<%=TitoloCPrezzo%>: <%=SimboloValuta%> <%=VisualizzaPrezzo(CPrezzo)%> <%=Replace(IvaInclusa, "[iva]", IVA)%> <% If Session("Rivenditore") = True Then %>
<%=TitoloRPrezzo%>: <%=SimboloValuta%> <%=VisualizzaPrezzo(RPrezzo)%> <%=Replace(IvaNonCompresa, "[iva]", IVA)%> <% End If %>
" border="0" alt="<%=Prodotto%>" >
<%=Titolo_Aggiungi_Carrello%>:
<% If (Giacenza <= 0) AND (NOT ProdottoGiacenzaInfinita) Then %> <%=AggiungiNonDisponibile%> <% Else %> <% End If %>
<% End If %>
 






<% Conn.Close Set Conn = Nothing %>