Subir varias imagenes al mismo tiempo

[armandoweb]

Adler:

Perdón por mi ignorancia pero no me ha funcionado, me da error.
Así me quedo el código a ver si me podes dar una mano mas...

Dim Uploader, File
Set Uploader = New FileUploader

Uploader.Upload()

If Uploader.Files.Count <> 0 Then
marca = Uploader.form("marca")
modelo = Uploader.form("modelo")
ano = Uploader.form("ano")
tipo = Uploader.form("tipo")
caracteristicas = Uploader.form("caracteristicas")
precio = Uploader.form("precio")

set objFich1 = Uploader.form("foto1")
objFich1.Guardar(Server.MapPath("/prueba/images/"))

if vartype(Uploader.form("foto2"))<>0 then
set objFich2 = Uploader.form("foto2")
objFich2.Guardar(Server.MapPath("/prueba/images/"))
end if

if vartype(Uploader.form("foto3"))<>0 then
set objFich3 = Uploader.form("foto3")
objFich3.Guardar(Server.MapPath("/prueba/images/"))
end if

if vartype(Uploader.form("foto4"))<>0 then
set objFich4 = Uploader.form("foto4")
objFich4.Guardar(Server.MapPath("/prueba/images/"))
end if

sSQL = "insert into autos(marca,modelo,ano,tipo,caracteristicas,precio ) values ('" & marca & "', '" & modelo & "', '" & ano & "', '" & tipo & "', '" & caracteristicas & "', '" & precio & "')"
Master.Execute(sSQL)

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

Nuevamente gracias.

ARMANDOWEB