<%

Set cn = Server.CreateObject("ADODB.Connection")
cn.Open("Provider=SQLOLEDB;Server=
BYZANTIUM;Database=pubs;Trusted_Connection=yes")

Set rs = cn.Execute("select count(*) as 
NumberOfAuthors from authors")
Response.Write "The number of authors 
on BYZANTIUM is " & rs("NumberOfAuthors")

'clean up
rs.Close
cn.Close

set rs = Nothing
set cn = Nothing

%>