<%@language="VBScript"%>
<% Response.Expires = 0 %>
<!--#include file="inc/kontrola.asp" -->
<!--#include file="inc/kontrola-shop.asp" -->
<!--#include file="inc/conn.asp"-->
<% 
'jen admin
if session("admin_bikestore_server") = request.servervariables("SERVER_NAME") or request.Cookies ("admin_" & session("server"))("admin_" & session("server")) <> "" then
	'uložení zobrazení zboží
	Set rs = CreateObject("ADODB.RecordSet")
	if request("reklama_druh") = "uv" then
		strSQL = "SELECT zbozi_prodano, odkaz FROM reklama_uvod WHERE id_reklama_uvod = " & clng(request("reklama_id"))
	elseif request("reklama_druh") = "um" then
		strSQL = "SELECT zbozi_prodano, odkaz FROM reklama_uvod_mala WHERE id_reklama_uvod_mala = " & clng(request("reklama_id"))
	end if
	rs.Open strSQL, conn, 2, 3
	odkaz = rs("odkaz")
	if request("prodano") = "1" then
		rs("zbozi_prodano") = replace(rs("zbozi_prodano"),request("zbozi") & ",","")
	else
		
		rs("zbozi_prodano") = rs("zbozi_prodano") & request("zbozi") & ","
	end if
	rs.update
	rs.close
	conn.close
	
	
	if request("str") <> "" then
		str = "?v=1&str=" & request("str")
	end if
	session("reklama_id") = request("id_reklama_id")
	response.clear
	response.redirect session("cesta_web") & "akce/" & odkaz & str
end if
 %>