HTTP 500.100 - 內部伺服器錯誤 - ASP 錯誤

http://p2p.wrox.com/topic.asp?TOPIC_ID=28675

Your code is correct if it is written as follows:
<%
Dim conn' Connection string
conn = "provider=microsoft.jet.oledb.4.0; data source=" & server.MapPath("private.mdb")

Dim rs, sql
Set rs = server.CreateObject("ADODB.RECORDSET")

sql = "select p_id, p_name, p_isOnline, p_state from tb_person
rs.open sql,conn,0,1
%>

0x80004005 is an unspecifed error. When used with Access database, the most common cause is that the IIS user account does not have the Modify permission to the folder where your database is located. When an Access database is opened or modified, an .ldb file (Access lock file) is created. When the IIS user account does not have the right to create the file in the folder, 0x80004005 error is the result.

Solution is to give the IIS user account, account name is iusr_servername by default, read, write and modify permission to the database folder. Also make sure that the .mdb file is not set to Open Exclusively.