<%
Option Explicit
Response.Buffer = False
Response.Write "Zapytanie uruchomione"
Dim conn
Dim RSTotalSales
set conn = server.createobject ("adodb.connection")
conn.open "Sales", "sa", "twoje_haslo"
set RSTotalSales = conn.Execute("select Sum(TotalAmount) as 
TotalSales " _
  & "from Sales")
Response.Write RSTotalSales("TotalAmount")
%> 
