<%@language="VBScript"%>
<% Response.Expires = -1 %>
<!--#include file="inc/kontrola-prihlaseni.asp" -->
<!--#include file="inc/conn.asp" -->
<% 
'uložení kontaktů
Set rs = CreateObject("ADODB.RecordSet")
strSQL = "SELECT kontakt FROM shop WHERE id_shop = " & application("id_shop")
rs.Open strSQL, conn, 2, 3
rs("kontakt") = request("kontakt")
rs.update
rs.close



conn.close
chyba = "Uloženo"



session("reload") = "1"
Response.clear
response.redirect "shopy-kontakty.asp?chyba=" & chyba
 %>