Sì ... eccolo:

codice:
dim Upload, comodofile, conn, url
 
Set Upload = Server.CreateObject("Persits.Upload.1") 

set conn=server.createobject("ADODB.Connection")

conn.open("DRIVER={microsoft Access Driver (*.mdb)}; DBQ= " & server.mappath("../../dati/utente.mdb"))

	Upload.Save "D:\enza.medina.name\enza.medina.name\LCMS\www\upload"

	comodofile=Upload.Files(1).FileName

	Upload.Files.Item(1).SaveAs(server.MapPath("../upload/" & comodofile)) 

	url = comodofile

	messaggio=fixquotes(replace(upload.form("messaggio"),chr(13)&chr(10),"
"))
	
	if request.querystring("modo")="modifica" then

		set rs=conn.execute("SELECT idmessaggio FROM diario WHERE idmessaggio="& request.querystring("idmessaggio") &"")

		if not rs.eof then
	
			conn.execute("UPDATE diario SET datamod = Now(), titolo='"& Upload.Form("titolo") &"', messaggio='" & messaggio & "', urlimmagine='"& url &"' WHERE idmessaggio="& request.querystring("idmessaggio") &"")

		end if
	
		rs.close

		set rs=nothing
	
	else

		conn.execute("insert into diario(data, mese, anno, titolo, messaggio, urlimmagine, soggetto, gruppo, corso) values(Now(), "& Upload.Form("mese") &", "& Upload.Form("anno") &", '"& Upload.Form("titolo") &"', '" & messaggio & "', '"& url &"', '" & Upload.form("soggetto") & "', '" & Upload.form("gruppo") & "', '" & Upload.form("corso") & "')")

	end if
conn.close

set conn=nothing

set Upload=nothing
(si inserisce così il codice? ... adesso vediamo se me lo prende ...