<%
dim iWidth, iHeight

sub ImgDimension(img) 
	dim myImg, fs 
	Set fs= CreateObject("Scripting.FileSystemObject") 
	if not fs.fileExists(img) then exit sub 
	set myImg = loadpicture(img) 
	iWidth = round(myImg.width / 26.4583)
	iHeight = round(myImg.height / 26.4583)
	set myImg = nothing 
end sub

ImgDimension("C:\Inetpub\wwwroot\test.jpg")
if iWidth > 500 then
	iWidth = 500
end if
%>

<img src="test.jpg" width="<%=iWidth%>">