Non riesco ad aggiornare le immagini e i dati nel database:
codice:
<%
				ID = cInt(request("ID")) 
%>

	<%
	If Request.QueryString("Save")="1" then
		Dim oUpload
		Set oUpload = new cUpload
		oUpload.AutoRename = True
		oUpload.Overwrite = False
		oUpload.SetPath "/public" 'Impostazione del percorso
		oUpload.Load
		oUpload.UploadOnly "images"
		While Not oUpload.EOF
			oUpload.Save()
			Select Case lCase(oUpload.Files("InputName"))
				Case "immagine1"
					FileName_immagine1 = oUpload.GetFileName()
					Case "immagine2"
					FileName_immagine2 = oUpload.GetFileName()
					Case "immagine3"
					FileName_immagine3 = oUpload.GetFileName()
					Case "immagine4"
					FileName_immagine4 = oUpload.GetFileName()
					Case "immagine5"
					FileName_immagine2 = oUpload.GetFileName()
titolo	= oUpload.Form("titolo")
testo = oUpload.Form("testo")
genere1 = oUpload.Form("genere1")
principale = oUpload.Form("principale")
autore = oUpload.Form("autore")
email = oUpload.Form("email")
			End Select
			oUpload.MoveNext
		Wend	
		
				
	Set conn = Server.CreateObject("ADODB.Connection")
   conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/articolimobile.mdb")
   
   'Imposto la stringa SQL di selezione dati


sSql = "UPDATE articolo SET immagine1='"& replace(FileName_immagine1,"'","''")&"', immagine2='"& replace(FileName_immagine2,"'","''")&"', immagine3='"& replace(FileName_immagine3,"'","''")&"', immagine4='"& replace(FileName_immagine4,"'","''")&"', immagine5='"& replace(FileName_immagine5,"'","''")&"', titolo='"& replace(titolo,"'","''")&"', testo='"& replace(testo,"'","''")&"', genere1='"& replace(genere1,"'","''")&"', autore='"& replace(autore,"'","''")&"', email='"& replace(email,"'","''")&"', principale='"& replace(principale,"'","''")&"' WHERE id =" & id & ";"
   'Creo e apro il Set di Record
   Set rs = Server.CreateObject("ADODB.Recordset")
   rs.Open sSql, conn, 3, 3
		
		Conn.Close
		Set Rs = Nothing
		Set Conn=Nothing				
		Set oUpload = Nothing
	Response.Redirect("modarticolo.asp")
	End if
%>
<form name="form1" method="post" enctype="multipart/form-data" action="?save=1">
<%

   Dim conn
   Dim rs
   Dim sSql
  
 'Imposto la connessione
   Set conn = Server.CreateObject("ADODB.Connection")
   conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/articolimobile.mdb")
   
   'Imposto la stringa SQL di selezione dati

   
   sSql = "SELECT id, testo, titolo, genere1, email, autore, principale, immagine1, immagine2, immagine3, immagine4, immagine5 FROM articolo where ID = "&ID&""
   
   'Creo e apro il Set di Record
   Set rs = Server.CreateObject("ADODB.Recordset")
   rs.Open sSql, conn, 3, 3
%>
 <input name="titolo" type="text" id="titolo" value="<%=rs.Fields("titolo").Value%>" size="50">
<textarea name="testo" cols="34" rows="15" id="testo"><%=rs.Fields("testo").Value%></textarea>
<input name="genere1" type="text" id="genere1" value="<%=rs.Fields("genere1").Value%>" size="10" > 
<input name="principale" type="text" id="principale" value="<%=rs.Fields("principale").Value%>" size="10">
<input name="autore" type="text" id="autore" value="<%=rs.Fields("autore").Value%>" size="25">
  <input name="email" type="text" id="email" value="<%=rs.Fields("email").Value%>" size="40">
  <input name="immagine1" type="file" id="immagine1" >
  <input name="immagine2" type="file" id="immagine2" >
 <input name="immagine3" type="file" id="immagine3" >
<input name="immagine4" type="file" id="immagine4" >
  <input name="immagine5" type="file" id="immagine5" >
 <input name="idstato" type="hidden" id="idstato2" value="<%=request.queryString("id")%>">
    <input type="submit" name="Submit3" value="Modifica">
  </form>
<%                              
'Chiudo il recordset e libero la memoria
      rs.Close
      Set rs = Nothing
      'Chiudo la connessione al database e libero la memoria
      conn.Close 
      Set conn = Nothing
   %>
Non mi aggiorna il database.... ne le immagini ne i dati...ma mi fa l'upload delle immagini! NOn mi da nessuno errore..mi va direttamente alla pagina modarticolo.asp!
GRAZIE MILLE!