<%Option Explicit%> <% DIM TIPO,RS TIPO=REQUEST("TIPO") IF UCASE(TIPO)="OFFERTA" THEN SET RS=SESSION("CONN").EXECUTE("SELECT * FROM ARTICOLI WHERE OFFERTA=TRUE") ELSE SET RS=SESSION("CONN").EXECUTE("SELECT * FROM ARTICOLI WHERE TIPO LIKE '"&TIPO&"'") END IF %> INDEX
<% DIM RSCAT SET RSCAT=SESSION("CONN").EXECUTE("SELECT TIPO FROM CATEGORIA") DO WHILE NOT RSCAT.EOF %> <%RSCAT.MOVENEXT%> <%LOOP%>
PRODOTTI
"><%=RSCAT("TIPO")%>
OFFERTA
PRODOTTI   (Cat : <%=TIPO%>)
<% DO WHILE NOT RS.EOF%>
TIPO <%=ucase(RS("TIPO"))%>   <%IF RS("OFFERTA") THEN%> IN OFFERTA <%END IF%> <%IF NOT ISNULL(RS("FOTO")) THEN%> <%END IF%>
MARCA <%=ucase(RS("MARCA"))%>
MODELLO <%=ucase(RS("MODELLO"))%>
DESCRIZIONE
<%=SERVER.HTMLENCODE(RS("DESCRIZIONE"))%>
 
PREZZO
 €   <%=RS("PREZZO")%>
<%RS.MOVENEXT%> <%LOOP%>

 

HABRAM COMPUTER DI ABBATE ANTONINO via Palazzi 176 - Gela (CL) - Sicily (IT) - Tel/Fax 0933933658
Email : habramc@tin.it oppure abbate.gius@tiscali.itabbate.gius@tiscali.it