%@language="VBScript" %> <% Response.Expires = -1 %> <% if request("id_s_zbozi") <> "" then 'kontrola zda je zboží v obchodě Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT id_zbozi FROM zbozi WHERE smazano = 0 AND id_s_zbozi = " & request("id_s_zbozi") rs2.Open strSQL, conn, 1, 1 if not rs2.eof then id_zbozi = rs2("id_zbozi") Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT *, s_zbozi.smazano AS smazano FROM s_zbozi, zbozi WHERE s_zbozi.id_s_zbozi = " & request("id_s_zbozi") & " AND s_zbozi.id_s_zbozi = zbozi.id_s_zbozi" rs.Open strSQL, conn, 1, 1 else Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM s_zbozi WHERE id_s_zbozi = " & request("id_s_zbozi") rs.Open strSQL, conn, 1, 1 end if rs2.close %>
,-1)"> <% else Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM s_zbozi, zbozi WHERE id_zbozi = " & request("id_zbozi") & " AND s_zbozi.id_s_zbozi = zbozi.id_s_zbozi" rs.Open strSQL, conn, 1, 1 id_zbozi = rs("id_zbozi") ks_sklad = rs("ks_sklad" & application("sklad")) %> <% end if 'počet ks skladem ks_sklad = rs("ks_sklad" & application("sklad")) 'kontrola smazání if rs("smazano") = true then response.write "