<%
ImgURL = "http://www.pvplog.com/Resimler/OyunBanner/gw2.jpg"

    ON ERROR RESUME NEXT
    Dim xmlhttp
    Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
    xmlhttp.open "GET", ImgURL, False
    xmlhttp.send
	
    If(Err.Number<>0) then
        Response.Write "Resim tespit edilemedi."
    end if
	
    ON ERROR GOTO 0
	
Set Jpeg = Server.CreateObject("Persits.Jpeg") 
	Jpeg.OpenBinary(xmlhttp.responseBody)
	
	iResimWidth = Jpeg.OriginalWidth 
	iResimHeight = Jpeg.OriginalHeight 
Set Jpeg = Nothing 


Response.Write(iResimWidth)
Response.Write("<br>")
Response.Write(iResimHeight)
%>