<% Dim IsLogin IsLogin = Session("status") if IsLogin<>1 then response.redirect("login.asp?login=no") end if Dim admin admin = Session("admin") %> Akapity
<% Dim lp Dim typ Dim sql sql = "select * from marka order by marka" set rs=dbc.Execute(sql) lp = 1 while not rs.eof %> <% rs.MoveNext lp = lp + 1 wend %>
Lista marek ()
"> <%response.write lp%> . "> <%response.write rs("marka")%> "> edycja ">usuń