<%
Set Upload = Server.CreateObject("Persits.Upload")
Path = Server.MapPath("/Uploads/Images/")

Count = Upload.Save(Path)

If Count = 0 Then
	Response.Write("{""status"":""error""}")
Else
	Set File = Upload.Files(1)
	DosyaAdi = File.filename

	If Right(DosyaAdi,4) = ".jpg" Or Right(DosyaAdi,4) = ".gif"  Or Right(DosyaAdi,4) = ".png" Then ' Kabül Edilen dosya tiplerini kendin ayarla
	Response.Write("{""status"":""success""}")
	Else
	File.Delete
	Response.Write("{""status"":""error""}")
	End If
End If
Set Upload = Nothing
%>

--R10.NET; Flood Engellendi -->-> Yeni yazılan mesaj 17:40:51 -->-> Daha önceki mesaj 17:26:11 --

Mesele php den asp ye çevirmek değil mesele o kodların ne iş yaptığını bilip
ona göre bir asp kodlama yapmak.