if recordset("immagini")<>"" then
imgname=objRec("immagini")
imgpath=Server.MapPath("public/copertine/"& imgname &"")
Set objImageSize = New ImageSize
With objImageSize
.ImageFile = imgpath
strimgh=.ImageWidth
strimgw=.ImageHeight
End With
Set objImageSize = Nothing
strtemph="68"
moltiplica=strtemph * 100
dividi=moltiplica/strimgh
moltiplica2=strimgw * dividi
strtempw=moltiplica2/100
maxsizew="90"
if int(strtempw)>int(maxsizew) then
moltiplica1=maxsizew * 100
dividi1=moltiplica1/strtempw
moltiplica21=strtemph * dividi1
strtemph=moltiplica21/100
strtempw=maxsizew
end if
if int(strimgh)>int(strimgw) then
strthbimgw=strtempw
strthbimgh=strtemph
else
strthbimgw=strtempw
strthbimgh=strtemph
end if
else
imgname="_blank_equilibri.jpg"
strthbimgw="100"
strthbimgh="133"
end if
%>
[img]thb.aspx?filename=public/copertine/<%=imgname%>&width=<%=strthbimgw%>&height=<%=strth bimgh%>[/img]
</td>