Subir varias imagenes al mismo tiempo

[armandoweb]

Si, esta bien, pero estoy usando un componentey todo está programado para subir solo una imagen.
Ya probé de modificarlo para que suba n imagenes y no logro hacerlo funcionar.
Aqui está el código:

If Uploader.Files.Count <> 0 Then
fecha = Uploader.form("fecha")
titulo = Uploader.form("titulo")
copete = Uploader.form("copete")
noticia = Uploader.form("noticia")
tipo_noticia = Uploader.form("tipo_noticia")
archivo = Uploader.form("imagen")
archivo = replace(archivo, "/", "\")
archivo = right(archivo, len(archivo) - instrrev(archivo, "\"))
archivo = lcase(archivo)
archivo = replace(archivo, " ", "_")

For Each File In Uploader.Files.Items
File.SaveToDisk Server.MapPath(path), archivo
Next

sSQL = "insert into noticias(imagen,fecha,titulo,copete,noticia,tipo_n oticia) values ('" & archivo & "', '" & fecha & "', '" & titulo & "', '" & copete & "', '" & noticia & "', '" & tipo_noticia & "')"
Master.Execute(sSQL)

response.Redirect("ok.asp")
end if

A ver si alguien me ayuda en este lio que me meti.
Saludos.

ARIEL.