Provo a spiegarmi...
Devo inserire dei dati in un database e prima avevo questo codice e inseriva tutto in maniera corretta:

codice:
<%@LANGUAGE="VBSCRIPT"%>

<%
IDUser = Request.Form("IDUser")
Messaggio = Request.Form("Messaggio")
%>
<%
set RS = Server.CreateObject("ADODB.Recordset")
RS.ActiveConnection = MM_marcos_STRING
RS.Source = "SELECT * FROM Incontri WHERE ID = " & IDUser & ""
RS.CursorType = 0
RS.CursorLocation = 2
RS.LockType = 3
RS.Open()
RS_numRows = 0
%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/dbase.mdb")
  set mRs = Server.CreateObject("ADODB.Recordset")
  strsql="SELECT * From msgPvt"
  mRs.Open strsql,conn,3,3
 
mRs.addnew
 
mRs("dataMsg")=now()
mRs("oggettoMsg")="C'è posta per Te!"
mRs("corpoMsg")= Request.Form("Messaggio")
mRs("idDestinatario")= RS.Fields.Item("ID").Value
mRs("usernameDestinatario")=RS.Fields.Item("Username").Value
mRs("idAutore")=Session("ID_Access")
mRs("usernameAutore")=Session("username_access")
mRs.Update
%>
Poi ho provato ad adattarlo per l'upload dei file e il valore iddestinatario e il valore usernamedestinatario non sono riuscito più a ricavarlo... come posso fare?

La pagina dove devo inserire quei valori è la seguente:

codice:
<%
'Creiamo l'oggetto FileUploader ed assegnamogli il nome Uploader
Dim Uploader, File
Set Uploader = New FileUploader
'Impostiamo la dimensione max del file in byte
Uploader.maxSize = 20000000 '1000kb

'Impostiamo il tipo di file ammessi
Uploader.fileExt = "jpg,gif,jpeg,JPG,GIF"

'Iniziamo il processo di upload
Uploader.Upload()
dataMsg=Uploader.form("dataMsg")
oggettoMsg=Uploader.form("oggettoMsg")
corpoMsg=Uploader.form("corpoMsg")
idDestinatario=Uploader.form("iddestinatario") (???)
usernameDestinatario=Uploader.form("usernameDestinatario") (???)
idAutore=Uploader.form("idAutore")
usernameAutore=Uploader.form("usernameAutore")		

strPath = Server.MapPath("\public\allegati") & "\"
	'Ciclo tra i file inviati
	For Each File In Uploader.Files.Items
		'Salvo il file
		File.SaveToDisk strPath
			immagine = File.FileName
	Next
Set Uploader = Nothing

dim rs
dim con

set rs=Server.CreateObject("ADODB.RECORDSET")
set con=Server.CreateObject("ADODB.CONNECTION")
	con.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("/mdb-database/dbase.mdb")
    sql = "SELECT * FROM msgpvt"
	rs.open sql, con, 3, 3
	' qui inserisci i dati nel db dove i campi sono 3 1) nome 2) cognome 3) immagine
	WITH rs
 		.addNew
		.Fields("dataMsg")=now()
		.Fields("oggettoMsg")="C'è posta per Te!"
		.Fields("corpoMsg")= corpoMsg
		.Fields("idDestinatario")= "iddestinatario" (???)
		.Fields("usernameDestinatario")="usernamedestinatario" (???)
		.Fields("idAutore")=Session("ID_Access")
		.Fields("usernameAutore")=Session("username_access")
		.Fields("immagine") = immagine		
		.update
	end with
rs.close

SET rs=nothing
con.close
SET con=nothing
%>