<% Project="MedCheckList" debugCon = false Dim con_STRING 'con_STRING = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & server.MapPath("juncaceas_only_bgbm.mdb") con_STRING = "dsn=MCL;uid=WebUser;pwd=" 'con_STRING = "dsn=MCLlocal;uid=sa;pwd=sa" Function openRecordset(rs, sql) if (debugCon) Then Response.write ("
ConString: " & con_STRING & "
") Response.write ("
SQL: " & sql & "
") Response.write ("S") End if 'Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con_STRING rs.Source = sql rs.CursorType = 3 rs.CursorLocation = 2 rs.LockType = 1 rs.Open if (debugCon) Then Response.write ("
Count:" & rs.RecordCount & "
") Response.write ("
Err:" & Err.number & "
") Err.Clear Response.write ("
Err:" & Err.number & "
") end if ''''''''''''''XXXXXXXXXXXXXXXXXXXX TODO zuurück Err.Clear End Function Function insertSQL(sqlInsert) ' Setting variables Dim con ' Creating the Connection Object and opening the database Set con = Server.CreateObject("ADODB.Connection") con.Open con_STRING ' Executing the sql code 'Response.Write(sqlInsert) con.execute sqlInsert ' Done. Now Close the connection con.Close Set con = Nothing End Function %>