<%
Option Explicit
Dim conn
Dim RSResults
set conn = server.createobject ("adodb.connection")
conn.open "IISLog", "sa", "twojehaslo"
conn.commandTimeout = 60
set RSResults = conn.execute ("getStats '" _
  & Request.Form("QueryName") & "', '" & Request.Form("UserName") _
  & "', '" & Request.Form("Grouping") & "'")
Response.Write RSResults("TotalHits")
%>
