% session.LCID=1040 %>
<%
function imgPrezzo (prezzo)
Dim j
'CREAZIONE IMMAGINE PREZZO
prezzo=formatnumber(prezzo,2)
prezzo=replace(prezzo,".","")
tmpPREZZO=""
ext=""
for j=1 to len(prezzo)
if mid(prezzo,j,1)="," then
tmpPREZZO=tmpPREZZO & "
"
ext="s"
else
tmpPREZZO=tmpPREZZO & ""
end if
next
imgPrezzo=tmpPREZZO & "
"
end function
Dim arrPROD (4,5)
set conn=Opendatabase
'PRODOTTI
strSQL="SELECT p.*,c.categoria FROM prodotti AS p INNER JOIN categorie AS c ON p.idf_categoria=c.idp_categoria WHERE prezzo_c<>0 ORDER BY rand() LIMIT 4"
set rs=conn.execute(strSQL)
i=0
Do while not rs.eof
i=i+1
arrPROD(i,1)=rs("idp_prodotto")
arrPROD(i,2)=rs("categoria") & " " & rs("articolo")
arrPROD(i,3)=LEFT(rs("descrizione"),50)
arrPROD(i,4)=imgPrezzo(rs("prezzo_c"))
arrPROD(i,5)=rs("idp_prodotto") & "_1.jpg" 'rs("foto1")
rs.movenext
loop
rs.close
%>