<%
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 "
"
Response.write "