ASPUPLOAD - upload form
Hvad er der galt?Typ er et select felt med value 1,2osv
Set Upload = Server.CreateObject("Persits.Upload.1")
Filtyps = Upload.form("typ")
IF Filtyps = "1" Then
Upload.SetMaxSize 250000, True
Websti = "/log/JPG_GIF/"
else
IF Filtyps = "2" Then
Upload.SetMaxSize 2500000, True
Websti = "/log/PDF/"
else
IF Filtyps = "3" Then
Upload.SetMaxSize 1000000, True
Websti = "/log/DOC/"
else
IF Filtyps = "4" Then
Upload.SetMaxSize 3500000, True
Websti = "/log/MP3/"
else
IF Filtyps = "5" Then
Upload.SetMaxSize 5000000, True
Websti = "/log/MPG/"
else
IF Filtyps = "6" Then
Upload.SetMaxSize 1500000, True
Websti = "/log/XLS/"
else
IF Filtyps = "7" Then
Upload.SetMaxSize 5000000, True
Websti = "/log/ZIP/"
end if
end if
end if
end if
end if
end if
end if
Upload.OverwriteFiles = False
Count = Upload.SaveVirtual("Websti")
