function VBSFILES_onClick(form)
	Const ForWriting = 2
	Const ForAppending = 8
	Const fd = ","
	Const rowd = "~"
	fieldCap = cappy
	fieldCappy = document.getElementById("di1").innerText
	fieldCount = document.getElementById("di2").innerText
	fieldReCount = document.getElementById("rv2").innerText
	headLiner = document.getElementById("di0").innerText
	sis = sissy
	mis = missy
	castingSafety = "CAST"

'GENERAL ELECTIONS END RESULTS FILE
 Set VMObject = CreateObject("Scripting.FileSystemObject")
 Set VMER = VMObject.OpenTextFile("http://www.thinkarchives.com/ENDR.txt" , ForWriting)
'Set VMER = VMObject.CreateTextFile(diskIDed+":\Users\Shari\OneDrive\IBMThink2023\ENDR.txt", ForWriting)
'Set VMER = VMObject.OpenTextFile("http://www.ICElections.com/ENDR.txt" , ForWriting)
	VMER.writeLine "General Elections Clouds 2023" 
	VMER.Close

'VM10 CONTROLS FILE
 Set VMObject = CreateObject("Scripting.FileSystemObject")
 Set VMCV = VMObject.OpenTextFile("http://www.thinkarchives.com/VMIUK.txt" , ForWriting)
  'Set VMCV = VMObject.CreateTextFile(diskIDed+":\Users\Shari\OneDrive\IBMThink2023\VMIUK.txt", ForWriting)
  'Set VMCV = VMObject.OpenTextFile("http://www.ICElections.com/VMIUK.txt" , ForWriting)
	VMCV.writeLine capt 	'sis + fd + mis + fd + headLiner + fd + fieldCappy + fd
	VMCV.Close

'THIS VOTING MACHINES BALLOT FILE
 Set VMObject = CreateObject("Scripting.FileSystemObject")
 Set VMBF = VMObject.OpenTextFile("http://www.ICElections.com/VMBF.txt" , ForWriting)	
  'Set VMBF = VMObject.CreateTextFile(diskIDed+":\Users\Shari\OneDrive\IBMThink2023\VMBF.txt", ForWriting)
  'Set VMBF = VMObject.OpenTextFile("http://www.ICElections.com/VMBF.txt" , ForWriting)
	VMBF.writeLine  'bally 	'sis + fd + mis + fd + headLiner + fd + fieldCappy + fd
	VMBF.Close

'VM10 BALLOTS FILE
 Set VMObject = CreateObject("Scripting.FileSystemObject")
 Set VMCBSDF = VMObject.OpenTextFile("http://www.thinkarchives.com/VMCBS.txt" , ForWriting)
  'Set VMCBSDF = VMObject.CreateTextFile(diskIDed+":\Users\Shari\OneDrive\IBMThink2023\VMCBS.txt", ForWriting)
  'Set VMCBSDF = VMObject.OpenTextFile("http://www.ICElections.com/VMCBS.txt" , ForWriting)
	VMCBSDF.writeLine "General Elections Clouds 2023"
	VMCBSDF.Close

'CAST BALLOTS COUNTER FILE
 Set VMObject = CreateObject("Scripting.FileSystemObject")
 Set VMCDF = VMObject.OpenTextFile("http://www.thinkarchives.com/VMCF.txt" , ForWriting)
  'Set VMCDF = VMObject.CreateTextFile(diskIDed+":\Users\Shari\OneDrive\IBMThink2023\VMCF.txt", ForWriting)
  'Set VMCDF = VMObject.OpenTextFile("http://www.ICElections.com/VMCF.txt" , ForWriting)
	VMCDF.writeLine "General Elections Clouds vm10 2023"
	VMCDF.Close

'THE KOUNTER FILE
 Set VMObject = CreateObject("Scripting.FileSystemObject")
 Set VMKDF = VMObject.OpenTextFile("http://www.thinkarchives.com/VMKF.txt" , ForWriting)
  'Set VMKDF = VMObject.CreateTextFile(diskIDed+":\Users\Shari\OneDrive\IBMThink2023\VMKF.txt", ForWriting)
  'Set VMKDF = VMObject.OpenTextFile("http://www.ICElections.com/VMKF.txt" , ForWriting)
	VMKDF.writeLine headLiner
	VMKDF.Close

