function OpenWithDBProgram(templateID)
{
  var L_NoWSSClient_Text="To export a list, you must have a Windows SharePoint Services-compatible application and Microsoft Internet Explorer 5.0 or greater.";
  var L_ExportDBFail_Text="Export to database failed. To export a list, you must have a Windows SharePoint Services-compatible application.";
  if (browseris.ie5up && browseris.win32)
  {
	  try
	  {
		  var ExpDatabase;
		  ExpDatabase=new ActiveXObject("SharePoint.ExportDatabase");
		  if (!ExpDatabase)
		  {
			  alert(L_NoWSSClient_Text);
			  return;
		  }
		  ExpDatabase.SiteTemplate=templateID;
		  ExpDatabase.SiteUrl=location.href;
		  ExpDatabase.DoExport();
		  ExpDatabase=null;
	  }
	  catch(e)
	  {
		  alert(L_ExportDBFail_Text);
		  return;
	  }
  }
  else
  {
	  alert(L_NoWSSClient_Text);
  }
}