<%
Option Explicit
Dim conn
Dim RSPageHits
set conn = server.createobject ("adodb.connection")
conn.open "ASPBook", "sa", "twoje_haslo"
set RSPageHits = conn.Execute("select Hits from RSPageHits")
Application("PageHits") = RSPageHits("Hits")
%>
