<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.CodePage = 1254
Upload.OverwriteFiles = False
Upload.SetMaxSize 500000000, True

Count = Upload.SaveToMemory
ilan_id=upload.Form("ilan_id")
For Each File in Upload.Files
Upload.SetMaxSize 500000000, True
If File.ImageType <> "JPG" then
%>
Lütfen jpg türü bir resim seçiniz.
<% response.end
end if
next

Randomize
sayim = int(rnd * 9999999999)
sayim= ilan_id & "-" & sayim
dosya_sayaci = 0
For Each File in Upload.Files
'on error resume next
Set File1 = Upload.Files(1)
Set File2 = Upload.Files(2)
Set File3 = Upload.Files(3)
Set File4 = Upload.Files(4)
Set File5 = Upload.Files(5)
Set File6 = Upload.Files(6)
Set File7 = Upload.Files(7)
Set File8 = Upload.Files(8)
Set File9 = Upload.Files(9)

Path = Request.ServerVariables( "APPL_PHYSICAL_PATH" ) &
"images/" & sayim & ".jpg"
File.SaveAs Path
dosya_sayaci = dosya_sayaci + 1
next
if dosya_sayaci > 0 then
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Request.ServerVariables( "APPL_PHYSICAL_PATH" ) &
"images/" & sayim & ".jpg"