w=rs("width"):h=rs("height")
   m=w/130:n=h/75
   if w>=130 or h>=75 then
     if m>n then
    w1=130:h1=h/m
     elseif m<n then
    h1=75:w1=w/n
     else
    w1=130:h1=75
     end if
   else
     w1=w:h1=h
     if w<>0 or h<>0 then w1=130:h1=75
   end if
   dim fh
   fh=h1
   response.Write("<a href=javascript:winshow('sbturnshow.asp?id="&rs("id")&"')>")
   response.Write ("<img src='"&rs("imgpath")&"'")
   response.Write (" height='"&fh&"' width='"&w1&"' border='0'>")
   response.Write("</a>")