<%@language="VBScript"%> <% Response.Expires = -1 %> <% 'duplikování zboží ve skladu start = 0 Set rs = CreateObject("ADODB.RecordSet") if request("id_zbozi") <> "" then strSQL = "SELECT * FROM s_zbozi WHERE id_s_zbozi = (SELECT id_s_zbozi FROM zbozi WHERE id_zbozi = " & request("id_zbozi") & ")" else strSQL = "SELECT * FROM s_zbozi WHERE id_s_zbozi = " & request("id_s_zbozi") end if rs.Open strSQL, conn, 1, 1 id_s_zbozi = rs("id_s_zbozi") Set rs2 = CreateObject("ADODB.RecordSet") rs2.Open "s_zbozi", conn, 1, 3 rs2.addnew for each polozka in rs2.fields start = start + 1 if start > 1 then if polozka.name = "datum" then polozka.value = formatdatetime(now,0) elseif instr(polozka.name,"ks_sklad") > 0 then polozka.value = 0 elseif instr(polozka.name,"ks_obj") > 0 then polozka.value = 0 elseif instr(polozka.name,"ks_blok") > 0 then polozka.value = 0 elseif instr(polozka.name,"cena_vazena") > 0 then polozka.value = 0 elseif polozka.name = "nazev1" then polozka.value = "duplikát - " & rs(polozka.name) elseif polozka.name = "nazev_zbozi" then polozka.value = "duplikát - " & rs(polozka.name) elseif polozka.name = "nazev_zbozi2" then polozka.value = "duplikát - " & rs(polozka.name) else polozka.value = rs(polozka.name) end if end if next rs2.update rs2.close rs.close Set rsID = conn.execute("SELECT @@IDENTITY FROM s_zbozi") id_s_zbozi2 = rsID(0) Set rsID = nothing 'duplikování zboží v obchodě start = 0 Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zbozi WHERE id_s_zbozi = " & id_s_zbozi rs.Open strSQL, conn, 1, 1 if not rs.eof then id_zbozi_kat = rs("id_zbozi_kat") id_zbozi = rs("id_zbozi") 'získání počtu řazení Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT COUNT(*) FROM zbozi WHERE id_zbozi_kat = " & id_zbozi_kat & " AND smazano = 0" rs2.Open strSQL, conn, 1, 1 razeni = rs2(0) + 1 rs2.close Set rs2 = CreateObject("ADODB.RecordSet") rs2.Open "zbozi", conn, 1, 3 rs2.addnew for each polozka in rs2.fields start = start + 1 if start > 1 then if polozka.name = "id_s_zbozi" then polozka.value = id_s_zbozi2 elseif polozka.name = "datum" then polozka.value = formatdatetime(now,0) elseif polozka.name = "odkaz" then polozka.value = "duplikat-" & rs(polozka.name) elseif polozka.name = "foto_pocet" then polozka.value = 0 elseif polozka.name = "zobrazit" then polozka.value = false elseif polozka.name = "skupina" then polozka.value = 0 elseif polozka.name = "skupina_zobrazit" then polozka.value = false elseif polozka.name = "skupina_foto" then polozka.value = false elseif polozka.name = "razeni" then polozka.value = razeni else polozka.value = rs(polozka.name) end if end if next rs2("admin") = session("admin_bikestore_id2") rs2.update rs2.close rs.close Set rsID = conn.execute("SELECT @@IDENTITY FROM zbozi") id_zbozi2 = rsID(0) Set rsID = nothing 'duplikování parametrů start = 0 Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT id_zbozi_kat FROM zbozi_param_typ WHERE id_zbozi_kat = " & id_zbozi_kat rs.Open strSQL, conn, 1, 1 if not rs.eof then rs.close Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zbozi_param" & id_zbozi_kat & " WHERE id_zbozi = " & id_zbozi rs.Open strSQL, conn, 1, 1 if not rs.eof then start = 0 Set rs2 = CreateObject("ADODB.RecordSet") rs2.Open "zbozi_param" & id_zbozi_kat, conn, 1, 3 rs2.addnew for each polozka in rs2.fields start = start + 1 if start = 1 then polozka.value = id_zbozi2 else polozka.value = rs(polozka.name) end if next rs2.update rs2.close end if end if rs.close conn.close response.clear response.redirect "zbozi-edit.asp?id_zbozi=" & id_zbozi2 & "&nove=1" end if rs.close conn.close response.clear response.redirect "zbozi-edit.asp?id_s_zbozi=" & id_s_zbozi2 & "&nove=1" %>