<%
Option Explicit
Dim conn
Dim RSTotals
Response.Buffer = False
set conn = server.createobject ("adodb.connection")
conn.open "Sales", "sa", "twoje_haslo"
set RSTotals = conn.Execute("select Sum(Sales) as TotalSales from Sales99")
response.write RSTotals("TotalSales") & "<P>"
If Response.IsClientConnected Then
  set RSTotals = conn.Execute("select Sum(Sales) as TotalSales from Sales98")
  response.write RSTotals("TotalSales") & "<P>"
  If Response.IsClientConnected Then
    set RSTotals = conn.Execute("select Sum(Sales) as TotalSales from Sales97")
      response.write RSTotals("TotalSales") & "<P>"
  End If
End If
%>
