<% dim oConn dim rs dim sql sql = "SELECT * FROM Offerte ORDER BY durata" set oConn = Server.CreateObject("Adodb.Connection") set rs = Server.CreateObject("Adodb.Recordset") oConn.open strConn rs.open sql, oConn, 3, 3 'response.end %> .: Mazzucchi Vivai Piante - Offerta :.
 
<%dim ContRec dim sClassNomePianta dim sClassDescrizione dim sClassPrezzo dim sClassDurata ContRec = 1 %> <%do while not rs.eof if (ContRec mod 2) <> 0 then ''''devo visulizzare l'immagine a destra sClassNomePianta = "textboldgreen" sClassDescrizione = "textboldgray" sClassPrezzo = "testodxbold" sClassDurata = "testosxbold" %>

<%=rs.fields("NomePianta").value%>

<%=rs.fields("Descrizione").value%>

€<%=formatNumber(rs.fields("Prezzo").value, 2)%>

Fino al <%=(Day(rs.fields("Durata").value) & " " & NameMonth(rs.fields("Durata").value))%>


" width="150" height="180">

<% elseif (ContRec mod 2) = 0 then ''''devo visualizzare l'immagine a sinistra sClassNomePianta = "textboldgreen" sClassDescrizione = "textboldgray" sClassPrezzo = "testodxbold" sClassDurata = "testosxbold" %>
" width="150" height="180">

<%=rs.fields("NomePianta").value%>

<%=rs.fields("Descrizione").value%>

€<%=formatNumber(rs.fields("Prezzo").value, 2)%>

Fino al <%=(Day(rs.fields("Durata").value) & " " & NameMonth(rs.fields("Durata").value))%>
<%end if%> <%ContRec = ContRec + 1 rs.movenext loop rs.Close set rs = Nothing oConn.Close set oConn = Nothing%>