Ragazzi, non so più dove sbattere la testa. Uso questa pagina per l'upload di qualche immagine:

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

<%
	Response.Buffer = True
	server.ScriptTimeout=3600
	
	Set oUpload = new cUpload 
	oUpload.AutoRename=False
	oUpload.OverWrite=False
	oUpload.Upload
	oUpload.SetPath "/poli/poli_img" 'Impostazione del percorso
	
FileName_imagehd1 = "": FileName_imagehd2 = "": FileName_imagehd3 = "": FileName_imagehd4 = "": FileName_imagehd5 = "": FileName_imagehd6 = "": FileName_imagehd7 = "": FileName_imagehd8 = "": FileName_imagehd9 = "": FileName_imagehd10 = ""

	If Not oUpload.EOF then
		oUpload.MoveFirst 
		Do While Not oUpload.EOF
			Select Case oUpload.Files("InputName")
			Case "imagehd1"
					FileName_imagehd1 = oUpload.GetFileName():oUpload.Save
			Case "imagehd2"
					FileName_imagehd2 = oUpload.GetFileName():oUpload.SaveAs(FileName_imagehd2)
			Case "imagehd3"
					FileName_imagehd3 = oUpload.GetFileName():oUpload.SaveAs(FileName_imagehd3)
			Case "imagehd4"
					FileName_imagehd4 = oUpload.GetFileName():oUpload.SaveAs(FileName_imagehd4)
			Case "imagehd5"
					FileName_imagehd5 = oUpload.GetFileName():oUpload.SaveAs(FileName_imagehd5)
			Case "imagehd6"
					FileName_imagehd6 = oUpload.GetFileName():oUpload.SaveAs(FileName_imagehd6)
			Case "imagehd7"
					FileName_imagehd7 = oUpload.GetFileName():oUpload.SaveAs(FileName_imagehd7)
			Case "imagehd8"
					FileName_imagehd8 = oUpload.GetFileName():oUpload.SaveAs(FileName_imagehd8)
			Case "imagehd9"
					FileName_imagehd9 = oUpload.GetFileName():oUpload.SaveAs(FileName_imagehd9)
			Case "imagehd10"
					FileName_imagehd10 = oUpload.GetFileName():oUpload.SaveAs(FileName_imagehd10)
			Case Else
			End Select
			oUpload.MoveNext
		Loop
	end if
				
	Dim id_art
	id_art = Request.QueryString("idart")
	
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/public/politecnico.mdb")
	Set Rs=server.CreateObject("ADODB.Recordset")
	Dim stringsql
	stringsql = "select * from articoli where id =" & id_art & ""
	Rs.Open stringsql,Conn,3,3

	Rs("titolo") = oUpload.Form("titolo")
	Rs("testo") = oUpload.Form("fullarticle")
	Rs("autore") = nick
	Rs("id_attivo") = "1"

	Rs.update
	Set Rs = Nothing
	Conn.Close
	Set Conn=Nothing		
	Set oUpload = Nothing
%>
con input di questo tipo:

codice:
<td><INPUT TYPE="file" size="130" NAME="imagehd1"></td>
Non trovo nessun errore, ma le immagini sul server non vengono proprio salvate. Help!