Sub aitc_radio_swap(name1, value1)
	Set im=eval("document.all." & name1)
	aitc_radio_check im.name
	a = len(im.name)
	if left(im.id,a) = im.name Then 
		 if right(im.src,6) = "rb.gif" then 
		 	im.src ="/TPM/images/rb_checked.gif"
			Set bttval=eval("document.all." & name1 & "_h")
			bttval.value = value1
		else im.src = "/TPM/images/rb.gif"
		End if 
	end if
End Sub

Sub aitc_radio_over(name1)
	Set im=eval("document.all." & name1)
	a = len(im.name)
	if left(im.id,a) = im.name Then 
		 if right(im.src,6) = "rb.gif" or  right(im.src,6) = "er.gif" then
			im.src ="/TPM/images/rb_hover.gif"
			im.style.cursor = "hand"
		else 
		im.src = "/TPM/images/rb_hover_checked.gif"
		End if 
	end if
End Sub

Sub aitc_radio_out(name1)
	Set im=eval("document.all." & name1)
	a = len(im.name)
	if left(im.id,a) = im.name Then 
		 if right(im.src,12) = "rb_hover.gif" or right(im.src,6) = "rb.gif" then 
		 	im.src ="/TPM/images/rb.gif"
		else 
		im.src = "/TPM/images/rb_checked.gif"
		End if 
	end if
End Sub

Dim aitc_chooser_focusvalue
function aitc_chooser_key(value1, fld)
	if aitc_chooser_focusvalue = "-1" then
		aitc_chooser_key = False
	elseif ucase(aitc_chooser_focusvalue) <> ucase(value1) Then 
		if fld.value ="" then
			Set ab=eval("document.all." & left(fld.name,len(fld.name)-8))
			ab.value=""
		else
			aitc_chooser_key = True
			wqw = aitc_chooser_focusvalue
		end if
	else  aitc_chooser_key = False
	end if
end function

function Command1_Click (value1, cid, name)
  if value1 <>"" Then
	Dim a ,c, b(2)
	if left(cid, 4) = "user" Then
		cid = right(cid,len(cid)-5)
		src="/TPM/includes/aitc_chooser_USER_check.asp?value1="+escape(value1)+"&field_value="+escape(cid)
	elseif len(cid) > 10 Then
		src="/TPM/includes/aitc_chooser_SELECT_check.asp?value1="+escape(value1)+"&field_value="+escape(cid)
	else
		src = "/TPM/includes/aitc_chooser_valuelist_check.asp?value="&escape(value1)&"&cid="&cid
	end if
	a = dinamic_load_valuelist (src)
	c = Instr(1, a, ",", 1)
	if c > 0 Then
		b(1) = Left(a,c-1)
		b(2) = Right(a,len(a)-c)
		Set field=eval("document.all." & name & "_display")
		field.value = b(2)
		Set field=eval("document.all." & name)
		field.value = b(1)
		'if value1 <> b(2) Then 
		Command1_Click = true 
		'else Command1_Click = false
	else
		Set field=eval("document.all." & name & "_td1")
		field.click()
		Command1_Click = false
	end if
  else
	Set field=eval("document.all." & name)
	field.value = ""
	Command1_Click = false
  end if
End function

	function aitc_chooser_get_fields(fld)
		dim txt, fld_array1
		fld_array1 = Split(fld,"|",-1,1)
		if ubound(fld_array1) = 0 Then 
			aitc_chooser_get_fields = eval(fld)
		else 
			for i = 0 to ubound(fld_array1)
				if txt = "" Then 
					txt = eval(fld_array1(i))
					if txt = "" Then txt = "%"
				else txt = txt & "|" & eval(fld_array1(i))
				end if
			next
			aitc_chooser_get_fields = txt
		end if
	end function

function aitc_chooser_onKeyDown(hiddName,selectFieldValue)
	dim dispField, hiddenField
	set dispField = eval("document.all." & hiddName & "_display")
	set hiddenField = eval("document.all." & hiddName)
	if not isnumeric(selectFieldValue) then selectFieldValue = eval("document.all." & hiddName & "_h").value
	if window.event.keyCode=13 then 
		Command1_Click  dispField.value, selectFieldValue, hiddName
	elseif window.event.keyCode=27 then
		dispField.value = ""
		hiddenField.value = ""
	elseif window.event.keyCode=40 then 
		aitc_chooser_blur=1
		eval("document.all."&hiddName&"_td1").click()
	end if
end function

function aitc_chooser_onBlur(dispName, hiddName, tdName)
	dim dispField, hiddenField, selectField
	set dispField = eval("document.all." & dispName)
	set hiddenField = eval("document.all." & hiddName)
	set selectField = eval("document.all." & hiddName & "_h")
	if Command1_Click(dispField.value, selectField.value, hiddName) or len(dispField.value)<1 then 
		aitc_edit_onBlur hiddName, tdName
	end if
end function

function aitc_chooser_onFocus(dispName, hiddName, tdName)
	dim dispField
	on error resume next
	set dispField = eval("document.all." & dispName)
	aitc_edit_onFocus hiddName,tdName
	aitc_chooser_focusvalue = dispField.value
end function

function aitc_chooser_replaceQuote(val)
	val = replace(val,"½","""")
	val = replace(val,"`","'")
	aitc_chooser_replaceQuote = val
end function