Innanzi tutto grazie mille! :-)
però non mi funziona... ho provato a mettere
al posto del "rs.Close" "set rs=Nothing"
ma non funzionava...
così ho inserito
set rs = server.CreateObject("ADODB.recordset")
dopo il "set rs=Nothing"
bene ora appena apro la pagina si vede solo fino al primo
"rs.MoveNext
loop
else"
poi nada...
però se io clikko sulla foto... me la apre e mi fà vedere tutta la pagina!!!
praticamente se
"<%if azione = "apri" then%>"
risulta vero mi apre la foto e continua a farmi vedere tutto il codice sotto... mentre si dovrebbe fermare all'"<%End If%>"!
veramente... non sò + dove sbattere la testa!
Se riuscite ad aiutarmi mi fareste un favore!!
Grazie mille in anticipo!!


<%
dim conn,rs
set conn = server.CreateObject("ADODB.connection")
conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/mdb-database/foto.mdb")
set rs = server.CreateObject("ADODB.recordset")
%>
<%
dim a,azione
a = Request.QueryString("id")
azione = Request.QueryString("azione")
if a = "" then
rs.Open "SELECT * FROM foto1" , conn,3,3
%>
<body bgColor="black" Link="black" aLink="black" vLink="black">
<P align=center><FONT color=red size=7>Centro Sociale "Tempo
Rosso"</FONT></P>
<P align=center><FONT color=#ff0000 size=7></FONT></P>
<P align=center><FONT color=red size=6>E ke il viaggio abbia inizio ...</FONT></P>
<TABLE style="WIDTH: 180px; HEIGHT: 142px" cellSpacing=1 cellPadding=1 width=180
border=0 align=center>
<tr>

<%do while not rs.EOF%>

<td>&azione=apri">[img]<%=rs([/img]">
<p align=center><font color=red><%=rs.Fields("nomi").Value%></font></p></td>

<%
rs.MoveNext
loop
else
%>

<%if azione = "apri" then%>
<%rs.Open "SELECT * FROM foto1 WHERE ID=" & cint(a) , conn%>
<td>[img]<%=rs([/img]"></td>
</tr>
</table>







<%set rs=Nothing%>

<%End If%>

<%
set rs = server.CreateObject("ADODB.recordset")
rs.Open "SELECT * FROM kombat" , conn,3,3
%>
<TABLE style="WIDTH: 130px; HEIGHT: 142px" cellSpacing=1 cellPadding=1 width=180 border=0 align=center>
<tr>
<td><p align=center><font color=red><%=rs.Fields("nome").Value%>

[img]<%=rs([/img]"></font></p></td>
</tr>
</table>






<P align=center><FONT color=red size=6>... Durante il Lungo Tragitto ...</FONT></P>





<%set rs=Nothing%>

<%
set rs = server.CreateObject("ADODB.recordset")
rs.Open "SELECT * FROM davi" , conn,3,3
%>

<%do while not rs.EOF%>
<TABLE style="WIDTH: 160px; HEIGHT: 142px" cellSpacing=1 cellPadding=1 width=180 border=0 align=center>
<tr>
<td><p align=center><font color=red size=5><%=rs.Fields("nome").Value%>


&azione=apridavi">[img]<%=rs([/img]"></font></p></td>
</tr><tr><td>
</td></tr>

<%
rs.MoveNext
loop
%>

<%if azione = "apridavi" then%>
<%rs.Open "SELECT * FROM davi WHERE ID=" & cint(a) , conn%>
<tr>
<td>[img]<%=rs([/img]"></td>
</tr>
</table>

<%set rs=Nothing%>

<%End If%>

<%
set rs = server.CreateObject("ADODB.recordset")
rs.Open "SELECT * FROM scritta" , conn,3,3
%>

<TABLE style="WIDTH: 130px; HEIGHT: 142px" cellSpacing=1 cellPadding=1 width=180 border=0 align=center>
<tr>
<td>[img]<%=rs([/img]"></font></p></td>
</tr>
</table>




<P align=center><FONT color=red size=5>... Kontinua ...</FONT></P>
<p align=center></p>

<%End If%>