<%@language="VBScript"%>
<% Response.Expires = -1 %>
<!--#include file="inc/kontrola-prihlaseni.asp" -->
<!--#include file="inc/conn.asp" -->
<% 
'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("datum") = request("datum_vystaveno")
rs("datum_dph") = request("datum")
rs.Update
rs.close

Response.clear
response.redirect "prodejky-doklad.asp?id_prodejka=" & request("id_prodejka")
 %>