<%@language="VBScript"%>
<% Response.Expires = -1 %>
<!--#include file="inc/kontrola-prihlaseni.asp" -->
<!--#include file="inc/conn.asp" -->
<% 
'smazání převodu
Set rs = CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM s_sklad_prevod WHERE id_s_sklad_prevod = " & request("id_prevod")
rs.Open strSQL, conn, 2, 3
rs.delete
rs.Update
rs.close



'smazání převodu 2
Set rs = CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM s_sklad_prevod2 WHERE id_s_sklad_prevod = " & request("id_prevod")
rs.Open strSQL, conn, 2, 3
do while not rs.eof
	rs.delete
	rs.Update
	rs.movenext
loop
rs.close



conn.close
Response.clear
response.redirect "prevody.asp"
 %>