<%@language="VBScript"%>
<% Response.Expires = -1 %>
<!--#include file="inc/kontrola-prihlaseni.asp" -->
<!--#include file="inc/conn.asp" -->
<% 
'uložení dodavatel
Set rs = CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM s_dodavatel WHERE id_s_dodavatel = " & request("id_dodavatel")
rs.Open strSQL, conn, 2, 3
rs("jmeno") = request("jmeno")
rs("firma") = request("firma")
rs("ulice") = request("ulice")
rs("mesto") = request("mesto")
rs("psc") = request("psc")
rs("email") = request("email")
rs("mobil") = request("mobil")
rs("tel1") = request("tel1")
rs("tel2") = request("tel2")
rs("fax") = request("fax")
rs("icq") = request("icq")
rs("skype") = request("skype")
rs.Update
rs.close
conn.close



if request("zpet") = "" then
	Response.clear
	response.redirect "dodavatel.asp"
else
	seznam = split(request("zpet"),",")
	odkaz = seznam(0) & ".asp?"
	for start = 1 to ubound(seznam)
		odkaz = odkaz & seznam(start) & "&"
	next
	odkaz = odkaz & "id_dodavatel=" & request("id_dodavatel")
	Response.clear
	response.redirect odkaz
end if
 %>