<%@LANGUAGE="VBSCRIPT"%> <% Dim rs_usato Dim rs_usato_cmd Dim rs_usato_numRows Set rs_usato_cmd = Server.CreateObject ("ADODB.Command") rs_usato_cmd.ActiveConnection = MM_conn_argentarola_STRING rs_usato_cmd.CommandText = "SELECT * FROM usato ORDER BY prezzo DESC" rs_usato_cmd.Prepared = true Set rs_usato = rs_usato_cmd.Execute rs_usato_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs_usato_numRows = rs_usato_numRows + Repeat1__numRows %> Cooperativa Argentarola - Mercatino dell'usato

Argentarola Srl
Second hand market

Our second hand market is constantly updated.
come and visit us often!

<% If rs_usato.EOF And rs_usato.BOF Then %>

Currently we have no availability of used boats.

<% End If ' end rs_usato.EOF And rs_usato.BOF %> <% If Not rs_usato.EOF Or Not rs_usato.BOF Then %>
<% While ((Repeat1__numRows <> 0) AND (NOT rs_usato.EOF)) %>
<%=(rs_usato.Fields.Item("titolo").Value)%>
<%=(rs_usato.Fields.Item("descrizione").Value)%>
Price: <%=(rs_usato.Fields.Item("prezzo").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_usato.MoveNext() Wend %> <% End If ' end Not rs_usato.EOF Or NOT rs_usato.BOF %>

 

 

<% rs_usato.Close() Set rs_usato = Nothing %>