<img src=XXX.XXX name=im id=im >
<script language=vbscript>
Dim intWidth,intHeight
intWidth= Document.all("im").width
intHeight= Document.all("im").height
If intWidth>200 Or intWidth <150 Then
Document.all("im").width=200
Document.all("im").height=intHeight * 200 /intWidth
End if
</script>