<% if session("zbozi_vyber" & application("sklad")) = "" then %>

Vyberte nejprve zboží ze skladu

<% else %>

"> ">
Zboží <% prevod = false seznam = split(session("zbozi_vyber" & application("sklad")),",") for start = 0 to ubound(seznam) - 1 id_zbozi = seznam(start) Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT nazev_zbozi, id_s_zbozi, ks_sklad" & application("sklad") & " FROM s_zbozi WHERE id_s_zbozi = " & id_zbozi rs.Open strSQL, conn, 1, 1 ks = rs("ks_sklad" & application("sklad")) if ks > 0 then %> <% end if rs.close next %>

ks	sklad		zboží
" SIZE="4" MAXLENGTH="5" VALUE="1">	<%= ks %>	&strana=zbozi-prevod'}">	<%= rs("nazev_zbozi") %>

 
<% 'zdrojový sklad if application("sklad") = "" then nazev_skladu = "Hlavní sklad" else Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT nazev FROM s_sklad WHERE id_s_sklad = " & application("sklad") rs.Open strSQL, conn, 1, 1 nazev_skladu = rs("nazev") rs.close end if %> Ze skladu<%= nazev_skladu %> Do skladu <% if application("sklad") <> "" then %> SELECTED<% end if %>>Hlavní sklad <% end if %> <% Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM s_sklad WHERE smazano = 0 ORDER BY nazev" rs.Open strSQL, conn, 1, 1 do while not rs.eof if cstr(rs("id_s_sklad")) <> application("sklad") then %> "<% if application("sklad") = cstr(rs("id_s_sklad")) then %> SELECTED<% end if %>><%= rs("nazev") %> <% end if rs.movenext loop rs.close %> Poznámka

<% end if %>