creare database di foto con descrizione

[bronz]

salve a tutti!!

FInalmente sono riuscito a creare, dopo ore di una pagina che

si accorge dei file immagine presenti in una cartella, mi stampa il nome a video, mi fa vedere un anteprima dell'immagine, inserisce il nome del file (es.: foto.jpg) in un database, ed in fine mi stampa a video un form con la possibilita' di caricare una descrizione dell'immagine sempre nello stesso database....

solo che non riesco a fargli capire che se inserisco la descrizione per un determinato file, deve andarla ad inserire nello stesso record dove e' il nome del file(immagine), in modo da avere la foto e la descrizione insieme,

niente da fare.....mi inserisce la descrizione in un altro record....

conoscete qualche trucco???

ve ne sarei grato anzi gratissimo!

[Corinna]

Una clausola WHERE?


Posta il codice solo di quando inserisci la descrizione.

[bronz]

te lo posto tutto perche' e' annidato

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 

%>