ASPUpload problem

Hej mitt webhotel säger att man endast kan använda SaveVirtual när man använder komponenten AspUpload som de har på servrarna (version 2.1). Det stod det ingenting om på deras hemsida yihaaaaaaaa, så 2 dagars felsökande å lusläsande av manualer bortkastad ;) Jag har stora problem med att få det fungera, det verkar som SaveVirtual sparar ner alla filer till servern direkt och jag vill spara en i taget.

Så här skulle man kunna göra typ med Save metoden

IntMappId = "220"
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save 
strPath = Server.Mappath("/Foton/FotoAlbum/Album/" & IntMappId)

For i = 1 to 20
Set File = Upload.Files("FILE"& i&"")
If Not File Is Nothing Then
	Filename = file.Filename
	File.Save strPath &"/"& File.Filename
End If
Next

Men när jag har SaveVirtual så vill jag loopa igenom bilderna typ

	strPath = Server.Mappath("/Foton/FotoAlbum/Album/" & IntMappId)
	Set Upload = Server.CreateObject("Persits.Upload.1")
	Set Mapp = FSO.CreateFolder(strPath)
	Upload.SetMaxSize 70000, True
	On Error Resume Next
	Upload.OverwriteFiles

	For i = 1 To 20
		Set File = Upload.Files("FILE"&i&"")
		If Not File Is Nothing Then
			
			File.SaveVirtual("/Foton/FotoAlbum/Album/"& IntMappId)
			strFilename = File.FileName
			strFilDesc = Upload.Form("DESCR"& i &"")
			If strFilDesc = "" Then
				strFilDesc = "Ingen beksrivning av bilden inlaggd"
			End If
			strFilDesc = Replace(strFilDesc,"'","''")
	
			If Err.Number = 8 Then
				strErrorMess = "<br><br><b>Obs!</b><br>En del av dina filer blev inte uppladdade"
			End If
		End If
	Next

Men det fungerar inte, han sparar inte ner någonting alls..Någon som har lyckats använda SaveVirtual och aspUpload och fått det att fungera när man laddar upp fler filer än 1. Tacksam för hjälp.

så hör kunde man iaf använda save virtual med aspupload 2.1 eftersom mitt webhotell enbart hade det...Annars finns det en fin fin progressbar i 3:an he he

Set Upload = Server.CreateObject("Persits.Upload.1")
	IntMappId = IntIdentityMappId
	strPath = Server.Mappath("/Foton/FotoAlbum/Album/" & IntMappId)
	Set Mapp = FSO.CreateFolder(strPath)

	On Error Resume Next
	Upload.SaveVirtual("/Foton/FotoAlbum/Album/"& IntMappId)
	Upload.SetMaxSize 5000, True 

	For Each File in Upload.Files
		strFilPath = File.Path
		arrPath = split(strFilPath, "\")
		strFil = arrPath(ubound(arrPath))
		Cnt = Cnt + 1
		strFileDesc = Upload.Form("DESCR"& Cnt &"")
		If Err.Number = 8 Then
				strErrorMess = "En del bilder var större än tillåten storlek (<b>70Kb</b> / bild)"
		End If
	Next

Någon kanske kan behöva se den i framtiden