Subir varias imagenes al mismo tiempo

[Adler]

Prueba así

Código:

 
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")
archivo1 = Uploader.form("foto1")
archivo2 = Uploader.form("foto2")
archivo3 = Uploader.form("foto3")
archivo4 = Uploader.form("foto4")

File.SaveToDisk Server.MapPath(path), archivo1


if vartype(archivo2)<>0 then
File.SaveToDisk Server.MapPath(path), archivo2
end if

if vartype(archivo3)<>0 then
File.SaveToDisk Server.MapPath(path), archivo3
end if

if vartype(archivo4)<>0 then
File.SaveToDisk Server.MapPath(path), archivo4
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

Si aún genera error, especificalo

Suerte