【問題】留言板無法正常開啟

[cmos]

　　抱歉，想請教一下，我使用一個支援asp免費的空間，在上面放了四支asp功能的程式，分別為首頁、推薦連結、留言板、討論區，我用這個網站已經一年多了，但是其中的留言板經常會無法使用。
　　無法使用的狀況如下↓
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
無法顯示這個網頁
您嘗試連結的網頁有問題，因此無法顯示。

--------------------------------------------------------------------------------

請嘗試執行下列動作：

按一下 重新整理按鈕，或稍後再試。

開啟 shinher.com 首頁，然後查看您想尋找之資訊的連結。
HTTP 500.100 - 內部伺服器錯誤 - ASP 錯誤
Internet Information Services

--------------------------------------------------------------------------------

技術資訊 (供技術支援人員使用)

錯誤類型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver]一般錯誤 無法開啟登錄鍵 'Temporary (volatile) Jet DSN for process 0x5f8 Thread 0x5c4 DBC 0xe4de66c Jet'。
/user/cmos/message/COUNTER.ASP, line 5


瀏覽器類型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322) Sleipnir/2.5.8

頁數：
GET /user/cmos/message/message.asp

時間：
2008年3月4日, 上午 09:29:11


其他資訊：
Microsoft Support
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
請問這是什麼情況呢？
是不是我這段程式有什麼問題呢？
' ************** 開啟資料檔 ********************************
Set ConnGuestBook = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("GBook.mdb")
ConnGuestBook.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set CmdEditInfo = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT 訪客留言板.* FROM 訪客留言板 WHERE (編號 = " & ID & ")"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = ConnGuestBook
CmdEditInfo.Open cmdTemp, , 0, 1
' ************** 讀取 留言內容 的資料 ********************************
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
謝謝回應哦！！！感謝^^

[阿 土]

是這一支程式吧：
http://shinher.com/user/cmos/message/message.asp

你應該 show 出 COUNTER.ASP , 該程式碼第五行導致出了問題

[cmos]

謝謝站長的回應
您說的show出COUNTER.ASP是什麼意思呢？
以下是COUNTER.ASP的程式碼，是不是那裡出現問題呢？
抱歉，ASP沒學好，謝謝您的指點＾＾

<%
Set ConnCOUNTER = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("COUNTER.MDB")
ConnCOUNTER.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set CmdEditInfo = Server.CreateObject("ADODB.Recordset")
' 上面這一段可不動...
cmdTemp.CommandText = "SELECT * FROM counter"

cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = ConnCOUNTER
CmdEditInfo.Open cmdTemp, , 1, 3

CMDEDITINFO.MoveFirst

LASTIP = CMDEDITINFO("LASTIP")
NEWIP = REQUEST.servervariables("REMOTE_ADDR")
COUNTS = CMDEDITINFO("counts")

IF LASTIP <> NEWIP THEN
COUNTS = COUNTS + 1
CmdEditInfo.Fields("COUNTS") = COUNTS
CmdEditInfo.Fields("LASTIP") = NEWIP
CmdEditInfo.Update
END IF

CONNCOUNTER.CLOSE
%>

<font size="2">人氣指數：<font color="CC0000"><%=COUNTS%></font>
</font>