قاعدة بيانات قوانين الحجر البيطري في الدول العربية
<%set conn=server.createObject("Adodb.connection")
strdsn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Quaratine.mdb")
conn.open strdsn
set rscountry=server.createobject("Adodb.recordset")
set rsfield=server.createobject("Adodb.recordset")
set rslawtype=server.createobject("Adodb.recordset")
sqllawtype="select * from Lawtypes"
rslawtype.open sqllawtype,conn,1
sqlcountry="select * from Tbl_Countries"
sqlfield="select * from Fields order by field"
rscountry.open sqlcountry,conn,1
rsfield.open sqlfield,conn,1%>