<%@language="VBScript"%>
<% Response.buffer = false %>
<% Response.Expires = 0 %>
<!--#include file="../inc/kontrola.asp" -->
<!--#include file="../inc/conn.asp" -->
<% 
Server.ScriptTimeout=180


	'èástka prodejek - zisk
	strSQL = "update zakaznik set objednano_zisk = (SELECT SUM(round((cena - (round((cena_vazena/100)*(dph_cena_vazena+100),1)))*ks,1)) FROM s_prodejka2 WHERE id_s_prodejka = ANY (SELECT id_s_prodejka FROM s_prodejka WHERE id_obj = ANY (SELECT id_obj FROM obj WHERE stav = 2 AND obj.id_zakaznik = zakaznik.id_zakaznik))) WHERE zakaznik.id_zakaznik > 0"
	conn.execute strSQL
response.end


Set rs = CreateObject("ADODB.RecordSet")
strSQL = "SELECT id_zakaznik FROM zakaznik WHERE id_zakaznik >= 300 AND id_zakaznik <= 2000"
rs.Open strSQL, conn, 1, 1
do while not rs.eof
	id_zakaznik = rs("id_zakaznik")

	response.write id_zakaznik & ", "
	rs.movenext
loop
rs.close
 %>