|
|
||||||||||||||||||||||||||||
   |
> Gallery |
|||||||||||||||||||||||||||
|
<%
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 "![Sandro Cellanetti](public/" & rs(0) & "_0.jpg "Sandro Cellanetti - \" & Replace(rs(2),\"") " Response.Write "Title : " & rs(2) & " " Response.Write "Description : " & rs(4) & " " Response.Write "L (Cm): " & rs(5) & " - H (Cm): " & rs(6) & " " Response.Write "Year : " & rs(7) & " " rs.movenext loop rs.Close set rs = Nothing Conn.Close set Conn = Nothing %> |
|||||||||||||||||||||||||||