<%
If Not Session("Admin")="Girdi" Then
Response.Write "
Bu sayfayı görme yetkiniz yok...
"
Else
If ms = "" Then
KatAdi = Request.QueryString("KatAdi") %>
<% End If
If ms="yukle" Then
'On Error Resume Next
KatAdi = Request.QueryString("KatAdi")
ResimYolu = ResimYol & "/" & KatAdi & "/buyuk"
ResimYolu2 = ResimYol & "/" & KatAdi & "/kucuk"
Randomize
Numara = INT (RND*9999999999)+1
Server.ScriptTimeout=1000
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
Sayac = Upload.SaveToMemory
If Sayac = 0 Then
Response.Write "Yüklenecek Bir dosya secmelisiniz..."
Response.End
End If
For Each File in Upload.Files
If File.ImageType="UNKNOWN" Then
Response.Write "Sadece Resim Dosyası Yükleyebilirsiniz!"
Response.End
End If
Next
Set Resim = Upload.Files ("resimadi")
Adi = Numara&Right(Resim.FileName,4)
Path = ( Request.ServerVariables( "APPL_PHYSICAL_PATH" ) & ResimYolu & "/" & Adi )
Resim.SaveAs Path
Set Jpeg = Server.CreateObject("Persits.Jpeg" )
Jpeg.Open Path
Jpeg.Width = 100
jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth
Jpeg.Canvas.Brush.Solid = False
Path2 = ( Request.ServerVariables( "APPL_PHYSICAL_PATH" ) & ResimYolu2 & "/" & Adi )
Jpeg.Save Path2
Jpeg.Open Path
Jpeg.Canvas.Font.Color = &000000
Jpeg.Canvas.Font.Family = "Courier New"
Jpeg.Canvas.Font.Bold = TRUE
Jpeg.Canvas.Font.Size = 15
Jpeg.Canvas.Font.Quality = 4
Jpeg.Canvas.Font.BkMode = "Opaque"
Jpeg.Canvas.Print 10, 10, MSAdres 'Genişlik , Yükseklik
Jpeg.Canvas.Pen.Color = &000000
Jpeg.Canvas.Pen.Width = 1
Jpeg.Canvas.Brush.Solid = False
Jpeg.Canvas.DrawBar 1, 1, Jpeg.Width, Jpeg.Height
Jpeg.Save Path
Tur = "fldResim"
%>
<% End If
End If 'Session %>