<FORM ENCTYPE="multipart/form-data" ACTION="upload.asp" METHOD="POST">
<INPUT TYPE="FILE" NAME="FILE1" multiple >
<br>
<INPUT TYPE="SUBMIT" VALUE="Upload!">
</FORM>

<%

Set Upload = Server.CreateObject("Persits.Upload")

Count = Upload.Save

If Count = 0 Then
Response.Write "No images selected."
Response.End
Else
genisliktoplam=0
yukseklikmax=0
For Each File in Upload.Files
If File.ImageType <> "UNKNOWN" Then
Set jpeg = Server.CreateObject("Persits.Jpeg")
jpeg.OpenBinary( File.Binary )
genislik=Jpeg.OriginalWidth
yukseklik=Jpeg.OriginalHeight
genisliktoplam=genislik+genisliktoplam
if yukseklikmax < yukseklik then yukseklikmax=yukseklik
End If
next

response.write " toplam genislik:" & genisliktoplam & "<br>"
response.write "maksimum yukseklik:" & yukseklikmax& "<br>"

'tüm resimler okundu tabanlik yapım resimleri üzerine basalım

Set Jpeg2 = Server.CreateObject("Persits.Jpeg")
Jpeg2.New genisliktoplam , yukseklikmax, &HFFFFFF
ykonum=0
For Each File2 in Upload.Files
If File2.ImageType <> "UNKNOWN" Then
Set jpegtemp = Server.CreateObject("Persits.Jpeg")
jpegtemp.OpenBinary( File2.Binary )
response.write ykonum
Jpeg2.Canvas.DrawImage ykonum, 0, jpegtemp' optional arguments omitted
ykonum=ykonum+jpegtemp.OriginalWidth 'resimleri yan yana getirmek için genişliği kadar öteleme yapmak için
End if
NEXT

Jpeg2.Save (Server.MapPath("sadas.jpg"))

End If



%>