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

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

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


	sql = "INSERT INTO marka "
	sql = sql & "(id,marka)"
	sql = sql & "VALUES ("
	sql = sql & "'" & id & "',"
	sql = sql & "'nowa marka')"

set rs=dbc.Execute(sql)
	
response.redirect("marka_edycja.asp?id=" & CStr(id))
%>