المشكلة الأولى
Data Source= ../database/Calendar.mdb
عنوان الملف لازم يكون كامل ، الأختصار ماينفع
لتعديل الكود أستعمل دالة Server.MapPath لأيجاد عنوان الملف الكامل
هكذا
كود:
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= " & Server.MapPath("../database/Calendar.mdb" )
المشكلة الثانية
كود:
rs.open sSQL, Conn,3,3
أين كائن الربط بقاعدة البيانات Conn ؟؟؟
للتعديل
كود:
Function GetCellData(dDay)
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
sSQL = "Select * from CalendarInfo where Date=#" & dDay & "#"
Conn.Open strConn,strLogin,strPassword
rs.open sSQL, Conn,3,3
GetCellData = ""
if rs.recordcount > 0 then GetCellData=rs("memo")
rs.close
Conn.close
Set rs = nothing
Set Conn = nothing
End Function