<%@language="VBScript"%> <% Response.Expires = -1 %> <% 'vyseparování údajů o zákazníkovi if request("zakaznik_start") <> "" then zakaznik = "" seznam = split(request.form,"&") for start = 0 to ubound(seznam) - 1 seznam2 = split(seznam(start),"=") zakaznik = zakaznik & seznam2(0) & "=" & request(seznam2(0)) & "&" next zakaznik = mid(zakaznik,instrrev(zakaznik,"&zakaznik_start=1&") + 17,instr(zakaznik,"&zakaznik_stop=1&") - instrrev(zakaznik,"&zakaznik_start=1&")) end if 'response.write zakaznik 'response.end 'uložení prodejky Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM s_prodejka WHERE id_s_prodejka = " & request("id_prodejka") rs.Open strSQL, conn, 2, 3 rs("poznamka") = request("poznamka") rs("cena_celkem") = request("cena_celkem") if zakaznik <> "" then rs("zakaznik") = zakaznik end if if request("fakturacni") = "1" then rs("fakturacni_adr") = false elseif request("fakturacni") = "2" then rs("fakturacni_adr") = true end if rs.Update rs.close if request("str") <> "" then str = "?str=" & request("str") end if 'Response.clear 'response.redirect "prodejky.asp" %>