<%
if right(rs("picture1"),4)=".jpg" then
picture= RS("picture1")
else
picture = RS("id") & ".jpg"
end if
Response.write"
"
if RS("description")<>"" then
Response.write RS("description") & "
"
end if
if trim(RS("picture1"))<>"" then
picturename = RS("picture1")
else
picturename = RS("id") & ".jpg"
end if
''Response.write picturename & "
"
Set jpeg = Server.CreateObject("Persits.Jpeg")
jpeg.Open( "D:/websites/B/bkbarrit/public/products/" & picturename )
thewidth=jpeg.OriginalWidth
theheight=jpeg.OriginalHeight
''Response.write thewidth & "x" & theheight & "
"
if theheight<500 then
theheight=theheight*2
end if
if theheight>500 then
addin =" height='500'"
end if
if RS("sizew")<>"" then 'only show table if width is specified
Response.write "
"
Response.write "| Width | " & RS("sizew") & """ |
"
Response.write "| Depth | " & RS("sized") & """ |
"
Response.write "| Height | " & RS("sizeh") & """ |
"
Response.write "| Seat Height | " & RS("seath") & """ |
"
if RS("armh")<>"" then
Response.write "| Arm Height | " & RS("armh") & """ |
"
end if
if RS("seatd")<>"" then
Response.write "| Seat Depth | " & RS("seatd") & """ |
"
end if
if RS("wbarms")<>"" then
Response.write "| Width between Arms | " & RS("wbarms") & """ |
"
end if
if RS("hbas")<>"" then
Response.write "| Height of Back Above Seat | " & RS("hbas") & """ |
"
end if
Response.write "
"
end if 'end only showing table if width is specified
Response.write "
"
Response.write "
![" & RS("product_title") & "](../products/"
if rs("picture1")<>"" then
if left(RS("picture1"),4)=".jpg" then
Response.write RS("picture1")
else
Response.write RS("id") & ".jpg"
end if
else
Response.write RS("id") & ".jpg"
end if
Response.write ")
"
Response.write "
