%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim rs1
Dim contatore
contatore=0
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.ActiveConnection = cnn
rs1.Source = "SELECT tb_catalogo.* FROM tb_catalogo WHERE (((tb_catalogo.opera)='" & S_ARTWORK & "'));"
rs1.Open()
While NOT rs1.EOF
contatore=contatore+1%>
<%=rs1.fields("numero")%>. <%=rs1.fields("titolo")%> - <%=rs1.fields("tecnica")%> - <%=rs1.fields("misure")%> - <%=rs1.fields("anno")%> - <%=rs1.fields("prezzo")%> <%rs1.MoveNext() Wend rs1.Close() Set rs1 = Nothing %> |
L'Albero Celeste Art Gallery - Steven Music Via Marconi, 1 (Piazza S.Agostino) - 53037 San Gimignano (Siena) Tel.+Fax: 0039 0577 907114 - E-mail: music@alberoceleste.com |