Set cn = server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
strCONN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("../db/Agriturismo_Ferrari.mdb") & ";Persist Security Info=False"
cn.Open strCONN
strSQL = "SELECT * FROM T_foto WHERE gallery = true"
rs.Open strSQL, cn
do until rs.EOF
conta = conta + 1
select case conta
case 1
response.Write("![](../images/miniature/" & rs("foto_file") & ")
" & rs("foto_titolo") & "
| ")
case 2
response.Write("
" & rs("foto_titolo") & "
| ")
case 3
response.Write("
" & rs("foto_titolo") & "
| ")
case else
response.Write("errore!")
end select
if conta = 3 then
response.Write("
