access數據庫與asp連接的代碼是怎樣？

set con = Server.CreateObject("adodb.connection")

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/design.mdb")

con.open connstr

'-----------下以是網站全站信息-----------

set res=server.CreateObject("adodb.recordset")

sql="select * from company"

res.open sql,con,1,1

if not res.eof then

dim web_name,web_address,web_url,web_tel,web_fax,web_email

web_name=res("web_name") '網站名稱

web_address=res("web_address") '公司地址

web_url=res("web_url") '公司網址

web_tel=res("web_tel") '公司電話

web_fax=res("web_fax") '公司傳真

web_email=res("web_email") '公司郵箱

end if

res.close

%>