Upload Baol - controllo su nome file

[Sebvegeth]

salve!
uso il magnifico upload di baol e ho questo problema: vorrei far in modo che ci fosse un controllo sui caratteri del nome file e se c'è un carattere particolare tipo " % & ecc. li eliminasse!
posto il mio codice:

	If Request.QueryString("Save")="1" then
		Dim oUpload
		Set oUpload = new cUpload
		oUpload.AutoRename = True
		oUpload.Overwrite = False
		oUpload.SetPath "/public/"&User
		oUpload.Load
		oUpload.UploadOnly "images" 
		While Not oUpload.EOF
			oUpload.Save()
			Select Case lCase(oUpload.Files("InputName"))
				Case "img1"
					FileName_img1 = RepChars(oUpload.GetFileName())
				Case "img2"
					FileName_img2 = RepChars(oUpload.GetFileName())
				Case "img3"
					FileName_img3 = RepChars(oUpload.GetFileName())
				Case "img4"
					FileName_img4 = RepChars(oUpload.GetFileName())
				Case "img5"
					FileName_img5 = RepChars(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/photo.mdb")
		Set Rs=server.CreateObject("ADODB.Recordset")
		Rs.Open "photo",Conn,3,3
		if not FileName_img1="" then
		Rs.AddNew
		Rs("dir")= Session ("Dir")
		Rs("utente")= Session ("User") 
		Rs("photo")	= FileName_img1 
		Rs.update
		Rs.Close
		Set Rs = Nothing
		Set Rs=server.CreateObject("ADODB.Recordset")
		Rs.Open "photo",Conn,3,3
		if not FileName_img2="" then
		Rs.AddNew
		Rs("dir")= Session ("Dir")
		Rs("utente")= Session ("User") 
		Rs("photo")	= FileName_img2 
		Rs.update
		Rs.Close
		Set Rs = Nothing
		Set Rs=server.CreateObject("ADODB.Recordset")
		Rs.Open "photo",Conn,3,3
		if not FileName_img3="" then
		Rs.AddNew
		Rs("dir")= Session ("Dir")
		Rs("utente")= Session ("User") 
		Rs("photo")	= FileName_img3 
		Rs.update
		Rs.Close
		Set Rs = Nothing
		Set Rs=server.CreateObject("ADODB.Recordset")
		Rs.Open "photo",Conn,3,3
		if not FileName_img4="" then
		Rs.AddNew
		Rs("dir")= Session ("Dir")
		Rs("utente")= Session ("User") 
		Rs("photo")	= FileName_img4 
		Rs.update
		Rs.Close
		Set Rs = Nothing
		Set Rs=server.CreateObject("ADODB.Recordset")
		Rs.Open "photo",Conn,3,3
		if not FileName_img5="" then
		Rs.AddNew
		Rs("dir")= Session ("Dir")
		Rs("utente")= Session ("User") 
		Rs("photo")	= FileName_img5 
		Rs.update
		Rs.Close
		Set Rs = Nothing
		end if
		end if
		end if
		end if
		end if

dove la funzione RepChars è

public	Function RepChars(var1)
   	  var1 = Replace(var1,"&","_")
      var1 = Replace(var1,"à","_")
	  var1 = Replace(var1,"è","_")
	  var1 = Replace(var1,"é","_")
	  var1 = Replace(var1,"ò","_")
	  var1 = Replace(var1,"ù","_")
	  var1 = Replace(var1,"°","_")
	  var1 = Replace(var1,"'","_")
	  var1 = Replace(var1,"#","_")
	  var1 = Replace(var1," ","_")
   End Function

il problema è che non so dove mettere la funzione e non so se è corretta la sintassi che ho usato...please aituooo

[marco1970]

passa alla tua funzione il parametro

oUpload.GetFileName()

e fai upload del risultato della tua funzione