<% Dim IsLogin
IsLogin = Session("status")
if IsLogin<>1 then
	response.redirect("login.asp?login=no")
end if 


Function ReplaceSpecial(Strt, strng, patrn, RplcWith)
' Strt is position in string to start searching for pattern
' strng is input html string
' patrn is the search pattern string
' RplcWith is string used to replace found patterns
   Dim regEx, Match, Matches, cnt
   Set regEx = New RegExp 
   regEx.Pattern = patrn: regEx.IgnoreCase = True 
   regEx.Global = True
   Set Matches = regEx.Execute(strng)
   cnt=matches.count-1
   for i = cnt to 0 step -1
   	if matches(i).FirstIndex >= strt then
		strng=left(strng, matches(i).FirstIndex -0) & RplcWith & right(strng, len(strng)-(matches(i).FirstIndex + len(matches(i).value) - 0)) 
	end if
   next	
   ReplaceSpecial = strng
   set regEx=nothing
End Function	


%>
<!-- #include file="db.inc" -->
<!-- #include file="def.inc" -->
<%
'stworzenie obiektu Upload
Set Upload = Server.CreateObject("aspSmartUpload.SmartUpload")
Upload.Upload

'Upload.OverwriteFiles = True 
'Count = Upload.SaveToMemory

' id akapitu
Dim id
id = CStr(Upload.Form("id"))

'if Count=1 then
count = 1
 sql = "SELECT * FROM images WHERE art ="&id
 set wynik = dbc.Execute(sql)
 minId = wynik("iid")
	For Each File in Upload.Files
         If not file.IsMissing Then
		nazwa_pliku = Mid(File.FilePathName,InStrRev(File.FilePathName,"\")+1)
		if CInt(Upload.Form("zdjecieo"&count))=1 then
			SavePath = path_photo & nazwa_pliku
			zdjecie =  nazwa_pliku
			File.SaveAs(SavePath)
			sql = "UPDATE images SET"
			sql = sql & " image = '"&nazwa_pliku&"'"
			sql = sql & " WHERE art ="&id
			sql = sql & "  AND iid =" &(minId + count) - 1
			'sql = sql & "AND id = "&(minId + count) - 1
			set res = dbc.Execute(sql)
		end if
		

	 end if 
	count = count +1
        Next
'end if

Dim tmp
Dim sql

 nagl = Upload.Form("naglowek")
 opis = Upload.Form("opis")
 

 naglowek = ReplaceSpecial(0, nagl, "\""", "&quot;")
 naglowek = ReplaceSpecial(0, nagl, "'", "&acute;")

opis = ReplaceSpecial(0, opis, "\""", "&quot;")
 opis = ReplaceSpecial(0, opis, "'", "&acute;")

	sql = "UPDATE akapit SET "
	sql = sql & "naglowek = '" & naglowek & "', "

	if CInt(Upload.Form("zdjecieo"))=1 then
		if  zdjecie<>"" then
			tmp = zdjecie
		else
			tmp = "0"
		end if
	sql = sql & "zdjecie = '" & CStr(tmp) & "', "
	end if
	if  Upload.Form("sizelimit")="on" then
		tmp = 1
	else
		tmp = 0
	end if
	sql = sql & "sizelimit = '" & CStr(tmp) & "', "
	if  Upload.Form("border")="on" then
		tmp = 1
	else
		tmp = 0
	end if
	sql = sql & "border = '" & CStr(tmp) & "', "
	sql = sql & "colorborder = '" & Upload.Form("colorborder") & "', "
	sql = sql & "opis = '" & opis & "', "
	sql = sql & "kategoria = '" & Upload.Form("kategoria") & "', "
	sql = sql & "kolejnosc = '" & Upload.Form("kolejnosc") & "', "
	sql = sql & "kolejnosc_tmp = '-1', "
	sql = sql & "typ = '" & Upload.Form("typ") & "', "
	sql = sql & "bg = '" & Upload.Form("bg") & "', "
	sql = sql & "bg_naglowek = '" & Upload.Form("bg_naglowek") & "', "
	sql = sql & "colornaglowek = '" & Upload.Form("colornaglowek") & "', "
	sql = sql & "coloropis = '" & Upload.Form("coloropis") & "', "
	sql = sql & "marka = '" & Upload.Form("marka") & "', "
	if  Upload.Form("publikuj")="on" then
		tmp = 1
	else
		tmp = 0
	end if
	sql = sql & "publikuj = '" & CStr(tmp) & "' "	
	sql = sql & "where id = " & Cstr(id)

'response.write sql

'zapis zmian do bazy
set rs = dbc.Execute(sql)

Dim kategoria
kategoria = CStr(Upload.Form("kategoria"))
Dim kolejnosc
kolejnosc = CInt(Upload.Form("kolejnosc"))


sql = "select * from akapit where id<>" & Cstr(id) & " and kategoria=" & kategoria & " and kolejnosc>=" & CStr(kolejnosc) & " order by kolejnosc"
set rs = dbc.Execute(sql)

Dim id_tmp
Dim kolejnosc_tmp
Dim rstmp

while not rs.eof 
	id_tmp = rs("id")
	kolejnosc_tmp = CInt(rs("kolejnosc"))+1
	
	sql = "update akapit set kolejnosc=" & CStr(kolejnosc_tmp) & " where id = " & Cstr(id_tmp)
	set rstmp = dbc.Execute(sql)
	rs.MoveNext
wend

' przekierowanie 
response.redirect("admin_akapity.asp?kat="&Cstr(kategoria))
%>