'ISSUES FILE
 Set VMObject = CreateObject("Scripting.FileSystemObject")
 Set VMIF = VMObject.OpenTextFile("http://www.thinkarchives.com/VMIF.txt" , ForWriting)
  'Set VMIF = VMObject.CreateTextFile(diskIDed+":\Users\Shari\OneDrive\IBMThink2023\VMIF.txt", ForWriting)
  'Set VMIF = VMObject.OpenTextFile("http://www.ICElections.com/VMIF.txt" , ForWriting)
	VMIF.writeLine POSEDISSUES
	VMIF.Close

'VOTER REGISTRATION FILE
 Set VMObject = CreateObject("Scripting.FileSystemObject")
 Set VMCU = VMObject.OpenTextFile("http://www.thinkarchives.com/VMIUN.txt" , ForWriting)
  'Set VMCU = VMObject.CreateTextFile(diskIDed+":\Users\Shari\OneDrive\IBMThink2023\VMIUN.txt", ForWriting)
  'Set VMCU = VMObject.OpenTextFile("http://www.ICElections.com/VMIUN.txt" , ForWriting)
	'VMCU.writeLine headLiner 
	'VMCU.Close
end function

function UN_onClick(form) 
	Const ForWriting = 2
	Const ForAppending = 8
	Const fd = ","
	Const rowd = "~"					
  Set VMObject = CreateObject("Scripting.FileSystemObject")
  Set VMCU = VMObject.OpenTextFile("http://www.thinkarchives.com/VMIUN.txt" , ForAppending)	  
  'Set VMCU = VMObject.OpenTextFile(diskIDed+":\Users\Shari\OneDrive\IBMThink2023\VMIUN.txt", ForAppending)
  'Set VMCU = VMObject.OpenTextFile("http://www.ICElections.com/VMIUN.txt" , ForAppending)	
	VMCU.writeLine RVRecords + fd	'natt + fd + zatt + fd
	VMCU.Close
end function

function UK_onClick(form)
	Const ForWriting = 2
	Const ForAppending = 8
	Const fd = ","
	Const rowd = "~"
	headLiner = document.getElementById("di0").innerText
	fieldCappy = document.getElementById("di1").innerText
  Set VMObject = CreateObject("Scripting.FileSystemObject")
  Set VMCV = VMObject.OpenTextFile("http://www.thinkarchives.com/VMIUK.txt" , ForWriting) 
  'Set VMCV = VMObject.OpenTextFile(diskIDed+":\Users\Shari\OneDrive\IBMThink2023\VMIUK.txt", ForWriting)
  'Set VMCV = VMObject.OpenTextFile("http://www.ICElections.com/VMIUK.txt" , ForWriting)
	VMCV.writeLine  capt		'sis + fd + mis + fd + headLiner + fd + fieldCappy + fd
	VMCV.Close
end function

function CASTBALLOTS_onClick(form)
	Const ForWriting = 2
	Const ForAppending = 8
	Const fd = ","
	Const rowd = "~"
	fieldCappy = document.getElementById("di1").innerText
	ctag = "</CBS> " + "</xml>"
  Set VMObject = CreateObject("Scripting.FileSystemObject")
  Set VMCBSDF = VMObject.OpenTextFile("http://www.thinkarchives.com/VMCBS.txt" , ForAppending)  
  'Set VMCBSDF = VMObject.OpenTextFile(diskIDed+":\Users\Shari\OneDrive\IBMThink2023\VMCBS.txt", ForAppending)
  'Set VMCBSDF = VMObject.OpenTextFile("http://www.ICElections.com/VMCBS.txt" , ForAppending)
	VMCBSDF.writeLine rowd + enBally  	'BCRecords 	'rowd + VoterC 'enBally 'recountBallots
	VMCBSDF.Close
end function

