<%
    on error resume next
	dim conn
	dim dbpath
   	set conn=server.createobject("adodb.connection")
	DBPath = Server.MapPath("enet.asp")
	conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

	Mypagesize = 6  '每頁顯示留言數

	PassWord = "123456"  '管理密碼

%>