//****************************************************************************************
//****************************************************************************************
//****************************************************************************************
var cnn = null;
var rs = null;

var gSRV = "";
var gUSR = "";
var gPAS = "";

var COREDB = "";
var EVENTDB = "";
var CONN_STR = "";


//****************************************************************************************
//****************************************************************************************
//****************************************************************************************
function OpenConn(db)
{
  var e
  if(cnn == null){
    cnn = new ActiveXObject("ADODB.Connection");
    if(!cnn) {
      alert("Could not create ADADB object!");
      return false;
    }
  }

  cnn.ConnectionTimeout=5 ;
  try {
    cnn.Open(CONN_STR + " Initial Catalog="+db+";");
  }
  catch (e) {
    alert("Could not create connection!");
    return false;
  } 
  return true;
}
//****************************************************************************************
//****************************************************************************************
//****************************************************************************************
function CloseConn()
{
  if(cnn!= null){
    cnn.Close(); 
  }
}
//****************************************************************************************
//****************************************************************************************
//****************************************************************************************
function ExecuteQueryRs(query,db)
{
  if(rs != null) rs.Close();
  else rs = new ActiveXObject("ADODB.RecordSet");
  
  if(OpenConn(db)){
    rs.Open(query,cnn);
    return true;
  }
  rs = null;
  return false;
}
//****************************************************************************************
//****************************************************************************************
//****************************************************************************************
function CloseQueryRS()
{
  try{
    rs.Close();
  }
  catch (e){
  }
  rs = null;
  cnn.Close();
}
//****************************************************************************************
//****************************************************************************************
//****************************************************************************************
function ExecuteQuery(query,rsl)
{
  if(rsl != null) rsl.Close();
  else rsl = new ActiveXObject("ADODB.RecordSet");
  
  rsl.Open(query,cnn);
  return rsl;
}
//****************************************************************************************
//****************************************************************************************
//****************************************************************************************
function CloseQuery(rsl)
{
  try {
    rsl.Close();
  }
  catch (e) {
  }
  rsl = null;
}
//****************************************************************************************
//****************************************************************************************
//****************************************************************************************