te lo posto tutto perche' e' annidato

codice:
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("dbimages.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")

Conn.Open strConn

sql3 = "SELECT * FROM Tabella"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql3, Conn ,3,3

Set fso = CreateObject("Scripting.FileSystemObject")
Set folderObject = fso.GetFolder(Server.MapPath("../dataimages"))
Set filesObject = folderObject.Files

i=0 
For Each file In filesObject
i=i+1 
response.write("<hr></hr>")
response.write("<table border='1' width='100'><td colspan='2'>File " &i& "</td><td>[img]../dataimages/"&file.name&"[/img]</img></td><tr><td colspan='2'>Nome: " &file.name& "</td><tr>")
response.write("<td colspan='2'>descrizione foto: " &d& ".</td><tr>")
response.write("<td colspan='2'><form method='POST' action='inserimento.asp'>Descrizione "&i&"<input type='text' name='desc" &i& "' size='20'>")
response.write("<input type='submit' value='Invia' name='B1'><input type='reset' value='cancella' name='B2'></form></td>")
response.write("<td>"&d&"</td></table>")

' Preparazione e scrittura nuovo record
rs.addnew
rs("fotolink") = file.name
rs.update
%>
<table>
<td><%=rs("id")%></td><tr>
<td><%="campo fotolink: " &rs("fotolink")%></td><tr>
<td><%=rs("data")%></td><tr>
<td><%=rs("descrizione")%></td>
</table>
<%
Next

response.write "sono presenti: "& i & " files uploadati!"

Set fileObject = Nothing
Set folderObject = Nothing
Set fso = Nothing 

%>