<%
if regione <>"" then
Response.Write("")
'Viene eseguito finchè esistono file...
Response.Write("![](images/"®ione&".gif) | ![](images/"®ione&".png)
")
%>
<%
Response.Write(" | ")
SQL= "Select * from query_all WHERE regione='"®ione&"' order by id desc"
Set rs = MyConn.Execute(SQL)
indice = 0
riga = 1
while Not rs.EOF
foto=""&rs("foto")&""
link=""&rs("link")&""
descrizione=""&rs("descrizione")&""
rs.MoveNext()
if indice = 3 then
indice = 0
Response.write(" ")
riga = riga + 1
End if
if (riga = 2 and indice = 0) then
Response.Write(" ")
%>
<%
indice = indice + 1
Response.Write(" | ")
End if
if riga = 2 then
Response.Write(" ")'inizio colonna
else
Response.Write(" | ")'inizio colonna
End If
Response.Write("")
indice = indice+1
Response.Write(" | ")
Wend
Response.Write(" ")
Response.Write(" ")
Set fl = Nothing
Set sf = Nothing
set f = Nothing
Set fs = Nothing
else
Response.Write("
")
SQL= "Select * from query_all order by id desc"
Set rs = MyConn.Execute(SQL)
indice=1
Response.Write("| ultime foto inserite | | FOTO | DESCRIZIONE | REGIONE | ")
do while Not rs.EOF
if indice=6 then
exit do
End If
regione2=""&rs("regione")&""
foto=""&rs("foto")&""
link=""&rs("link")&""
descrizione=""&rs("descrizione")&""
rs.MoveNext()
if indice mod 2 = 0 then
Response.Write("| ")
else
Response.Write(" | ")
End if
Response.Write ("")
Response.write(" | "&descrizione&" | ![](images/"®ione2&".gif) | ")
if indice=1 then
Response.Write("| ")
%>
<%
Response.Write(" | ")
End If
indice= indice + 1
loop
Response.Write ("
")
End If
%>
|
<%
if (regione<>"") then
%>
<%
else
%>
<%
End if
%>
|
