<% for start = 1 to 5 Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM shop_baner WHERE id_shop = " & application("id_shop") & " AND id_shop_baner = " & start rs2.Open strSQL, conn, 2, 3 if rs2.eof then rs2.close rs2.Open "shop_baner", conn, 1, 3 rs2.addnew rs2("id_shop_baner") = start rs2("id_shop") = application("id_shop") rs2.update rs2.close Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM shop_baner WHERE id_shop = " & application("id_shop") & " AND id_shop_baner = " & start rs2.Open strSQL, conn, 1, 1 end if %> <% rs2.close next %>

Odkaz	http:// " SIZE="50" VALUE="<%= rs2("odkaz") %>">
Baner <%= rs2("id_shop_baner") %>	"> rozlišení 980 x 350, formát JPG, GIF nebo Flash <% pripona = "" set f = server.createobject("scripting.filesystemobject") if f.fileexists(Server.MapPath("../data_shopy/baner_uvod/" & application("nazev_shop") & "/" & rs2("id_shop_baner") & ".jpg")) = true then pripona = "jpg" elseif f.fileexists(Server.MapPath("../data_shopy/baner_uvod/" & application("nazev_shop") & "/" & rs2("id_shop_baner") & ".gif")) = true then pripona = "gif" elseif f.fileexists(Server.MapPath("../data_shopy/baner_uvod/" & application("nazev_shop") & "/" & rs2("id_shop_baner") & ".swf")) = true then pripona = "swf" end if if not pripona = "" then %> <% if pripona <> "swf" then %> " TARGET="_blank">/<%= rs2("id_shop_baner") %>.<%= pripona %>" ALT="<%= rs2("nazev") %>" BORDER="0"> <% else %> <% end if %> " VALUE="<%= pripona %>"> <% end if %>
Zobrazit	" VALUE="1"<% if rs2("zobrazit") = true then %> CHECKED<% end if %>>