Thank you
Raise the image by date
filename = Year(Now) & Month(Now) & Day(Now) & Hour(Now) & Minute(Now) & Second(Now) & "_" & filename
On this code
Wait for help
<%
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
%>
