praticamente quel codice (non l'ho fatto io.. è na bega che mi sono preso :S )
dovrebbe prendere tutta una serie di immagini che si trovano in un "carrello" e zipparle...
ecco tutto il codice...

codice:
<% 
Function pth(getfile)
stepA = Replace(getfile,"::","\\")
stepB = Replace(stepA,":","\")
pth  = stepB
End Function


'Set Tools = Server.CreateObject("MSWC.Tools")
'zTime = cstr(Minute(now)) & cstr(second(now)) & ( Abs( Tools.Random ) ) 

intFileCount = 0

'Set the temporary directory
ZipDir = "f:\aspfile\" 

'Instantiate the AciveFile Components
Set Dir = Server.CreateObject("ActiveFile.Directory")
Set File = Server.CreateObject("ActiveFile.File")
Set Arch = Server.CreateObject("ActiveFile.Archive")
Dir.Path = ZipDir

'Loop through the form request for each file's path and add them to the zip file.


For Each SubKey in pth(Request.form("getfile"))


	intFileCount = intFileCount + 1
	TempPath = pth(Request.form("getfile"))(intFileCount)
	ZipFile = ZipDir & "infophoto.zip"
	File.Name = ZipFile
        If Not Dir.Exists() Then
          Dir.Create ZipDir
        End If

        If Not File.Exists() Then
           Arch.NewArchive ZipFile
           Arch.SaveArchive
        End If
        Arch.OpenArchive ZipFile
        Arch.Add TempPath,false,false
        Arch.SaveArchive      
        Arch.CloseArchive    		
Next

'Download the zip file to the browser.
Response.AddHeader "Content-Disposition", "inline; filename=" & File.FileName
' Download the file
	If File.Download("application/x-zip-compressed", Now(), false, true) Then

		Session("TRANSFEROK") = "SCARICATO"
' Connessione al Db Access
		Set conn = Server.CreateObject("ADODB.Connection")
		conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("datadownload.mdb")
' query sul Db
		sql = "SELECT * FROM DATA "
		Set rsData = Server.CreateObject("ADODB.Recordset")
		
arrDate = Split(Date,"/")
		rsData.Open sql, conn, 3, 3
Cont = 0		
	For Each SubKey in pth (Request.Form("getfile"))
		Cont = Cont + 1
			rsData.AddNew
				rsData.Fields("DATA") 		= 	Date
				rsData.Fields("aaaa") 		= 	arrDate(2)
				rsData.Fields("mm") 	    	= 	arrDate(0)
				rsData.Fields("gg") 	    	= 	arrDate(1)
				rsData.Fields("ORA") 		=	Time()		
				rsData.Fields("STATUS") 	= 	Request.Form("getfile")(Cont)		
				rsData.Fields("IMAGE") 		= 	Request.ServerVariables("LOGON_USER")	
				rsData.Fields("SOGGETTO") 	= 	Request.Form("soggetto")(Cont) 
				rsData.Fields("FOTOGRAFO") 	= 	Request.Form("fotografo")(Cont)
				rsData.Fields("FILENAME") 	= 	Request.Form("Filename")(Cont)	
				rsData.Fields("IP_HOST") 	= 	Request.ServerVariables("REMOTE_HOST")
				rsData.update		
	Next
			rsData.Close
			conn.Close
		Response.End
	End If
		
  Set File = Nothing      
%>