ส่วนที่ผิดใช้ติดต่อกับฐานข้อมูล ซึ่งจะ include มาใช้อีกที
Dim conn
Function ConnectDB()
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("db/xx.mdb")
If Err.Number = 0 Then
ConnectDB = True
Else
ConnectDB = False
End If
End Function