<%@language="VBScript"%> <% Response.Buffer = True %> <% Response.Expires = -1 %> <% session("server") = "bikestore" on error resume next Set scrobj = Server.CreateObject("W3Image.Image") nacist = scrobj.LoadImage (Server.MapPath("../gfx/" & session("server") & "/") & "\test.bmp") if err.number <> 0 then response.write Server.MapPath("../gfx/" & session("server") & "/") & "\test.bmp" & " = chyba
" else response.write Server.MapPath("../gfx/" & session("server") & "/") & "\test.bmp" & " = ok
" end if err.clear Set scrobj = Server.CreateObject( "w3Image.Image") nacist = scrobj.LoadImage (Server.MapPath("../gfx/" & session("server") & "/") & "\servis2.jpg") if err.number <> 0 then response.write Server.MapPath("../gfx/" & session("server") & "/") & "\servis2.jpg" & " = chyba
" else response.write Server.MapPath("../gfx/" & session("server") & "/") & "\servis2.jpg" & " = ok
" end if err.clear nacist = scrobj.LoadImage (Server.MapPath("../gfx/" & session("server") & "/") & "\but_hledej.gif") if err.number <> 0 then response.write Server.MapPath("../gfx/" & session("server") & "/") & "\vodoznak.gif" & " = chyba
" else response.write Server.MapPath("../gfx/" & session("server") & "/") & "\vodoznak.gif" & " = ok
" end if err.clear nacist = scrobj.LoadImage (Server.MapPath("../gfx/" & session("server") & "/") & "\head_logo.png") if err.number <> 0 then response.write Server.MapPath("../gfx/" & session("server") & "/") & "\head_logo.png" & " = chyba
" else response.write Server.MapPath("../gfx/" & session("server") & "/") & "\head_logo.png" & " = ok
" end if err.clear set imageobj = nothing %>