<%@language="VBScript"%> <% Response.Expires = 0 %> <% session("tittle") = "Nákupní košík" %> <% 'session zákazníka if not session("zakaznik_id") = "" then %> <% end if %> <% 'google dynamycký marketing - transakce ga_transaction = ga_transaction & "ga('ecommerce:addTransaction', {'id': '" & session("id_obj") & "','affiliation': 'Bikestore','revenue': '" & session("kosik_cena_celkem") & "','shipping': '" & session("kosik_dodani_cena") & "','tax': ''});" & vbcrlf seznam = split(session("kosik"),";") for start = 0 to ubound(seznam) - 1 seznam2 = split(seznam(start),"_") id_zbozi = seznam2(1) ks = seznam2(0) Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT cena, nazev_zbozi, darek, kr, var_nazev, ks_obj FROM zbozi, s_zbozi WHERE id_zbozi = " & clng(seznam2(1)) & " AND zbozi.id_s_zbozi = s_zbozi.id_s_zbozi" rs.Open strSQL, conn, 2, 3 cena = rs(0) nazev_zbozi = rs(1) rs.close 'google dynamycký marketing - položky ga_items = ga_items & "ga('ecommerce:addItem', {'id': '" & session("id_obj") & "','name': '" & nazev_zbozi & "','sku': '','category': '','price': '" & cena & "','quantity': '" & ks & "'});" & vbcrlf 'Heureka - polozky pro mereni konverzi heureka_zbozi = heureka_zbozi & "_hrq.push(['addProduct', '" & nazev_zbozi & "', '" & cena & "', '" & ks & "']);" & vbcrlf next %> <% 'odstranění všech session session("kosik") = "" if session("zakaznik_id") = "" then session("kosik_fa_adresa") = "" end if session("kosik_druh") = "" session("kosik_dodani") = "" session("kosik_dodani_cena") = "" kosik_platba = cstr(session("kosik_platba")) session("kosik_platba") = "" session("kosik_ks_celkem") = "" session("kosik_cena_celkem") = "" session("kosik_ulozit_adr_dodani") = "" session("kosik_ulozit_adr_fa") = "" session("kr_celkem") = "" for each ses in Session.Contents if instr(ses,"kosik_darky") > 0 then session(ses) = "" end if next session("id_obj") = "" 'odstranění cookies košíku Response.Cookies("kosik_" & session("server"))("kosik") = "" Response.Cookies("kosik_" & session_server).Expires = now()-5 %> <% Server.Execute("inc_shopy/" & session("server") & "/head.asp") %>

Objednávka zboží

<% if request("splatky") = "1" then %> <% if request("stav") = "0" then %>
Děkujeme za Váš nákup. Právě Vám bylo zasláno e-mailem potvrzení objednávky.

Nyní budete přesměrováni na stránku Cetelem pro vyplnění žádosti nákupu na splátky. Pokud ne, klikněte na tlačítko.


"> "> "> "> ">
<% elseif request("stav") = "1" then %>
Děkujeme za Váš nákup. Právě Vám bylo zasláno e-mailem potvrzení objednávky.

Vaše žádost pro platbu na splátky byla schválena.

Přejeme příjemný den. <% else %>
Děkujeme za Váš nákup. Právě Vám bylo zasláno e-mailem potvrzení objednávky.

Vaše žádost pro platbu na splátky nebyla schválena, bude ještě posouzena.

Přejeme příjemný den. <% end if %> <% else %>
Děkujeme za Váš nákup. Právě Vám bylo zasláno e-mailem potvrzení objednávky. Přejeme příjemný den. <% end if %> <% if kosik_platba = "2" then %>


Pokyny k platbě obdržíte, jakmile budeme mít Vámi objednané zboží připravené k vyzvednutí/zaslání.<% end if %>
<% Server.Execute("inc_shopy/" & session("server") & "/bottom.asp") %> <% 'Heureka overeno zakazniky if request("odkaz_heureka") <> "" then odkaz = "http://www.heureka.cz/direct/dotaznik/objednavka.php?id=8f4c5afc5b088151cc2e66706c620ebd" & request("odkaz_heureka") 'response.write odkaz Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP") objXMLHTTP.open "GET", odkaz, false objXMLHTTP.setRequestHeader "Content-Type", "text/plain; charset=iso-8859-2" objXMLHTTP.send() 'if session("server_id") = 2 then 'response.write session("server_id") & "
" 'response.write odkaz & "
" 'response.write objXMLHTTP.ResponseText 'response.end 'end if Set objXMLHTTP = Nothing end if %>