Invia una cartolina digitale dalla Sardegna!
Un'immmagine vale più di mille parole... invia ad un amico un'immagine scattata nei magnifici luoghi della penisola del Sinis!
Clicca sulla cartolina che desideri inviare per continuare...
<%
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 cartolina = 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("
")
conta = 0
end if
rs.moveNext
loop
rs.close
cn.close
set cn = nothing
set rs = nothing
%>