Upload di Baol non funzionante

[Structure]

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

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

<td><INPUT TYPE="file" size="130" NAME="imagehd1"></td>

Non trovo nessun errore, ma le immagini sul server non vengono proprio salvate. Help!

[Roby_72]

Le cartelle poli/poli_img/ hanno i permessi di scrittura?

Roby

[Structure]

Ok, Roby, "one shot one kill", era quello il problema. Sono comunque sicuro di aver già provato in precedenza, ma evidentemente c'era allora un problema che ho risolto dopo.
Grazie mille per l'aiuto. Ciao