function COUNTERFILES_onClick(form)
	Const ForWriting = 2
	Const ForAppending = 8
	Const fd = ","
	Const rowd = "~"
  Set VMObject = CreateObject("Scripting.FileSystemObject")
  Set VMCDF = VMObject.OpenTextFile("http://www.thinkarchives.com/VMCF.txt" , ForAppending)  
  'Set VMCDF = VMObject.OpenTextFile(diskIDed+":\Users\Shari\OneDrive\IBMThink2023\VMCF.txt", ForAppending)
  'Set VMCDF = VMObject.OpenTextFile("http://www.ICElections.com/VMCF.txt" , ForAppending)
	VMCDF.writeLine enCount 	'VoterC + fd 	'BCRecords 	'enCount	'rowd + enCount
	VMCDF.Close
end function

function KOUNTERFILES_onClick(form)
	Const ForWriting = 2
	Const ForAppending = 8
	Const fd = ","
	Const rowd = "~"
  Set VMObject = CreateObject("Scripting.FileSystemObject")
  Set VMKDF = VMObject.OpenTextFile("http://www.thinkarchives.com/VMKF.txt" , ForAppending)  
  'Set VMKDF = VMObject.OpenTextFile(diskIDed+":\Users\Shari\OneDrive\IBMThink2023\VMKF.txt", ForAppending)
  'Set VMKDF = VMObject.OpenTextFile("http://www.ICElections.com/VMKF.txt" , ForAppending)
	VMKDF.writeLine county
	VMKDF.Close
end function

function ISSUESINFO_onClick(form)	
	Const ForWriting = 2
	Const ForAppending = 8
	Const fd = ","
	Const rowd = "~"
  Set VMObject = CreateObject("Scripting.FileSystemObject")
  Set VMIF = VMObject.OpenTextFile("http://www.thinkarchives.com/VMIF.txt" , ForWriting) 
  'Set VMIF = VMObject.OpenTextFile(diskIDed+":\Users\Shari\OneDrive\IBMThink2023\VMIF.txt", ForWriting)
  'Set VMIF = VMObject.OpenTextFile("http://www.ICElections.com/VMIF.txt" , ForWriting)
	VMIF.writeLine POSEDISSUES
	VMIF.Close

   'VMObject = CreateObject("Scripting.FileSystemObject")
  'Set VMIDF = VMObject.OpenTextFile(diskIDed+":\Users\Shari\OneDrive\IBMThink2023\VMIF.txt", ForWriting)
  'Set VMIDF = VMObject.OpenTextFile("http://www.ICElections.com/VMIF.txt" , ForWriting)
	'VMIDF.writeLine POSED(k) + fd
	'VMIDF.Close
end function

function BALLOTFILES_onClick(form)
	Const ForWriting = 2
	Const ForAppending = 8
	Const fd = ","
	Const rowd = "~"		
  Set VMObject = CreateObject("Scripting.FileSystemObject")
  Set VMBF = VMObject.OpenTextFile("http://www.thinkarchives.com/VMBF.txt" , ForWriting)  
  'Set VMBF = VMObject.OpenTextFile(diskIDed+":\Users\Shari\OneDrive\IBMThink2023\VMBF.txt", ForWriting)
  'Set VMBF = VMObject.OpenTextFile("http://www.ICElections.com/VMBF.txt" , ForWriting)
  	VMBF.writeLine bally
	VMBF.Close
end function

function ENDR_onClick(form)
	Const ForWriting = 2
	Const ForAppending = 8
	Const fd = ","
	Const rowd = "~"		
  Set VMObject = CreateObject("Scripting.FileSystemObject")
  Set VMCBF = VMObject.OpenTextFile("http://www.thinkarchives.com/ENDR.txt" , ForWriting)  
  'Set VMCBF = VMObject.OpenTextFile(diskIDed+":\Users\Shari\OneDrive\IBMThink2023\ENDR.txt", ForWriting)
  'Set VMCBF = VMObject.OpenTextFile("http://www.ICElections.com/ENDR.txt" , ForWriting)
  	VMCBF.writeLine BCRecords
	VMCBF.Close
end function