problema aggiornamento upload

[siki]

Ho utilizzato l'upload di Baol dando la directory della cartella sulla base di nome e cognome inseriti sul form e fin qui tutto ok.
Addesso ho bisogno di aprire e poter modificare l'upload, risalvando nella stessa cartella, ma tutto finisce in public e non nella cartella originale come faccio...?

Qui sotto il codice originale

<%
	If Request.QueryString("Save")="1" then
		
		Dim oUpload
		Set oUpload = new cUpload
		oUpload.AutoRename = True
		oUpload.Overwrite = True
		

oUpload.Load
While Not oUpload.EOF
			oUpload.Save()
			Select Case lCase(oUpload.Files("InputName"))
				Case "fotoa"
					FileName_fotoa = oUpload.GetFileName()
					
							End Select
			oUpload.MoveNext
		Wend
		Set Conn = Server.CreateObject("ADODB.Connection")
		Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/profili.mdb")
		Set Rs=server.CreateObject("ADODB.Recordset")
		id = oUpload.Form("id")
		Cartella = oUpload.Form("cognome")&oUpload.Form("nome")
		oUpload.SetPath "\public\" & Cartella

		
		SQL = "SELECT * FROM profili WHERE ID ="&id&""

		
		Rs.Open SQL,Conn,3,3
		Rs.update
		Rs("fotoa")	= FileName_fotoa
		Rs.update
		Rs.Close
		Conn.Close
		Set Rs = Nothing
		Set Conn=Nothing
		Set oUpload = Nothing
		Response.Redirect "visualizza_foto.asp?id="&id
	End if
	
%>

[Roby_72]

Il campo nome e il campo cognome sono compilati nel form?
Testa cosa recuperi...

Roby

[siki]

No...il problema è che sono due passaggi:

1)Form e upload che funziona

2) pagina che mi fa sostituire le immagini sulla base dell' ID e solo quelle...il problema è che appunto non so come fargli recuperare nome e cognome senza doverli riscrivere....

[Roby_72]

Devi prima fare una query in base all'id altrimenti come recuperi nome e cognome??? :master:

Roby

[siki]

[siki]

Originariamente inviato da Roby_72
Devi prima fare una query in base all'id altrimenti come recuperi nome e cognome??? :master:

Roby

provo....

[siki]

Originariamente inviato da Roby_72
Devi prima fare una query in base all'id altrimenti come recuperi nome e cognome??? :master:

Roby

Adesso ho letto meglio...ma non è questa

SQL = "SELECT * FROM profili WHERE ID ="&id&""

che sul codice c'è...

[Roby_72]

Quella la usi per l'update...
E' la stessa ma va messa prima e devi recuperare il valore di quei due campi.

Roby

[siki]

Originariamente inviato da Roby_72
Quella la usi per l'update...
E' la stessa ma va messa prima e devi recuperare il valore di quei due campi.

Roby

Ho fatto così

  <%If Request.QueryString("Save")="1" then
		
		
		Set oUpload = new cUpload
		oUpload.AutoRename = False
		oUpload.Overwrite = True
		

oUpload.Load
Set Conn = Server.CreateObject("ADODB.Connection")
		Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/profili.mdb")
		Set Rs=server.CreateObject("ADODB.Recordset")
		id = oUpload.Form("id")
		nome = oUpload.Form("nome")
		cognome = oUpload.Form("cognome")
		SQL = "SELECT * FROM profili WHERE ID ="&id&" and nome ="&nome&" and cognome ="&cognome&""
		
Cartella = oUpload.Form("cognome")&oUpload.Form("nome")
oUpload.SetPath "\public\" & Cartella
While Not oUpload.EOF
			oUpload.Save()
			Select Case lCase(oUpload.Files("InputName"))
				Case "fotoa"
					FileName_fotoa = oUpload.GetFileName()
							End Select
			oUpload.MoveNext
		Wend
		
		
		
		
		Rs.Open SQL,Conn,3,3
		Rs.update
		Rs("fotoa")	= FileName_fotoa
		Rs.update
		Rs.Close
		Conn.Close
		Set Rs = Nothing
		Set Conn=Nothing
		Set oUpload = Nothing
Response.Redirect "visualizza_foto.asp?id="&id
	End if
	
%>

Ma restituisce

Microsoft OLE DB Provider for ODBC Drivers error '80040e14' 

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'ID =193 and nome = and cognome ='. 

/admin/edit_foto.asp, line 82

cioè Rs.Open SQL,Conn,3,3

Ci sto sbattendo la testa da ore ma proprio non ci arrivo....

[Roby_72]

ma nome e cognome non li hai, li devi recuperare dalla tabella non puoi metterli nella query...
E dal form non arrivano!

Roby