<% Dim IsLogin
IsLogin = Session("status")
if IsLogin<>1 then
	response.redirect("login.asp?login=no")
end if
Dim admin
admin = Session("admin")
Dim kat
kat = Request("kat")
%>
<!-- #include file="db.inc" -->
<%
Dim sql

<!-- sql = "select max(id) as newid, max(kolejnosc) as maxlp from akapit where kategoria ="& kat
set rs=dbc.Execute(sql) -->

sql = "select max(id) as newid from akapit
set rs=dbc.Execute(sql)

sql = "select max(kolejnosc) as maxlp from akapit where kategoria ="& kat
set rs=dbc.Execute(sql)

Dim id
if IsNull(rs("newid")) then
	id = 1
else
	id = CInt(rs("newid")) + 1
end if

Dim kolejnosc
if IsNull(rs("maxlp")) then
	kolejnosc = 1
else
	kolejnosc = CInt(rs("maxlp")) + 1 
end if

	sql = "INSERT INTO akapit "
	sql = sql & "(id,naglowek,zdjecie,sizelimit,border,colorborder,opis,kategoria,kolejnosc,kolejnosc_tmp,typ,bg,bg_naglowek,colornaglowek,coloropis,publikuj)"
	sql = sql & "VALUES ("
	sql = sql & "'" & id & "',"
	sql = sql & "'nowy nagłówek','0','1','0','B0BAFF','', '" & CStr(kat) & "',"
	sql = sql & "'" & CStr(kolejnosc) & "',"
	sql = sql & "'0','0','B9C1FF','B0BAFF','330099','330099','1')"

set rs=dbc.Execute(sql)
	'i = 0
		'do while i <4
    	sql = "INSERT INTO images "
		sql = sql & "(iid,image,art)"
		sql = sql & "VALUES ("
		sql = sql & "'', '0',"
		sql = sql & "'" & id & "')"
		set res=dbc.Execute(sql)
		'i= i +1
	'loop
	
response.redirect("akapit_edycja.asp?id=" & CStr(id))
%>