<%
Option Explicit
Dim Conn
Dim Cmd1
Dim RSResults
Dim Param1
Dim Param2
Dim Param3
set conn = server.createobject ("adodb.connection")
conn.open "IISLog", "sa", "twojehaslo"
conn.commandTimeout = 60
Set Cmd1= Server.CreateObject("ADODB.Command")
Cmd1.CommandText = "getStats" 
Cmd1.CommandType = 4
Set Param1 = Cmd1.CreateParameter("QueryName", 129, 1)
Cmd1.Parameters.Append Param1
Param1.Value = Request.Form("QueryName")
Set Param2 = Cmd1.CreateParameter("UserName", 129, 1)
Cmd1.Parameters.Append Param2
Param2.Value = Request.Form("UserName")
Set Param3 = Cmd1.CreateParameter("Grouping", 3, 1)
Cmd1.Parameters.Append Param3
Param3.Value = Request.Form("Grouping")
Set Cmd1.ActiveConnection = conn
set RSResults = Cmd1.Execute
Response.Write RSResults("TotalHits")
%>
