<%
Option Explicit
Dim RSUser
Sconn.open "ASPBook", "sa", "twoje_haslo"
set RSUser = Sconn.Execute("select * from Users")
%>
