RS.Fields.item (???)

[Marco7303]

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

<%@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:

<%
'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
%>

[weppos]

Perchè devi aprire un nuovo 3d?
http://forum.html.it/forum/showthrea...hreadid=652850 :quipy:

[max161]

finchè userai dreamweaver non ci sarà mai nessuno pronto ad aiutarti, puoi capire che si tratta di modificare del codice prodotto da un software, per cui chi non usa DW non sa com'è fatto (e ti garantisco che il modo in cui è generato non è di fatto per nulla intuitivo), e chi usa DW di certo non lo guarda molto (per definizione).


[edit]
scusa ritiro tutto, appena ho visto MM sono scattato...la prossima volta sto + attento

[Marco7303]

Ho aperto un nuovo 3d perchè volevo ripartire da 0 poichè con quello non siamo arrivati a nulla e avevo spiegato le cose in maniera differente.

In effetti a me basterebbe inserire una funzione di upload in un form che già avevo e che funziona perfettamente...

Come posso fare per inserire (tipo il "file allegato" presente in questo forum per far allegare un file al mio form?