Code:
Break On

	If Open(1,'c:\temp\envars.bat') = 0

		$raw_line = Trim(SubStr(Lcase(ReadLine(1)),5))

			While @ERROR = 0

				$var_name = ''
				$var_value = ''


				;provide special handling for LDAP path
				If InStr($raw_line,'CompPath')
					For Each $element in Split($raw_line,'CompPath' + Chr(61))
						$var_name = 'CompPath'
						$var_value = $element
					Next
					GoTo SET_ENVVAR
				EndIf

				For Each $element in Split($raw_line,Chr(61))
					Select
						Case $var_name = '' $var_name = $element
						Case $var_value = '' $var_value = $element
					EndSelect
				Next

				:SET_ENVVAR
				? $var_name + Chr(61) + $var_value
				$var_name = $var_value

				$raw_line = Trim(SubStr(Lcase(ReadLine(1)),5))

			Loop

		Close(1)

	EndIf

? '___________________________________________________________________'

@CRLF

? '$$sitecode='$sitecode
? '$$oldcompname='$oldcompname

Get $

Return

That's my revised code. But lines 30 & 31 don't display the value.

The problem is surely in line 40. Would one of you gurus please help me with the syntax?

Thanks,

Tim ==