Ci sono arrivato... grazie del suggerimento!
Per rispondere al tuo messaggio (dicendoti che mi sembrava tutto a posto!!!) ho ricontrollato con dei response.write e mi sono accorto che "galleria" era sbagliato.
Avrei dovuto mettere RS("galleria"), infatti, response.write RS("galleria"), mi restituisce il nome della cartella.
response.write di scelta mi resituisce l'id della galleria selezionata dall'utente nella pagina di scelta della galleria.
Questa è la pagina che carica e sposta i file e che scrive i dati nel db.
codice:
<%
scelta = Request.QueryString("galleria")
Set RS = Server.CreateObject("ADODB.Recordset")
RS.ActiveConnection = Conn
RS.Open "SELECT galleria FROM gallerie WHERE id="& scelta &""
' il response.write RS("galleria") mi scrive il nome della cartella scelta dall'utente!!!
'mentre "galleria" (che mi ostinavo a scrivere) non mi restituisce niente.
%>
<%
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "E:\Sites\miosito.com\htdocs\public\temp\unzip\*.jpg", "E:\Sites\miosito.com\htdocs\images\gallery\" & RS("galleria") &""
' alla fine il codice era corretto dal punto di visto della sintassi...
objFSO.DeleteFile "E:\Sites\miosito.com\htdocs\public\temp\unzip\*.jpg"
Set objFSO = Nothing
strPath = "/images/gallery/"& RS("galleria") &""
' anche qui sopra avevo scritto "galleria", al posto di RS("galleria")
' non avrebbe scritto niente nel db, visto che nella cartella gallery non ci sono file.
Set fileCreate = CreateObject("Scripting.FileSystemObject")
Set fileGet = fileCreate.GetFolder(Server.MapPath(strPath))
Set files = fileGet.Files
For Each file in files
Sql = "SELECT nome FROM gallery WHERE nome = '" & file.name & "'"
Set RS = Conn.Execute(Sql)
If RS.EOF Then
SqlString = "INSERT INTO gallery (nome, id_galleria) VALUES ('" & file.name & "', '" & scelta &"')"
Conn.Execute sqlString
Response.Write("<font color=green>")
Response.Write(file.name)
Response.Write(" è stato aggiunto al database. </color>
")
Else
Response.Write("<font color=red>")
Response.Write(file.name)
Response.Write(" è già presente nel database.</color>
")
End If
RS.close
Set RS = nothing
Next
Set fileCreate=Nothing
Set fileGet=Nothing
Set files=Nothing
%>
Ciao!