Sandro Cellanetti

> Galleria

	Biografia Critica Galleria Mostre Link Contatti English Version Area Riservata .



	web by gcella 2008 \| css \| xhtml \|

<% Set Conn = CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/db/dati.mdb") & ";Jet OLEDB:Database Password=gcella" sql = "SELECT * FROM dati ORDER BY anno ASC" Set rs = CreateObject("ADODB.Recordset") rs.Open sql,Conn,0,1 do while not(rs.eof) Response.Write "

" Response.Write "Titolo : " & rs(1) & "
" Response.Write "Descrizione : " & rs(3) & "
" Response.Write "L (Cm): " & rs(5) & " - H (Cm): " & rs(6) & "
" Response.Write "Anno : " & rs(7) & "

" rs.movenext loop rs.Close set rs = Nothing Conn.Close set Conn = Nothing %>