<% Dim rs, connStr, Count, strSql Set rs = Server.CreateObject("ADODB.Recordset") connStr = Session("DSN") strSql = "select * from tblDogs" rs.open strSql,connStr,1,1 with rs .movefirst .movelast Count = .recordcount .close end with set rs=nothing %> Border Collie DBS
 

 

 

If you would like to add details of your own dogs please email their details / pedigree to bcdbs@dr50.com

There are currently <%=Count%> dogs in the Database

16 January, 2004