<% set rs_prom = server.createobject("adodb.recordset") rs_prom.open "Promozioni order by Data desc", dbc %>

 

 

 

 

 

 

 

 

 

 

...................................................................................................................................

OFFERTE RIENTRO

<% do until rs_prom.eof %> <% if rs_prom("mostra") then %> <% end if %> <% rs_prom.movenext : loop %>

<%= rs_prom("Data") %> - <%= rs_prom("titolo") %>


<%= replace(rs_prom("testo"),chr(13),vbrclf) %>

<% if rs_prom("pdf") then %> <% end if %>

<% if not rs_prom("foto") then %>   <% else %> <% Set Image = Server.CreateObject("AspImage.Image") Image.LoadImage Server.Mappath("./img_offerte/img" & rs_prom("id") & ".jpg") fx = image.maxx fy = image.maxy + 20 set image = nothing %> .jpg',<%= fx %>,<%= fy %>,'<%= rs_prom("titolo") %>')"> " alt="Cliccate per ingrandire" style="border: 1 solid #000000">

<% end if %>


 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

<% rs_prom.close set rs_prom = nothing dbc.close set dbc = nothing %>