<% '******** Open the database ***************************************************** UseSQLServer = "NO" 'Set to YES if you are using SQL Server instead of MS Access Dim dbc Dim strConn If UseSQLServer = "YES" then '---- SQL Connection String ----------------------------------------------------------- strConn = "Driver={SQL Server};Server=(local);Database=calendar3;UID=admin;PWD=password" Set dbc = Server.CreateObject("ADODB.Connection") dbc.open strConn Else '------- Access Connection String ----------------------------------------------------- strConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("calendar.mdb") Set dbc = Server.CreateObject("ADODB.Connection") dbc.open strConn '------- Access Connection USING DSN -------------------------------------------------- 'Set dbc = Server.CreateObject("ADODB.Connection") 'dbc.open "DSN=calendar3" End If %>