<% Dim IsLogin
IsLogin = Session("status")
if IsLogin<>1 then
response.redirect("login.asp?login=no")
end if
Dim admin
admin = Session("admin")
Dim user
if admin=1 then
user="a"
else
user="u"
end if
%>
Moduł administracyjny wirtyny AGS
<% ' odczytanie danych uzytkownika
Dim idk
idk=Request("idk")
' odczytanie danych uzytkownika
Dim a
a=Request("a")
' dane klienta
Dim firma, imie, nazwisko
Dim adres, kod00, kod000, miasto
Dim login, pass
Dim sql
if idk<>"0" then
sql="select * from user where id=" & idk
set rs=dbc.Execute(sql)
if not rs.EOF then
firma = rs("firma")
imie = rs("imie")
nazwisko = rs("nazwisko")
adres = rs("adres")
kod00 = rs("kod00")
kod000 = rs("kod000")
miasto = rs("miasto")
login = rs("login")
pass = rs("pass")
else
firma = "brak danych w bazie"
end if
else
firma = "Administrator"
imie = "Administrator"
nazwisko = ""
adres = ""
kod00 = ""
kod000 = ""
miasto = ""
login = "admin"
sql="select pass from admin"
set rs=dbc.Execute(sql)
pass = rs("pass")
end if
%>