<% Dim IsLogin IsLogin = Session("status") if IsLogin<>1 then response.redirect("login.asp?login=no") end if Dim admin admin = Session("admin") %> <% Dim sql ' deklaracje pol do przeniesienia Dim id Dim firma Dim imie Dim nazwisko Dim adres Dim kod00 Dim kod000 Dim miasto Dim login Dim pass 'ustawienie pol firma = Request.Form("firma") imie = Request.Form("imie") nazwisko = Request.Form("nazwisko") adres = Request.Form("adres") kod00 = Request.Form("kod00") kod000 = Request.Form("kod000") miasto = Request.Form("miasto") login = Request.Form("login") pass = Request.Form("pass") if CStr(login)="" or CStr(pass)="" or CStr(imie & nazwisko)="" then response.redirect("user_add.asp?blad=2") end if sql = "select * from user where login='" & Cstr(login) & "'" Set rs=dbc.Execute(sql) if rs.eof then sql = "INSERT INTO user " sql = sql & "(firma,imie,nazwisko,adres,kod00,kod000,miasto,login,pass) VALUES (" sql = sql & "'" & firma & "'," sql = sql & "'" & imie & "'," sql = sql & "'" & nazwisko & "'," sql = sql & "'" & adres & "'," sql = sql & "'" & kod00 & "'," sql = sql & "'" & kod000 & "'," sql = sql & "'" & miasto & "'," sql = sql & "'" & login & "'," sql = sql & "'" & pass & "')" set rs=dbc.Execute(sql) response.redirect("user_lista.asp") else response.redirect("user_add.asp?blad=1") end if %>