Upload Baol: modifica dati ma non immagine

[michele.santoro]

Un saluto a tutto il forum.
Come da titolo ho una pagina che invia in querystring l'id e la pagina modifica_schede_ut.asp che recupera l'id e che dovrebbe modificare i campi e l'immagine.
Il problema è che i campi vengono modificati regolarmente, mentre l'immagine viene sì salvata nella cartella "public/profilo" ma non nel database.
Questa la pagina

<%  
	If Request.QueryString("Save")="1" then  
		Dim oUpload  
		Set oUpload = new cUpload  
		oUpload.AutoRename = True  
		oUpload.Overwrite = False  
		oUpload.SetPath "public/profilo/" 'Impostazione del PERCORSO della cartella delle IMMAGINI  
		oUpload.Load  
		While Not oUpload.EOF  
			oUpload.Save()  
			Select Case lCase(oUpload.Files("InputName"))  
				Case "Foto"  
					FileName_Foto = 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/utenti.mdb")  
		Set Rs=server.CreateObject("ADODB.Recordset")  
		id = oUpload.Form("id") 
		SQL = "SELECT * FROM utenti WHERE ID ="&id&"" 
		Rs.Open SQL,Conn,3,3  
		Rs.update
		If FileName_Foto <> "" then
%>		
		
<% 
Dim percorso
percorso = ("public/profilo/")
nome_file = rs("Foto") 
If nome_file<>"" then

Dim objFso, objFsoFile 
Set objFso = Server.CreateObject("Scripting.FileSystemObject") 
Set objFsoFile = objFso.GetFile(Server.MapPath(percorso & nome_file)) 

objFsoFile.Delete 
Set objFsoFile = Nothing 

Set objFSO = Nothing 
end if

%> 
		
<%
		Rs("Foto")	= FileName_Foto 
		End if
		Rs("password") = oUpload.Form("password")
		Rs("nome")	= oUpload.Form("nome")
		Rs("cognome")	= oUpload.Form("cognome")
		Rs("email") = oUpload.Form("email")
		Rs("Indirizzo") = oUpload.Form("Indirizzo")
		Rs("Comune") = oUpload.Form("Comune")
		Rs("cap") = oUpload.Form("cap")
		Rs("provincia") = oUpload.Form("provincia")
 
		Rs.update  
		Response.Redirect("modifica_schede_ut.asp?id="&rs("id"))  
		Rs.Close  
		Conn.Close  
		Set Rs = Nothing  
		Set Conn=Nothing  
		Set oUpload = Nothing  
	End if  
%>

 


<%
Dim id
id = request.querystring("id")
'response.write id
'response.end
%> 

<%
'Dim SQL,Rs
SQL="SELECT * FROM utenti WHERE id="&id 
'SQL="SELECT * FROM utenti WHERE id=1"                                                    
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs=Conn.Execute(SQL)

%>

<form action="?save=1" method="post" enctype="multipart/form-data" name="form1" id="form1">  
<input name="id" type="Hidden" value="<%=id%>" />  
<div align="center">
<table border="0" width="42%" id="table1" cellspacing="0" cellpadding="4">
	<tr>
		<td width="23%" align="right">  
<font style="font-size: 2pt"></font></td>
		<td width="42%" align="right" colspan="2">  
<font style="font-size: 2pt"></font></td>
		<td width="10%">  
<font style="font-size: 2pt"></font></td>
	</tr>
	<tr>
		<td width="23%" align="right">  
<p align="center"><font face="Verdana" color="#FFFFFF" size="2">
<a href="#" onclick="top.close()"><font color="#000080">torna al 
profilo</font></a></font></td>
		<td width="42%" align="right" colspan="2">  
<p align="center">  
</td>
		<td width="10%">  
<p align="right">  
<font face="Verdana" color="#FFFFFF" size="2">
<font color="#000080">[chiudi]</font></font></td>
	</tr>
	<tr>
		<td width="75%" align="right" colspan="4">  
<p align="center">  
<font size="1" face="Verdana" color="#000080">MODIFICA PROFILO UTENTE</font></td>
	</tr>
	<tr>
		<td width="23%" align="right" rowspan="5" valign="top">  
<align="center"> 
		<p align="center"> 
		
<%
If rs("Foto")<>"" then
%>	
		[img]public/profilo/<%=rs([/img]" width="92" height="97">
		<font size="1" face="Verdana">
		<%=rs("nome") & " " & rs("cognome")%></font>
<%
Else
%>		
		[img]public/profilo/no_foto.jpg[/img]

<font face="Verdana" size="1">No Foto</font>
		<%
End If
%>		
		
		</td>
ecc ... qui continua il form ...

Non da nessun messaggio di errore, semplicemente modifica tutti i dati tranne quello dell'immagine. Il bello che per un po' ha funzionato perfettamente, ma dopo le modifiche apportate al layout ha smesso di funzionare. Non riesco a capire il perché e non riesco a trovare la causa del cessato funzionamento.
Dopo ore passate a cercare di trovare l'errore mi son deciso a chiedere aiuto.

[michele.santoro]

Risolto! Questione di lettere maiuscole e minuscole.
Grazie ugualmente a tutti voi e un caloroso augurio di

BUONA PASQUA A TUTTO IL FORUM