<%
dim connstr,conn,sql,rs
connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("demo.mdb")
set conn=server.createobject("ADODB.Connection")
conn.open connstr
if err then
	response.write "數據庫連接錯誤!"
	set conn=nothing
	response.end
end if
%>