<%
Set Upload = Server.CreateObject("Persits.Upload")
Path = Server.MapPath(strScriptYolu &"forum/data/")

Count = Upload.SaveVirtual("/forum/data/")

If Count = 0 Then

	Response.Redirect "outputFile.asp?tab=resim_yukle&hata=1"

Else
	Set File = Upload.Files(1)
	If File.ImageType <> "UNKNOWN" Then

		strKelimeler = Trim(Temizle(Upload.Form("kelimeler")))

		Set jpeg = Server.CreateObject("Persits.Jpeg")
		jpeg.Open(File.Path)
		jpeg.Width = 250
		jpeg.Height = 190
    		jpeg.Save File.Path
		Set jpeg = Nothing

		Set jpeg = Server.CreateObject("Persits.Jpeg")
		jpeg.Open( File.Path )
		jpeg.Width = 100
		jpeg.Height = 76
		SavePath = Path & "\th_" & File.ExtractFileName
		If UCase(Right(SavePath, 3)) <> "JPG" Then
			SavePath = SavePath & ".jpg"
		End If
		jpeg.Save SavePath
		DosyaAdi = File.ExtractFileName
		Set jpeg = Nothing

		kdGenel.Open "SELECT * FROM tblResimler", adoCon, 1, 3
		kdGenel.Addnew
		kdGenel("Resim") = DosyaAdi
		kdGenel("Kucuk") = "th_" & DosyaAdi
		kdGenel("Kelimeler") = strKelimeler
		kdGenel.Update
		kdGenel.Close 

		Response.Redirect "resim_frame.asp?tab=resimler"

  	Else

		Response.Redirect "resim_frame.asp?tab=resim_yukle&hata=1"

	End If
End If
%>