<%
Set OBJdbConnection = 
Server.CreateObject("ADODB.Connection")
    OBJdbConnection.Open "Uzytkownicy"
    SQLQuery = "Select iduzytkownika, imie, nazwisko FROM uzytkownicy"
Set qPobierzUzytkownikow = OBJdbConnection.Execute(SQLQuery)
Do Until qPobierzUzytkownikow.EOF
    Response.Write ("<A HREF=""uzytkownik.cfm?id=" &
        qPobierzUzytkownikow("userid") & """>" & qPobierzUzytkownikow("imie") &
        " " & qPobierzUzytkownikow("nazwisko") & "</A><BR>")
    qPobierzUzytkownikow.MoveNext
Loop
%>
