<%
Set adoConnection961 = CreateObject("ADODB.Connection")

With adoConnection961
	.Provider="Microsoft.Jet.OLEDB.4.0"
	.ConnectionString = "D:\willisweb\270AGdbs\14fred1980.mdb"
	.Open
End With

Set adoRecordsetdomain = CreateObject("ADODB.Recordset")
strSQLd = "SELECT domainID, domainname, area FROM tblDomain"
strSQLd = strSQLd & " WHERE domainID <> 20 ORDER BY domainname"
adoRecordsetdomain.open strSQLd, adoConnection961, 0

%>