Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Buoni-spesa-OLD\include\aspfunctions.asp</i><br><form method=post action="edit.asp?action=save&dir=\Buoni-spesa-OLD\include&file=aspfunctions.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;%
crlf = chr(13) &amp; chr(10)

function StrWhere(strField, psSearchFor, strSearchOption, psSearchFor2, sSearchType)


	
	if Request.Form(&quot;NeedQuotes&quot; &amp; BuildFieldName(strField))=&quot;&quot; then 
		bNeedQ = IfNeedQuotes(GetFieldType(strTableName, strField))
	else
		if Request.Form(&quot;NeedQuotes&quot; &amp; BuildFieldName(strField)) = &quot;True&quot; then
			bNeedQ = true 
		else
			bNeedQ = false
		end if
	end if
	
	StrWhere = PrepareSearchField(strField, strSearchOption) &amp; &quot; &quot;

	if bNeedQ and not IsDateFieldType(GetFieldType(strTableName, strField)) and IsSortableField(GetFieldType(strTableName, strField)) then
		StrWhere = DBUpper(StrWhere)
	end if

	sSearchFor=Replace(psSearchFor,&quot;'&quot;,&quot;''&quot;)
	sSearchFor2=Replace(psSearchFor2,&quot;'&quot;,&quot;''&quot;)	
	
	strQuote1 = &quot;'&quot;
	strQuote2 = &quot;'&quot;

	' date fields
	if IsDateFieldType(GetFieldType(strTableName, strField)) then 
		if GetDatabaseType() = DATABASE_Access or InStr(1, strConnection, &quot;dBase Driver&quot;) &gt; 0 then
				strQuote1=&quot;#&quot;
				strQuote2=&quot;#&quot;
		elseif InStr(1, strConnection, &quot;*.dbf&quot;) &gt; 0 then
				strQuote1=&quot;{&quot;
				strQuote2=&quot;}&quot;
		end if
		
		if sSearchType = &quot;Basic&quot; then
			if IsDate(sSearchFor) then
				sSearchFor = CDate(sSearchFor)
				sSearchFor = Year(sSearchFor) &amp; &quot;-&quot; &amp; iif(Month(sSearchFor)&lt;10, &quot;0&quot;, &quot;&quot;) &amp; Month(sSearchFor) &amp; &quot;-&quot; &amp; iif(Day(sSearchFor)&lt;10, &quot;0&quot;, &quot;&quot;) &amp; Day(sSearchFor)
				
			else
				if strSearchOption&lt;&gt;&quot;Contains&quot; and strSearchOption&lt;&gt;&quot;Starts with ...&quot; and strSearchOption&lt;&gt;&quot;IsNull&quot; then
					StrWhere = &quot;&quot;
					Exit Function			
				end if
			end if
		
		else
			
			' check parameters to be valid date values
			DateFormat = DateEditType(strField)
			if FormatDbDate(sSearchFor, DateFormat)&lt;&gt;&quot;&quot; and (sSearchFor2=&quot;&quot; or sSearchFor2=&quot;0-0-0&quot; or FormatDbDate(sSearchFor2, DateFormat)&lt;&gt;&quot;&quot;) then
				sSearchFor = FormatDbDate(sSearchFor, DateFormat)  
				sSearchFor2 = FormatDbDate(sSearchFor2, DateFormat)  
			else
				if strSearchOption&lt;&gt;&quot;Contains&quot; and strSearchOption&lt;&gt;&quot;Starts with ...&quot; and strSearchOption&lt;&gt;&quot;IsNull&quot; then
					StrWhere = &quot;&quot;
					Exit Function
				end if
			end if

		
		end if
		if strSearchOption&lt;&gt;&quot;Contains&quot; and strSearchOption&lt;&gt;&quot;Starts with ...&quot; then
			sSearchFor = strQuote1 &amp; sSearchFor &amp; strQuote2
			sSearchFor2 = strQuote1 &amp; sSearchFor2 &amp; strQuote2
		end if
		
	end if

' IMAGE/TEXT/NTEXT fields
	if not IsSortableField(GetFieldType(strTableName, strField)) and strSearchOption&lt;&gt;&quot;IsNull&quot; and _
		strSearchOption&lt;&gt;&quot;Contains&quot; and strSearchOption&lt;&gt;&quot;Starts with ...&quot; then			
			StrWhere = &quot;&quot;
			Exit Function	
	end if



	if bNeedQ and strSearchOption&lt;&gt;&quot;Contains&quot; and strSearchOption&lt;&gt;&quot;Starts with ...&quot; and not IsDateFieldType(GetFieldType(strTableName, strField)) then
		sSearchFor=DBUpper(strQuote1 &amp; Replace(sSearchFor,&quot;'&quot;,&quot;''&quot;) &amp; strQuote2) 
		sSearchFor2=DBUpper(strQuote1 &amp; Replace(sSearchFor2,&quot;'&quot;,&quot;''&quot;) &amp; strQuote2) 
	end if
	if not bNeedQ and strSearchOption&lt;&gt;&quot;Contains&quot; and strSearchOption&lt;&gt;&quot;Starts with ...&quot; then
		sSearchFor= CStr(CSmartDbl(sSearchFor)) 
		if sSearchFor2&lt;&gt;&quot;&quot; then sSearchFor2= CStr(CSmartDbl(sSearchFor2)) end if
	end if

	Select Case strSearchOption
	      Case &quot;Contains&quot;			StrWhere = StrWhere &amp;  &quot; like &quot; &amp; DbUpper( &quot;'%&quot; &amp; sSearchFor &amp; &quot;%'&quot;)
	      Case &quot;Equals&quot;			StrWhere = StrWhere &amp;  &quot;=&quot; &amp; sSearchFor 
	      Case &quot;Starts with ...&quot;		StrWhere = StrWhere &amp;  &quot; like &quot; &amp; DbUpper( &quot;'&quot; &amp; sSearchFor &amp; &quot;%'&quot; )
	      Case &quot;More than ...&quot;		StrWhere = StrWhere &amp;  &quot;&gt;&quot; &amp; sSearchFor
	      Case &quot;Less than ...&quot;		StrWhere = StrWhere &amp;  &quot;&lt;&quot; &amp; sSearchFor
	      Case &quot;Equal or more than ...&quot;	StrWhere = StrWhere &amp;  &quot;&gt;=&quot; &amp; sSearchFor
	      Case &quot;Equal or less than ...&quot;	StrWhere = StrWhere &amp;  &quot;&lt;=&quot; &amp; sSearchFor
	      Case &quot;Between&quot; 
	      		StrWhere = StrWhere &amp;  &quot;&gt;=&quot; &amp; sSearchFor 
	      		if sSearchFor2&lt;&gt;&quot;&quot; then  StrWhere = StrWhere &amp; &quot; and &quot; &amp; GetFullFieldName(strTableName,strField) &amp; &quot;&lt;=&quot; &amp; sSearchFor2
	      Case &quot;IsNull&quot;
			StrWhere = StrWhere &amp; &quot; is null &quot;
			if bNeedQ and not IsDateFieldType(GetFieldType(strTableName, strField)) and IsSortableField(GetFieldType(strTableName, strField)) then 
				StrWhere = StrWhere &amp; &quot; or &quot; &amp; PrepareSearchField(strField, strSearchOption) &amp; &quot;=''&quot;
			end if
			strWhere = &quot; (&quot; &amp; strWhere &amp; &quot;) &quot;
	End Select

end function


Function PrepareSearchField(strField, strSearchOption)

PrepareSearchField = GetFullFieldName(strTableName,strField)

if IsMoneyField(GetFieldType(strTableName, strField)) and _ 
	(strSearchOption=&quot;Contains&quot; or strSearchOption=&quot;Starts with ...&quot;) then
		PrepareSearchField = &quot;CAST(&quot; &amp; PrepareSearchField &amp; &quot; AS VARCHAR(20))&quot;
end if

End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function IsDateFieldType(nType)

	if nType=7 or nType=133 or nType=134 or nType=135 then 
		IsDateFieldType = True
	else
		IsDateFieldType = False
	end if

end function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function IsGUIDField(nType)

	if nType=72 then 
		return True
	else
		return False
	end if

end function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

function IsBinaryField(Field)

if (Field.Attributes and 128) and ( Field.Type = 204 or Field.Type = 205 ) then
	IsBinaryField = True
else
	IsBinaryField = False
end if

End Function

Function IsFloat(nType)

	IsFloat = false
	if nType=14 or nType=5 or nType=131 then IsFloat=true end if

End Function

function IsSortableField(nType)

if nType = 128 or nType = 201 or (nType&gt;=203 and nType &lt;= 205) then
	IsSortableField = False
else
	IsSortableField = True
end if

End Function

Function IsMoneyField(nType)
	if GetDatabaseType()=DATABASE_MSSQLServer and nType = 14 then
		IsMoneyField = True
	else
		IsMoneyField = False	
	end if

End Function


function GetData(Field, Format)

' long binary data?
if IsBinaryField(Field) then
	GetData = &quot;LONG BINARY DATA - CANNOT BE DISPLAYED&quot; 
elseif Field.Type = 11 then
	if IsNull(Field.Value) then
		GetData=&quot;No&quot;
	else
		if Field.Value = &quot;True&quot; or CLng(Field.Value)&lt;&gt;0 then 
			GetData = &quot;Yes&quot;
		else 
			GetData = &quot;No&quot;
		end if
	end if
else 
	if Field.Type &lt;&gt; 205 then
            if Field.Type=19 then
            	GetData = CLng(Field.Value)
            else
            	GetData = Field.Value 
            end if
	end if
end if

if isnull(GetData) then 
  GetData=&quot;&quot;
else
  GetData=CStr(GetData)
end if

if Format = FORMAT_DATE_SHORT	and GetData&lt;&gt;&quot;&quot; _ 
	then GetData = FormatDateTime(GetData,2) 
if Format = FORMAT_DATE_LONG	and GetData&lt;&gt;&quot;&quot; _ 
	then GetData = FormatDateTime(GetData,1) 
if Format = FORMAT_DATE_TIME	and GetData&lt;&gt;&quot;&quot; _ 
	then GetData = FormatDateTime(GetData,0)
if Format = FORMAT_CURRENCY and GetData&lt;&gt;&quot;&quot; _ 
 	then GetData = FormatCurrency(GetData)
if Format = FORMAT_PERCENT and GetData&lt;&gt;&quot;&quot; and IsNumeric(GetData) _ 
 	then GetData = CDBL(GetData)*100 &amp; &quot;%&quot;
if Format = FORMAT_NUMBER and GetData&lt;&gt;&quot;&quot; and IsNumeric(GetData) _ 
 	then GetData = FormatNumber(CDbl(GetData), 2)
if Format = FORMAT_CHECKBOX then 
	checked=&quot;no&quot;
	if LCase(GetData)=&quot;yes&quot; or (IsNumeric(GetData) and GetData&lt;&gt;&quot;0&quot;) or LCase(GetData)=&quot;true&quot; or LCase(GetData)=&quot;on&quot; then checked=&quot;yes&quot;
	GetData = &quot;&lt;img src=&quot;&quot;images/check_&quot; &amp; checked &amp; &quot;.gif&quot;&quot; border=0&gt;&quot;
end if
if Format = FORMAT_PHONE_NUMBER and GetData&lt;&gt;&quot;&quot; then
 	if Len(GetData)=7 then
		GetData = Left(GetData,3) &amp; &quot;-&quot; &amp; Mid(GetData, 4)
	elseif Len(GetData)=10 then
		GetData = &quot;(&quot; &amp; Left(GetData,3) &amp; &quot;) &quot; &amp; Mid(GetData, 4, 3) &amp; &quot;-&quot; &amp; Mid(GetData, 7)	
	end if
end if

' file-based image
if Format = FORMAT_FILE_IMAGE	then 

	if IsSafeImageExt(GetData) then
		GetData = &quot;&lt;img src=&quot;&quot;&quot; &amp; AddLinkPrefix(strTableName, Field.Name,GetData) &amp; &quot;&quot;&quot; border=0&gt;&quot;
	else
		GetData = &quot;&quot;
	end if

end if	

' document download
if Format = FORMAT_FILE	then 

	if isObject(rs) then
		key=&quot;&quot;
		if strKeyField&lt;&gt;&quot;&quot; then key = GetData(rs.Fields(strKeyField), &quot;&quot;)
		key2=&quot;&quot;
		if strKeyField2&lt;&gt;&quot;&quot; then key2 = GetData(rs.Fields(strKeyField2), &quot;&quot;)
		key3=&quot;&quot;
		if strKeyField3&lt;&gt;&quot;&quot; then key3 = GetData(rs.Fields(strKeyField3), &quot;&quot;)

		strImageWhere = &quot; &quot; &amp; KeyWhere(key,key2,key3)
		GetData = &quot;&lt;a href=&quot;&quot;##SHORTTABLENAME##_download.asp?fieldname=&quot; &amp; _ 
			Server.URLEncode(Field.Name) &amp; &quot;&amp;where=&quot; &amp; Server.URLEncode(strImageWhere) &amp; &quot;&quot;&quot;&gt;&quot; &amp; GetData &amp; &quot;&lt;/a&gt;&quot;
	else
		' master table case
		strImageWhere = &quot; &quot; &amp; GetFullFieldName(&quot;##MASTERTABLENAME##&quot;,&quot;##MASTERKEY##&quot;) &amp; &quot;=&quot; &amp; Request(&quot;masterkey&quot;)
		GetData = &quot;&lt;a href=&quot;&quot;##MASTERTABLEURL##_download.asp?fieldname=&quot; &amp; _ 
			Server.URLEncode(Field.Name) &amp; &quot;&amp;where=&quot; &amp; Server.URLEncode(strImageWhere) &amp; &quot;&quot;&quot;&gt;&quot; &amp; GetData &amp; &quot;&lt;/a&gt;&quot;
	end if	
			
end if
	
' hyperlink

if ((Field.Type=203 and Right(GetData,1)=&quot;#&quot;) and Format&lt;&gt;FORMAT_NONE ) _
	or Format = FORMAT_HYPERLINK	then

	str = GetData
	if isObject(rs) then
		GetData = GetHyperlink(rs, str, Field.Name, strTableName)
	else
		GetData = GetHyperlink(rsMaster, str, Field.Name, &quot;##MASTERTABLENAME##&quot;)
	end if
	
end if

' email
if Format = FORMAT_EMAILHYPERLINK then		
	str = GetData

	' mailto hyperlink	
	if Left(str,7)=&quot;mailto:&quot; then 
		strTitle = Mid(str,8)
	else
		strTitle = str
		str = &quot;mailto:&quot; &amp; str
	end if
	
	GetData = &quot;&lt;a href=&quot;&quot;&quot; &amp; str &amp; &quot;&quot;&quot;&gt;&quot; &amp; strTitle &amp; &quot;&lt;/a&gt;&quot;
end if

'	if Format = FORMAT_NONE then _
'		GetData = HTMLEncode(GetData)
	
end function


function IsListField(strField)

IsListField = false

	 ##LISTFIELDS##if strField=&quot;##FIELD##&quot; then IsListField = true end if 
	 ##/LISTFIELDS##

end function


' returns field label
function Label(strField)

	Label = strField
	##ALLFIELDS## if strField=&quot;##FIELD##&quot; then Label = &quot;##LABEL##&quot; end if 
	##/ALLFIELDS##

end function

' returns field format
function Format(strField)

	Format = FORMAT_NONE
	##ALLFIELDS## if strField=&quot;##FIELD##&quot; then Format = &quot;##FORMAT##&quot; end if 
	##/ALLFIELDS##

end function

' returns true if field is required
function IsRequired(strField)

	IsRequired = False
	##ALLFIELDS## if strField=&quot;##FIELD##&quot; then IsRequired = &quot;##ISREQUIRED##&quot; end if 
	##/ALLFIELDS##

end function


' returns edit format
function GetEditFormat(strField)

	GetEditFormat = FORMAT_NONE
	##ALLFIELDS## if strField=&quot;##FIELD##&quot; then GetEditFormat = &quot;##EDITFORMAT##&quot; end if 
	##/ALLFIELDS##

end function

' returns true if textarea uses RichTextEditor
Function UseRTE(strField)
	UseRTE = false
	##ALLFIELDS## if strField=&quot;##FIELD##&quot; then UseRTE = ##USE_RTE## end if 
	##/ALLFIELDS##
End Function

' returns true if field format equals FORMAT_LOOKUP_WIZARD
function IsLookupField(strField)

	IsLookupField = false
	if Format(strField)=FORMAT_LOOKUP_WIZARD then 
		IsLookupField = true 
	end if 
end function


' returns Date Edit type
function DateEditType(strField)

	DateEditType = &quot;&quot;
	##ALLFIELDS## if strField=&quot;##FIELD##&quot; then DateEditType = ##DATEEDITTYPE## end if 
	##/ALLFIELDS##

end function

function DateEditShowTime(strField)

	DateEditShowTime = &quot;&quot;
	##ALLFIELDS## if strField=&quot;##FIELD##&quot; then DateEditShowTime = ##DATEEDITSHOWTIME## end if 
	##/ALLFIELDS##

end function


' returns text edit parameters
function GetEditParams(strField)
	##TEXTFIELDS## if strField=&quot;##FIELD##&quot; then GetEditParams= &quot;##EDITPARAMS##&quot; end if 
	##/TEXTFIELDS##
end function

function IsSafeImageExt(strName)
	sExt = UCase(Right(Trim(strName),3))
	if sExt=&quot;JPG&quot; or sExt=&quot;PEG&quot; or sExt=&quot;GIF&quot; or sExt=&quot;PNG&quot; or sExt=&quot;BMP&quot; then
		IsSafeImageExt = true
	else
		IsSafeImageExt = false
	end if
end function

' returns field's default value
function GetDefaultValue(strField)
	##ALLFIELDS## if strField=&quot;##FIELD##&quot; then GetDefaultValue = ##DEFAULTVALUE## end if 
	##/ALLFIELDS##
	if LCase(GetDefaultValue) = &quot;now()&quot; then GetDefaultValue=now() end if
	if Len(GetDefaultValue)&gt;2 then
		if Left(GetDefaultValue,1) = &quot;'&quot; and Right(GetDefaultValue,1)=&quot;'&quot; then GetDefaultValue=Mid(GetDefaultValue,2, Len(GetDefaultValue)-2) end if
	end if
end function


Sub LogInfo(str)
if vDebug=true then
	Response.Write str &amp; &quot;&lt;br&gt;&quot;
	if response.buffer then
		Response.Flush 
	end if
end if

end sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' returns True if Field type is Date, False otherwise
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function IsDateField(Field)

      nType = Field.Type
      		
      if nType = 7 or nType = 133 or nType = 134 or nType = 135 then
      	IsDateField = True
      else
      	IsDateField = False
      end if

End Function


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' returns HTML code that represents required Date edit control
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function GetDateEdit(FieldName, FieldValue, cType, OrigFieldName)
	
	strName = &quot;&quot;
	For index=1 to Len(FieldName)
		c = LCase(Mid(FieldName,index,1))
	   if (Asc(c)&gt;=Asc(&quot;a&quot;) and Asc(c)&lt;=Asc(&quot;z&quot;)) or ( Asc(c)&gt;=Asc(&quot;0&quot;) and Asc(c)&lt;=Asc(&quot;9&quot;)) then _
			strName = strName &amp; c
	Next 
	
	if Len(strName) = 0 then Exit Function
			if (IsDate(FieldValue)) then
				dDate = CDate(FieldValue)
				d = Day(dDate)
				m = Month(dDate)
				y = Year(dDate)
				h = Hour(dDate)
				mi = Minute(dDate)
				s = Second(dDate)
			else
				d = 0
				m = 0
				y = 0
				h = 0
				mi = 0
				s = 0
			end if
		
   
	  if cType = EDIT_DATE_SIMPLE_DDMMYYYY_DP or cType = EDIT_DATE_SIMPLE_MMDDYYYY_DP then
			GetDateEdit = &quot;&lt;input type=text name=&quot;&quot;&quot; &amp; FieldName &amp; &quot;&quot;&quot; size = 20 value=&quot;&quot;&quot; &amp; FieldValue &amp; &quot;&quot;&quot;&gt;&quot; 

			ovalue=&quot;&quot;
			delimiter = &quot;/&quot;
			if cType=EDIT_DATE_SIMPLE_DDMMYYYY_DP then
				sundayfirst=&quot;false&quot;
				dmy=&quot;true&quot;
				fmt=1
			else
				sundayfirst=&quot;true&quot;
				dmy=&quot;false&quot;
				fmt=2
			end if
			withtime=false
			showtime=&quot;false&quot;
			if DateEditShowTime(OrigFieldName) then
				withtime=true
				showtime=&quot;true&quot;
			end if
			if d&gt;0 then
				ovalue = format_datetime_custom(dDate,fmt,withtime)
				ovalue1 = format_datetime_custom(dDate,3,withtime)
			else
				ovalue1=&quot;0-0-0&quot;
			end if
			onblur=&quot;var dt=parse_datetime(this.value,&quot; &amp; dmy &amp; &quot;); if(dt!=null) document.forms.editform.ts&quot; &amp; strName &amp; &quot;.value=print_datetime(dt,0,&quot; &amp; showtime &amp; &quot;); else document.forms.editform.ts&quot; &amp; strName &amp; &quot;.value='';&quot;

			GetDateEdit = &quot;&lt;input type=&quot;&quot;Text&quot;&quot; name=&quot;&quot;&quot; &amp; FieldName &amp; &quot;&quot;&quot; size = &quot;&quot;20&quot;&quot; value=&quot;&quot;&quot; &amp; ovalue &amp; &quot;&quot;&quot; onblur=&quot;&quot;&quot; &amp; onblur &amp; &quot;&quot;&quot;&gt;&quot;
			GetDateEdit = GetDateEdit &amp; &quot;&lt;input type=&quot;&quot;Hidden&quot;&quot; name=&quot;&quot;ts&quot; &amp; strName &amp; &quot;&quot;&quot; value=&quot;&quot;&quot; &amp; ovalue1 &amp; &quot;&quot;&quot;&gt;&amp;nbsp;&amp;nbsp;&quot;
			GetDateEdit = GetDateEdit &amp; &quot;&lt;a href=&quot;&quot;javascript:var v=show_calendar('update&quot; &amp; strName &amp; &quot;', document.forms.editform.ts&quot; &amp; strName &amp;&quot;.value,&quot; &amp; showtime &amp; &quot;,&quot; &amp; sundayfirst &amp;&quot;);&quot;&quot;&gt;&quot; &amp; _
				&quot;&lt;img src=&quot;&quot;images/cal.gif&quot;&quot; width=16 height=16 border=0 alt=&quot;&quot;&quot; &amp; ##SCRIPTMESSAGE(PICKUP_DATE)## &amp; &quot;&quot;&quot;&gt;&lt;/a&gt;&quot;
			GetDateEdit = GetDateEdit &amp; &quot;&lt;script language=JavaScript&gt;&quot; &amp; _
				&quot;	function update&quot; &amp; strName &amp; &quot;(newDate) &quot; &amp; _
				&quot;{ &quot;
			if cType=EDIT_DATE_SIMPLE_DDMMYYYY_DP then
				GetDateEdit = GetDateEdit &amp; &quot;		document.forms.editform.elements['&quot; &amp; FieldName &amp;&quot;'].value =  print_datetime(newDate,1,&quot; &amp; showtime &amp;&quot;);&quot;
			else
				GetDateEdit = GetDateEdit &amp; &quot;		document.forms.editform.elements['&quot; &amp; FieldName &amp;&quot;'].value =  print_datetime(newDate,2,&quot; &amp; showtime &amp;&quot;);&quot;
			end if
			GetDateEdit = GetDateEdit &amp; &quot;		document.forms.editform.ts&quot; &amp; strName &amp;&quot;.value =  print_datetime(newDate,0,&quot; &amp; showtime &amp;&quot;);&quot;
			GetDateEdit = GetDateEdit &amp; &quot;	}&lt;/script&gt;&quot;
	

	  elseif cType = EDIT_DATE_DDMMYYYY_DP or cType = EDIT_DATE_MMDDYYYY_DP _
	  	 or  cType = EDIT_DATE_DDMMYYYY or cType = EDIT_DATE_MMDDYYYY then
			dp=true
			if cType=EDIT_DATE_DDMMYYYY or cType=EDIT_DATE_DDMMYYYY then
				dp=false
			end if

			if d&gt;0 then
				ovalue = format_datetime_custom(dDate,0,false)
			else
				ovalue=&quot;0-0-0&quot;
			end if
			ovalue1 = d &amp; &quot;-&quot; &amp; m &amp; &quot;-&quot; &amp; y
			retday=&quot;&lt;select class=selects name=&quot;&quot;day&quot; &amp; strName &amp;&quot;&quot;&quot; onchange=&quot;&quot;javascript: SetDate&quot; &amp; strName &amp; &quot;(); return true;&quot;&quot;&gt;&quot; &amp;_
				WriteDays(Now(),d) &amp; &quot;&lt;/select&gt;&quot;
			
			retmonth=&quot;&lt;select class=selects name=&quot;&quot;month&quot; &amp; strName &amp;&quot;&quot;&quot; onchange=&quot;&quot;javascript: SetDate&quot; &amp; strName &amp; &quot;(); return true;&quot;&quot;&gt;&quot; &amp;_
				WriteMonths(Now(),m) &amp; &quot;&lt;/select&gt;&quot;

			if cType=EDIT_DATE_DDMMYYYY or cType=EDIT_DATE_DDMMYYYY_DP then
				GetDateEdit = retday &amp; &quot;&amp;nbsp;&quot; &amp; retmonth &amp; &quot;&amp;nbsp;&quot;
				sundayfirst=&quot;false&quot;
			else
				GetDateEdit = retmonth &amp; &quot;&amp;nbsp;&quot; &amp; retday &amp; &quot;&amp;nbsp;&quot;
				sundayfirst=&quot;true&quot;
			end if
			GetDateEdit = GetDateEdit &amp; &quot;&lt;select class=selects name=&quot;&quot;year&quot; &amp; strName &amp; &quot;&quot;&quot; onchange=&quot;&quot;javascript: SetDate&quot; &amp; strName &amp; &quot;(); return true;&quot;&quot;&gt;&quot;
			GetDateEdit = GetDateEdit &amp; WriteYears(now(),y) &amp; &quot;&lt;/select&gt;&quot;
			GetDateEdit = GetDateEdit &amp; &quot;&lt;input type=hidden name=&quot;&quot;&quot; &amp; FieldName &amp; &quot;&quot;&quot; value=&quot;&quot;&quot; &amp; ovalue &amp; &quot;&quot;&quot;&gt;&quot;
			if dp then
				GetDateEdit = GetDateEdit &amp; &quot;&lt;input type=hidden name=&quot;&quot;ts&quot; &amp; strName &amp; &quot;&quot;&quot; value=&quot;&quot;&quot; &amp; ovalue1 &amp; &quot;&quot;&quot;&gt;&amp;nbsp;&quot; &amp; _
					&quot;&lt;a href=&quot;&quot;javascript:var v=show_calendar('update&quot; &amp; strName &amp; &quot;', document.forms.editform.ts&quot; &amp; strName &amp; &quot;.value,false,&quot; &amp; sundayfirst &amp; &quot;);&quot;&quot;&gt;&quot; &amp; _
					&quot;&lt;img src=images/cal.gif width=16 height=16 border=0 alt=&quot;&quot;&quot; &amp; ##SCRIPTMESSAGE(PICKUP_DATE)## &amp; &quot;&quot;&quot;&gt;&lt;/a&gt;&quot;
			end if
			GetDateEdit = GetDateEdit &amp; &quot;&lt;script language=JavaScript&gt;&quot; &amp; _
				&quot;function SetDate&quot; &amp; strName &amp; &quot;()&quot; &amp; _
				&quot;{ &quot; &amp; _
				&quot;  if (document.forms.editform.month&quot; &amp; strName &amp; &quot;.value!='' &amp;&amp; document.forms.editform.day&quot; &amp; strName &amp; &quot;.value!='' &amp;&amp; document.forms.editform.year&quot; &amp; strName &amp; &quot;.value!='') {&quot; &amp; _
				&quot;	document.forms.editform.elements['&quot; &amp; FieldName &amp; &quot;'].value= ''+document.forms.editform.year&quot; &amp; strName &amp; &quot;.value + &quot; &amp; _
				&quot; 	'-' + document.forms.editform.month&quot; &amp; strName &amp; &quot;.value + '-' + document.forms.editform.day&quot; &amp; strName &amp; &quot;.value; &quot;
			if dp then
				GetDateEdit = GetDateEdit &amp; &quot;   document.forms.editform.ts&quot; &amp; strName &amp; &quot;.value='' + document.forms.editform.day&quot; &amp; strName &amp; &quot;.value+'-'+document.forms.editform.month&quot; &amp; strName &amp; &quot;.value+'-'+document.forms.editform.year&quot; &amp; strName &amp; &quot;.value;&quot;
			end if
			GetDateEdit = GetDateEdit &amp; &quot;  } else {&quot;
			if dp then
				GetDateEdit = GetDateEdit &amp; &quot;	document.forms.editform.ts&quot; &amp; strName &amp; &quot;.value= '&quot; &amp; ovalue &amp; &quot;';&quot;
			end if
			GetDateEdit = GetDateEdit &amp; &quot;	document.forms.editform.elements['&quot; &amp; FieldName &amp; &quot;'].value= '';&quot;&amp; _
				&quot;   } &quot;&amp; _
				&quot; } &quot;&amp; _
				&quot; SetDate&quot; &amp; strName &amp; &quot;(); &quot;
			if dp then
				GetDateEdit = GetDateEdit &amp; &quot;	function update&quot; &amp; strName &amp; &quot;(newDate) &quot;&amp; _
				&quot;{ &quot;&amp; _
				&quot;	var dt_datetime; &quot;&amp; _
				&quot; 	var curdate = new Date(); &quot;&amp; _
				&quot;		dt_datetime = newDate;&quot;&amp; _
				&quot;		document.forms.editform.elements['&quot; &amp; FieldName &amp; &quot;'].value =  dt_datetime.getFullYear() + '-' + (dt_datetime.getMonth()+1) + '-' + dt_datetime.getDate();&quot; &amp; _
				&quot;		document.forms.editform.day&quot; &amp; strName &amp; &quot;.selectedIndex = dt_datetime.getDate();&quot; &amp; _
				&quot;		document.forms.editform.month&quot; &amp; strName &amp; &quot;.selectedIndex = dt_datetime.getMonth()+1;&quot; &amp; _
				&quot;		for(i=0; i&lt;document.forms.editform.year&quot; &amp; strName &amp; &quot;.options.length;i++)&quot;&amp;_
				&quot;			if(document.forms.editform.year&quot; &amp; strName &amp; &quot;.options[i].value==dt_datetime.getFullYear())&quot;&amp;_
				&quot;			{&quot;&amp;_
				&quot;				document.forms.editform.year&quot; &amp; strName &amp; &quot;.selectedIndex=i;&quot;&amp;_
				&quot;				break;&quot;&amp;_
				&quot;			}&quot;&amp;_
				&quot;  	document.forms.editform.ts&quot; &amp; strName &amp; &quot;.value = dt_datetime.getDate() + '-' + (dt_datetime.getMonth()+1) + '-' + dt_datetime.getFullYear();&quot; &amp; _
				&quot;	}&quot;
			end if
			GetDateEdit = GetDateEdit &amp; &quot; &lt;/script&gt;&quot;
	else
			GetDateEdit = &quot;&lt;input type=text name=&quot;&quot;&quot; &amp; FieldName &amp; &quot;&quot;&quot; size = 20 value=&quot;&quot;&quot; &amp; FieldValue &amp; &quot;&quot;&quot;&gt;&quot; 
	end if

End Function

Function GetDateEditOld(FieldName, FieldValue, cType)
	
	strName = &quot;&quot;
	For index=1 to Len(FieldName)
		c = LCase(Mid(FieldName,index,1))
	   if (Asc(c)&gt;=Asc(&quot;a&quot;) and Asc(c)&lt;=Asc(&quot;z&quot;)) or ( Asc(c)&gt;=Asc(&quot;0&quot;) and Asc(c)&lt;=Asc(&quot;9&quot;)) then _
			strName = strName &amp; c
	Next 
	
	if Len(strName) = 0 then Exit Function
			if (IsDate(FieldValue)) then
				dDate = CDate(FieldValue)
				d = Day(dDate)
				m = Month(dDate)
				y = Year(dDate)
			else
				d = 0
				m = 0
				y = 0
			end if
		
   Select Case cType
      Case EDIT_DATE_SIMPLE     
			GetDateEdit = &quot;&lt;input type=text name=&quot;&quot;&quot; &amp; FieldName &amp; &quot;&quot;&quot; size = 20 value=&quot;&quot;&quot; &amp; FieldValue &amp; &quot;&quot;&quot;&gt;&quot; 

      Case EDIT_DATE_SIMPLE_DDMMYYYY_DP	   
			GetDateEdit = &quot;&lt;input type=text name=&quot;&quot;&quot; &amp; FieldName &amp; &quot;&quot;&quot; size = 20 value=&quot;&quot;&quot; &amp; FieldValue &amp; &quot;&quot;&quot;&gt;&quot; 
			GetDateEdit = GetDateEdit &amp; &quot;&lt;input type=hidden name=&quot;&quot;ts&quot; &amp; strName &amp; &quot;&quot;&quot; value=&quot;&quot;&quot; &amp; d &amp; &quot;-&quot; &amp; m &amp; &quot;-&quot; &amp; y &amp; &quot;&quot;&quot;&gt;&quot;
			GetDateEdit = GetDateEdit &amp; &quot;&lt;a href=&quot;&quot;javascript:var v=show_calendar('update&quot; &amp; strName &amp; &quot;', document.forms.editform.ts&quot; &amp; strName &amp; &quot;.value);&quot;&quot;&gt;&quot; &amp; _
				&quot;&lt;img src=images/cal.gif width=16 height=16 border=0 alt=&quot;&quot;&quot; &amp; ##SCRIPTMESSAGE(PICKUP_DATE)## &amp; &quot;&quot;&quot;&gt;&lt;/a&gt;&quot;

			GetDateEdit = GetDateEdit &amp; vbCRLF &amp; vbCRLF &amp; &quot;&lt;script language=JavaScript&gt;&quot; &amp; _
				&quot;	function update&quot; &amp; strName &amp; &quot;(newDate) &quot; &amp; _
				&quot;{ &quot; &amp; _
				&quot;	var dt_datetime; &quot; &amp; _
				&quot;	if (newDate!='' &amp;&amp; newDate!=null)&quot; &amp; _
				&quot;	{ &quot; &amp; _
				&quot;		dt_datetime = str2dt(newDate);&quot; &amp; _
				&quot;		document.forms.editform.elements['&quot; &amp; FieldName &amp; &quot;'].value =  dt_datetime.getDate() + '/' + (dt_datetime.getMonth()+1) + '/' + dt_datetime.getFullYear();&quot; &amp; _
				&quot;  	document.forms.editform.ts&quot; &amp; strName &amp; &quot;.value = newDate; &quot; &amp; _
				&quot;	}&quot; &amp; _
				&quot;}&quot; &amp; _ 
				&quot;&lt;/script&gt;&quot; &amp; vbCRLF &amp; vbCRLF

      Case EDIT_DATE_SIMPLE_MMDDYYYY_DP	   
			GetDateEdit = &quot;&lt;input type=text name=&quot;&quot;&quot; &amp; FieldName &amp; &quot;&quot;&quot; size = 20 value=&quot;&quot;&quot; &amp; FieldValue &amp; &quot;&quot;&quot;&gt;&quot; 
			GetDateEdit = GetDateEdit &amp; &quot;&lt;input type=hidden name=&quot;&quot;ts&quot; &amp; strName &amp; &quot;&quot;&quot; value=&quot;&quot;&quot; &amp; d &amp; &quot;-&quot; &amp; m &amp; &quot;-&quot; &amp; y &amp; &quot;&quot;&quot;&gt;&quot;
			GetDateEdit = GetDateEdit &amp; &quot;&lt;a href=&quot;&quot;javascript:var v=show_calendar('update&quot; &amp; strName &amp; &quot;', document.forms.editform.ts&quot; &amp; strName &amp; &quot;.value);&quot;&quot;&gt;&quot; &amp; _
				&quot;&lt;img src=images/cal.gif width=16 height=16 border=0 alt=&quot;&quot;&quot; &amp; ##SCRIPTMESSAGE(PICKUP_DATE)## &amp; &quot;&quot;&quot;&gt;&lt;/a&gt;&quot;

			GetDateEdit = GetDateEdit &amp; vbCRLF &amp; vbCRLF &amp; &quot;&lt;script language=JavaScript&gt;&quot; &amp; _
				&quot;	function update&quot; &amp; strName &amp; &quot;(newDate) &quot; &amp; _
				&quot;{ &quot; &amp; _
				&quot;	var dt_datetime; &quot; &amp; _
				&quot;	if (newDate!='' &amp;&amp; newDate!=null)&quot; &amp; _
				&quot;	{ &quot; &amp; _
				&quot;		dt_datetime = str2dt(newDate);&quot; &amp; _
				&quot;		document.forms.editform.elements['&quot; &amp; FieldName &amp; &quot;'].value = (dt_datetime.getMonth()+1) + '/' + dt_datetime.getDate() + '/' + dt_datetime.getFullYear();&quot; &amp; _
				&quot;  	document.forms.editform.ts&quot; &amp; strName &amp; &quot;.value = newDate; &quot; &amp; _
				&quot;	}&quot; &amp; _
				&quot;}&quot; &amp; _ 
				&quot;&lt;/script&gt;&quot; &amp; vbCRLF &amp; vbCRLF

		Case EDIT_DATE_DDMMYYYY
			
			GetDateEdit = &quot;&lt;select class=selects name=day&quot; &amp; strName &amp; &quot; onchange=&quot;&quot;javascript: SetDate&quot; &amp; strName &amp; &quot;(); return true;&quot;&quot;&gt;&quot;
			GetDateEdit = GetDateEdit &amp; WriteDays(Now(), d)
			GetDateEdit = GetDateEdit &amp; &quot;&lt;/select&gt;&quot;
			
			GetDateEdit = GetDateEdit &amp; &quot;&lt;select name=month&quot; &amp; strName &amp; &quot; onchange=&quot;&quot;javascript: SetDate&quot; &amp; strName &amp; &quot;(); return true;&quot;&quot;&gt;&quot;
			GetDateEdit = GetDateEdit &amp; WriteMonths(Now(), m)
			GetDateEdit = GetDateEdit &amp; &quot;&lt;/select&gt;&quot;

			GetDateEdit = GetDateEdit &amp; &quot;&lt;select class=selects name=year&quot; &amp; strName &amp; &quot; onchange=&quot;&quot;javascript: SetDate&quot; &amp; strName &amp; &quot;(); return true;&quot;&quot;&gt;&quot;
			GetDateEdit = GetDateEdit &amp; WriteYears(Now(), y)
			GetDateEdit = GetDateEdit &amp; &quot;&lt;/select&gt;&quot; &amp; vbCRLF

			GetDateEdit = GetDateEdit &amp; &quot;&lt;input type=hidden name=&quot;&quot;&quot; &amp; FieldName &amp; &quot;&quot;&quot; value=&quot;&quot;&quot; &amp;  y &amp; &quot;-&quot; &amp; m &amp; &quot;-&quot; &amp; d  &amp; &quot;&quot;&quot;&gt;&quot; 

		GetDateEdit = GetDateEdit &amp; &quot;&lt;script language=JavaScript&gt;&quot; &amp; _
		&quot;function SetDate&quot; &amp; strName &amp; &quot;()&quot; &amp; _
		&quot;{ &quot; &amp; _ 
		&quot;  if (document.forms.editform.month&quot; &amp; strName &amp; &quot;.value!='' &amp;&amp; document.forms.editform.day&quot; &amp; strName &amp; &quot;.value!='' &amp;&amp; document.forms.editform.year&quot; &amp; strName &amp; &quot;.value!='')&quot; &amp; _
		&quot;	document.forms.editform.elements['&quot; &amp; FieldName &amp; &quot;'].value= ''+document.forms.editform.year&quot; &amp; strName &amp; &quot;.value + &quot; &amp; _
		&quot; 	'-' + document.forms.editform.month&quot; &amp; strName &amp; &quot;.value + '-' + document.forms.editform.day&quot; &amp; strName &amp; &quot;.value; &quot; &amp; _
		&quot;  else &quot; &amp; _
		&quot;	document.forms.editform.elements['&quot; &amp; FieldName &amp; &quot;'].value= '';&quot; &amp; _
		&quot; } &quot; &amp; _
		&quot; &lt;/script&gt;&quot;
		
		Case EDIT_DATE_DDMMYYYY_DP

			GetDateEdit = &quot;&lt;select class=selects name=day&quot; &amp; strName &amp; &quot; onchange=&quot;&quot;javascript: SetDate&quot; &amp; strName &amp; &quot;(); return true;&quot;&quot;&gt;&quot;
			GetDateEdit = GetDateEdit &amp; WriteDays(Now(), d)
			GetDateEdit = GetDateEdit &amp; &quot;&lt;/select&gt;&quot;
			
			GetDateEdit = GetDateEdit &amp; &quot;&lt;select name=month&quot; &amp; strName &amp; &quot; onchange=&quot;&quot;javascript: SetDate&quot; &amp; strName &amp; &quot;(); return true;&quot;&quot;&gt;&quot;
			GetDateEdit = GetDateEdit &amp; WriteMonths(Now(), m)
			GetDateEdit = GetDateEdit &amp; &quot;&lt;/select&gt;&quot;

			GetDateEdit = GetDateEdit &amp; &quot;&lt;select class=selects name=year&quot; &amp; strName &amp; &quot; onchange=&quot;&quot;javascript: SetDate&quot; &amp; strName &amp; &quot;(); return true;&quot;&quot;&gt;&quot;
			GetDateEdit = GetDateEdit &amp; WriteYears(Now(), y)
			GetDateEdit = GetDateEdit &amp; &quot;&lt;/select&gt;&quot; &amp; vbCRLF

			GetDateEdit = GetDateEdit &amp; &quot;&lt;input type=hidden name=&quot;&quot;ts&quot; &amp; strName &amp; &quot;&quot;&quot; value=&quot;&quot;&quot; &amp; d &amp; &quot;-&quot; &amp; m &amp; &quot;-&quot; &amp; y &amp; &quot;&quot;&quot;&gt;&quot; &amp; vbCRLF
			GetDateEdit = GetDateEdit &amp; &quot;&lt;input type=hidden name=&quot;&quot;&quot; &amp; FieldName &amp; &quot;&quot;&quot; value=&quot;&quot;&quot; &amp;  y &amp; &quot;-&quot; &amp; m &amp; &quot;-&quot; &amp; d  &amp; &quot;&quot;&quot;&gt;&quot; 
			GetDateEdit = GetDateEdit &amp; &quot;&lt;a href=&quot;&quot;javascript:var v=show_calendar('update&quot; &amp; strName &amp; &quot;', document.forms.editform.ts&quot; &amp; strName &amp; &quot;.value);&quot;&quot;&gt;&quot; &amp; _
				&quot;&lt;img src=images/cal.gif width=16 height=16 border=0 alt=&quot;&quot;&quot; &amp; ##SCRIPTMESSAGE(PICKUP_DATE)## &amp; &quot;&quot;&quot;&gt;&lt;/a&gt;&quot;

			GetDateEdit = GetDateEdit &amp; &quot;&lt;script language=JavaScript&gt;&quot; &amp; _
				&quot;	function update&quot; &amp; strName &amp; &quot;(newDate) &quot; &amp; _
				&quot;{ &quot; &amp; _
				&quot;	var dt_datetime; &quot; &amp; _
				&quot; 	var curdate = new Date(); &quot; &amp; _
				&quot;	if (newDate!='' &amp;&amp; newDate!=null)&quot; &amp; _
				&quot;	{ &quot; &amp; _
				&quot;		dt_datetime = str2dt(newDate);&quot; &amp; _
				&quot;		document.forms.editform.elements['&quot; &amp; FieldName &amp; &quot;'].value =  dt_datetime.getFullYear() + '-' + (dt_datetime.getMonth()+1) + '-' + dt_datetime.getDate();&quot; &amp; _
				&quot;		document.forms.editform.day&quot; &amp; strName &amp; &quot;.selectedIndex = dt_datetime.getDate();	&quot; &amp; _		
				&quot;		document.forms.editform.month&quot; &amp; strName &amp; &quot;.selectedIndex = dt_datetime.getMonth()+1;	&quot; &amp; _		
				&quot;		document.forms.editform.year&quot; &amp; strName &amp; &quot;.selectedIndex = dt_datetime.getFullYear()-curdate.getFullYear()+51;	&quot; &amp; _		
				&quot;  	document.forms.editform.ts&quot; &amp; strName &amp; &quot;.value = newDate; &quot; &amp; _
				&quot;	}&quot; &amp; _
				&quot;}&quot; &amp; vbCRLF &amp; _ 
		&quot;function SetDate&quot; &amp; strName &amp; &quot;()&quot; &amp; _
		&quot;{ &quot; &amp; _ 
		&quot;  if (document.forms.editform.month&quot; &amp; strName &amp; &quot;.value!='' &amp;&amp; document.forms.editform.day&quot; &amp; strName &amp; &quot;.value!='' &amp;&amp; document.forms.editform.year&quot; &amp; strName &amp; &quot;.value!='')&quot; &amp; _
		&quot;	document.forms.editform.elements['&quot; &amp; FieldName &amp; &quot;'].value= ''+document.forms.editform.year&quot; &amp; strName &amp; &quot;.value + &quot; &amp; _
		&quot; 	'-' + document.forms.editform.month&quot; &amp; strName &amp; &quot;.value + '-' + document.forms.editform.day&quot; &amp; strName &amp; &quot;.value; &quot; &amp; _
		&quot;  else &quot; &amp; _
		&quot;	document.forms.editform.elements['&quot; &amp; FieldName &amp; &quot;'].value= '';&quot; &amp; _
		&quot; } &quot; &amp; _
		&quot; SetDate&quot; &amp; strName &amp; &quot;(); &quot; &amp; _
		&quot; &lt;/script&gt;&quot; &amp; vbCRLF

		Case EDIT_DATE_MMDDYYYY	

			GetDateEdit = &quot;&lt;select name=month&quot; &amp; strName &amp; &quot; onchange=&quot;&quot;javascript: SetDate&quot; &amp; strName &amp; &quot;(); return true;&quot;&quot;&gt;&quot;
			GetDateEdit = GetDateEdit &amp; WriteMonths(Now(), m)
			GetDateEdit = GetDateEdit &amp; &quot;&lt;/select&gt;&quot;

			GetDateEdit = GetDateEdit &amp; &quot;&lt;select class=selects name=day&quot; &amp; strName &amp; &quot; onchange=&quot;&quot;javascript: SetDate&quot; &amp; strName &amp; &quot;(); return true;&quot;&quot;&gt;&quot;
			GetDateEdit = GetDateEdit &amp; WriteDays(Now(), d)
			GetDateEdit = GetDateEdit &amp; &quot;&lt;/select&gt;&quot;
			
			GetDateEdit = GetDateEdit &amp; &quot;&lt;select class=selects name=year&quot; &amp; strName &amp; &quot; onchange=&quot;&quot;javascript: SetDate&quot; &amp; strName &amp; &quot;(); return true;&quot;&quot;&gt;&quot;
			GetDateEdit = GetDateEdit &amp; WriteYears(Now(), y)
			GetDateEdit = GetDateEdit &amp; &quot;&lt;/select&gt;&quot; &amp; vbCRLF

			GetDateEdit = GetDateEdit &amp; &quot;&lt;input type=hidden name=&quot;&quot;&quot; &amp; FieldName &amp; &quot;&quot;&quot; value=&quot;&quot;&quot; &amp; FieldValue &amp; &quot;&quot;&quot;&gt;&quot; 

		GetDateEdit = GetDateEdit &amp; &quot;&lt;script language=JavaScript&gt;&quot; &amp; _
		&quot;function SetDate&quot; &amp; strName &amp; &quot;()&quot; &amp; _
		&quot;{ &quot; &amp; _ 
		&quot;  if (document.forms.editform.month&quot; &amp; strName &amp; &quot;.value!='' &amp;&amp; document.forms.editform.day&quot; &amp; strName &amp; &quot;.value!='' &amp;&amp; document.forms.editform.year&quot; &amp; strName &amp; &quot;.value!='')&quot; &amp; _
		&quot;	document.forms.editform.elements['&quot; &amp; FieldName &amp; &quot;'].value= ''+document.forms.editform.year&quot; &amp; strName &amp; &quot;.value + &quot; &amp; _
		&quot; 	'-' + document.forms.editform.month&quot; &amp; strName &amp; &quot;.value + '-' + document.forms.editform.day&quot; &amp; strName &amp; &quot;.value; &quot; &amp; _
		&quot;  else &quot; &amp; _
		&quot;	document.forms.editform.elements['&quot; &amp; FieldName &amp; &quot;'].value= '';&quot; &amp; _
		&quot; } &quot; &amp; _
		&quot; &lt;/script&gt;&quot;

		Case EDIT_DATE_MMDDYYYY_DP

			GetDateEdit = &quot;&lt;select name=month&quot; &amp; strName &amp; &quot; onchange=&quot;&quot;javascript: SetDate&quot; &amp; strName &amp; &quot;(); return true;&quot;&quot;&gt;&quot;
			GetDateEdit = GetDateEdit &amp; WriteMonths(Now(), m)
			GetDateEdit = GetDateEdit &amp; &quot;&lt;/select&gt;&quot;

			GetDateEdit = GetDateEdit &amp; &quot;&lt;select class=selects name=day&quot; &amp; strName &amp; &quot; onchange=&quot;&quot;javascript: SetDate&quot; &amp; strName &amp; &quot;(); return true;&quot;&quot;&gt;&quot;
			GetDateEdit = GetDateEdit &amp; WriteDays(Now(), d)
			GetDateEdit = GetDateEdit &amp; &quot;&lt;/select&gt;&quot;
			
			GetDateEdit = GetDateEdit &amp; &quot;&lt;select class=selects name=year&quot; &amp; strName &amp; &quot; onchange=&quot;&quot;javascript: SetDate&quot; &amp; strName &amp; &quot;(); return true;&quot;&quot;&gt;&quot;
			GetDateEdit = GetDateEdit &amp; WriteYears(Now(), y)
			GetDateEdit = GetDateEdit &amp; &quot;&lt;/select&gt;&quot; &amp; vbCRLF

			GetDateEdit = GetDateEdit &amp; &quot;&lt;input type=hidden name=&quot;&quot;ts&quot; &amp; strName &amp; &quot;&quot;&quot; value=&quot;&quot;&quot; &amp; d &amp; &quot;-&quot; &amp; m &amp; &quot;-&quot; &amp; y &amp; &quot;&quot;&quot;&gt;&quot; &amp; vbCRLF
			GetDateEdit = GetDateEdit &amp; &quot;&lt;input type=hidden name=&quot;&quot;&quot; &amp; FieldName &amp; &quot;&quot;&quot; value=&quot;&quot;&quot; &amp; y &amp; &quot;-&quot; &amp; m &amp; &quot;-&quot; &amp; d &amp; &quot;&quot;&quot;&gt;&quot; 
			GetDateEdit = GetDateEdit &amp; &quot;&lt;a href=&quot;&quot;javascript:var v=show_calendar('update&quot; &amp; strName &amp; &quot;', document.forms.editform.ts&quot; &amp; strName &amp; &quot;.value);&quot;&quot;&gt;&quot; &amp; _
				&quot;&lt;img src=images/cal.gif width=16 height=16 border=0 alt=&quot;&quot;&quot; &amp; ##SCRIPTMESSAGE(PICKUP_DATE)## &amp; &quot;&quot;&quot;&gt;&lt;/a&gt;&quot;

			GetDateEdit = GetDateEdit &amp; &quot;&lt;script language=JavaScript&gt;&quot; &amp; _
				&quot;	function update&quot; &amp; strName &amp; &quot;(newDate) &quot; &amp; _
				&quot;{ &quot; &amp; _
				&quot;	var dt_datetime; &quot; &amp; _
				&quot; 	var curdate = new Date(); &quot; &amp; _
				&quot;	if (newDate!='' &amp;&amp; newDate!=null)&quot; &amp; _
				&quot;	{ &quot; &amp; _
				&quot;		dt_datetime = str2dt(newDate);&quot; &amp; _
				&quot;		document.forms.editform.elements['&quot; &amp; FieldName &amp; &quot;'].value =  dt_datetime.getFullYear() + '-' + (dt_datetime.getMonth()+1) + '-' + dt_datetime.getDate();&quot; &amp; _
				&quot;		document.forms.editform.day&quot; &amp; strName &amp; &quot;.selectedIndex = dt_datetime.getDate();	&quot; &amp; _		
				&quot;		document.forms.editform.month&quot; &amp; strName &amp; &quot;.selectedIndex = dt_datetime.getMonth()+1;	&quot; &amp; _		
				&quot;		document.forms.editform.year&quot; &amp; strName &amp; &quot;.selectedIndex = dt_datetime.getFullYear()-curdate.getFullYear()+51;	&quot; &amp; _		
				&quot;  	document.forms.editform.ts&quot; &amp; strName &amp; &quot;.value = newDate; &quot; &amp; _
				&quot;	}&quot; &amp; _
				&quot;}&quot; &amp; vbCRLF &amp; _ 
		&quot;function SetDate&quot; &amp; strName &amp; &quot;()&quot; &amp; _
		&quot;{ &quot; &amp; _ 
		&quot;  if (document.forms.editform.month&quot; &amp; strName &amp; &quot;.value!='' &amp;&amp; document.forms.editform.day&quot; &amp; strName &amp; &quot;.value!='' &amp;&amp; document.forms.editform.year&quot; &amp; strName &amp; &quot;.value!='')&quot; &amp; _
		&quot;	document.forms.editform.elements['&quot; &amp; FieldName &amp; &quot;'].value= ''+document.forms.editform.year&quot; &amp; strName &amp; &quot;.value + &quot; &amp; _
		&quot; 	'-' + document.forms.editform.month&quot; &amp; strName &amp; &quot;.value + '-' + document.forms.editform.day&quot; &amp; strName &amp; &quot;.value; &quot; &amp; _
		&quot;  else &quot; &amp; _
		&quot;	document.forms.editform.elements['&quot; &amp; FieldName &amp; &quot;'].value= '';&quot; &amp; _
		&quot; } &quot; &amp; _
		&quot; &lt;/script&gt;&quot; &amp; vbCRLF

		Case Else
			GetDateEdit = &quot;&lt;input type=text name=&quot;&quot;&quot; &amp; FieldName &amp; &quot;&quot;&quot; size = 20 value=&quot;&quot;&quot; &amp; FieldValue &amp; &quot;&quot;&quot;&gt;&quot; 
   End Select
	


End Function



Function WriteDays(d, f)
if f=&quot;&quot; then
	val=0
else
	val=CLng(f)
end if

WriteDays = WriteDays &amp; &quot;&lt;option value=&quot;&quot;&quot;&quot;&gt; &lt;/option&gt;&quot;
for x=1 to 31
	if x=val then 
		WriteDays = WriteDays &amp; &quot;&lt;option value=&quot; &amp; x &amp; &quot; selected&gt;&quot; &amp; x &amp; &quot;&lt;/option&gt;&quot;
	else
		WriteDays = WriteDays &amp; &quot;&lt;option value=&quot; &amp; x &amp; &quot;&gt;&quot; &amp; x &amp; &quot;&lt;/option&gt;&quot;
	end if
next
end function

Function WriteMonths(d, f)
if f=&quot;&quot; then
	val=0
else
	val=CLng(f)
end if
WriteMonths = WriteMonths &amp; &quot;&lt;option value=&quot;&quot;&quot;&quot;&gt; &lt;/option&gt;&quot;
for x=1 to 12
	if x=val then 
		WriteMonths = WriteMonths &amp; &quot;&lt;option value=&quot; &amp; x &amp; &quot; selected&gt;&quot; &amp; HRMonth(x) &amp; &quot;&lt;/option&gt;&quot;
	else
		WriteMonths = WriteMonths &amp; &quot;&lt;option value=&quot; &amp; x &amp; &quot;&gt;&quot; &amp; HRMonth(x) &amp; &quot;&lt;/option&gt;&quot;
	end if
next
end Function 


Function WriteYears(d, f)
if f=&quot;&quot; then
	val=0
else
	val=CLng(f)
end if
WriteYears = WriteYears &amp; &quot;&lt;option value=&quot;&quot;&quot;&quot;&gt; &lt;/option&gt;&quot;
for x=Year(d)-50 to Year(d)+50
	if x=val then 
		WriteYears = WriteYears &amp; &quot;&lt;option value=&quot; &amp; x &amp; &quot; selected&gt;&quot; &amp; x &amp; &quot;&lt;/option&gt;&quot;
	else
		WriteYears = WriteYears &amp; &quot;&lt;option value=&quot; &amp; x &amp; &quot;&gt;&quot; &amp; x &amp; &quot;&lt;/option&gt;&quot;
	end if
next
end Function 

function HRMonth(i)

if i=1 then _
	HRMonth=##SCRIPTMESSAGE(MONTH_JAN)##
if i=2 then _
	HRMonth=##SCRIPTMESSAGE(MONTH_FEB)##
if i=3 then _
	HRMonth=##SCRIPTMESSAGE(MONTH_MAR)##
if i=4 then _
	HRMonth=##SCRIPTMESSAGE(MONTH_APR)##
if i=5 then _
	HRMonth=##SCRIPTMESSAGE(MONTH_MAY)##
if i=6 then _
	HRMonth=##SCRIPTMESSAGE(MONTH_JUN)##
if i=7 then _
	HRMonth=##SCRIPTMESSAGE(MONTH_JUL)##
if i=8 then _
	HRMonth=##SCRIPTMESSAGE(MONTH_AUG)##
if i=9 then _
	HRMonth=##SCRIPTMESSAGE(MONTH_SEP)##
if i=10 then _
	HRMonth=##SCRIPTMESSAGE(MONTH_OCT)##
if i=11 then _
	HRMonth=##SCRIPTMESSAGE(MONTH_NOV)##
if i=12 then _
	HRMonth=##SCRIPTMESSAGE(MONTH_DEC)##
end function




Function BuildSelectControl(strName, strValue, bAdd)

	Set rsTemp = server.CreateObject (&quot;ADODB.Recordset&quot;)
##if @BUILDER.strDatabaseType==DATABASE_MySQL || @BUILDER.strDatabaseType==DATABASE_Oracle##
	rsTemp.CursorLocation = 3
##endif##
	strSQL =&quot;&quot;
	strSize = 1
	if IsNull(strValue) then strValue=&quot;&quot;
	BuildSelectControl = &quot; &quot;

	bAddNewItem = false
	##LOOKUPFIELDS##
		if &quot;##FIELD##&quot; = strName then ##LOOKUPDATA## : strField=&quot;##FIELD##&quot; : bAddNewItem = ##ADDNEWITEM## : strLookupTable=&quot;##LOOKUPTABLE##&quot; : strLinkField=&quot;##LINKFIELD##&quot; : strDisplayField=&quot;##DISPLAYFIELD##&quot; end if 
	##/LOOKUPFIELDS##

	Dim arrVal
	sMultiple=&quot;&quot;
	if strSize&gt;1 then 
		sMultiple = &quot;multiple&quot;
		arrVal = Split(strValue, &quot;,&quot;)
	end if

	if strSQL &lt;&gt; &quot;&quot; then 

      	rsTemp.open strSQL, dbConnection,1, 2
      	
      	if rsTemp.EOF then exit function
		onchange =&quot;&quot;
		
##DROPDOWN##
if strName = &quot;##CATEGORY_CONTROL##&quot; then onchange = onchange &amp; &quot;SetSelection('##CATEGORY_CONTROL##', '##FIELD##', this.options[this.selectedIndex].value, '', arr_##GOOD_FIELD##); if (document.forms.editform.elements['##FIELD##'].onchange) document.forms.editform.elements['##FIELD##'].onchange();&quot; end if
##/DROPDOWN##
	if onchange&lt;&gt;&quot;&quot; then onchange = &quot;onchange=&quot;&quot;&quot; &amp; onchange &amp; &quot;&quot;&quot;&quot;
##DROPDOWN##
if strName = &quot;##FIELD##&quot; then
      	Response.Write &quot;&lt;select size = &quot; &amp; strSize &amp; &quot; name=&quot;&quot;&quot; &amp; strName &amp; &quot;&quot;&quot; &quot; &amp; sMultiple &amp; &quot; &quot; &amp; onchange &amp; &quot;&gt;&quot;
      	Response.Write &quot;&lt;/select&gt;&quot;	
		exit function
end if
##/DROPDOWN##

      	Response.Write &quot;&lt;select size = &quot; &amp; strSize &amp; &quot; name=&quot;&quot;&quot; &amp; strName &amp; &quot;&quot;&quot; &quot; &amp; sMultiple &amp; &quot; &quot; &amp; onchange &amp; &quot;&gt;&quot;
      	' if CLng(strSize)&lt;2 then _
      		Response.Write &quot;&lt;option value=&quot;&quot;&quot;&quot;&gt;&lt;/option&gt;&quot;	

      	while not rsTemp.Eof
	   	if not IsNull(rsTemp(0)) and not IsNull(rsTemp(1)) then
        		if Trim(CStr(rsTemp(0)))=Trim(CStr(strValue)) or InArray(arrVal, Trim(CStr(rsTemp(0)))) then 
        			Response.Write &quot;&lt;option value=&quot;&quot;&quot; &amp; Server.HTMLEncode(rsTemp(0)) &amp; &quot;&quot;&quot; selected&gt;&quot; &amp; Server.HTMLEncode(rsTemp(1)) &amp; &quot;&lt;/option&gt;&quot;
        		else
        			Response.Write &quot;&lt;option value=&quot;&quot;&quot; &amp; Server.HTMLEncode(rsTemp(0)) &amp; &quot;&quot;&quot;&gt;&quot; &amp; Server.HTMLEncode(rsTemp(1)) &amp; &quot;&lt;/option&gt;&quot;
        		end if
	   	end if
      	   	rsTemp.MoveNext
      	wend

      	Response.Write &quot;&lt;/select&gt;&quot;	

      	rsTemp.Close
      	set rsTemp = Nothing
	else
	
      	Response.Write &quot;&lt;select size = &quot; &amp; strSize &amp; &quot; name=&quot;&quot;&quot; &amp; strName &amp; &quot;&quot;&quot; &quot; &amp; sMultiple &amp; &quot;&gt;&quot;
      	' if CLng(strSize)&lt;2 then _
      		Response.Write &quot;&lt;option value=&quot;&quot;&quot;&quot;&gt;&lt;/option&gt;&quot;	

		for ind=LBound(arr) to UBound(arr)
			bYes = false
			if IsNumeric(arr(ind)) then
				if CDbl(arr(ind)) = strValue or InArray(arrVal, CDbl(arr(ind))) then bYes = true
			end if
			if Trim(CStr(arr(ind)))=Trim(CStr(strValue)) or InArray(arrVal, Trim(CStr(arr(ind))) ) or bYes then
		      		Response.Write &quot;&lt;option value=&quot;&quot;&quot; &amp; Server.HTMLEncode(arr(ind)) &amp; &quot;&quot;&quot; selected&gt;&quot; &amp; Server.HTMLEncode(arr(ind)) &amp; &quot;&lt;/option&gt;&quot;	
			else
		      		Response.Write &quot;&lt;option value=&quot;&quot;&quot; &amp; Server.HTMLEncode(arr(ind)) &amp; &quot;&quot;&quot;&gt;&quot; &amp; Server.HTMLEncode(arr(ind)) &amp; &quot;&lt;/option&gt;&quot;	
			end if
		next
      	Response.Write &quot;&lt;/select&gt;&quot;	

	end if

	' &quot;add new item&quot; link
	if bAddNewItem and bAdd then 
	%&gt;
	
	&lt;a href=# onclick=&quot;window.open('##SHORTTABLENAME##_addnewitem.asp?Table=&lt;%=Server.URLEncode(strLookupTable)%&gt;&amp;LinkField=&lt;%=Server.URLEncode(strLinkField)%&gt;&amp;DisplayField=&lt;%=Server.URLEncode(strDisplayField)%&gt;&amp;object=document.editform[\'&lt;%=Server.URLEncode(strField)%&gt;\']', 
			'AddNewItem', 'width=250,height=100,status=no,resizable=yes,top=200,left=200');&quot;&gt;
		##PLAINMESSAGE(ADD_NEW)##&lt;/a&gt;
		
	&lt;%
	end if
End Function

Function BuildRadioControl(strName, strValue)

	Set rsTemp = server.CreateObject (&quot;ADODB.Recordset&quot;)
##if @BUILDER.strDatabaseType==DATABASE_MySQL || @BUILDER.strDatabaseType==DATABASE_Oracle##
	rsTemp.CursorLocation = 3
##endif##
	strSQL =&quot;&quot;
	if IsNull(strValue) then strValue=&quot;&quot;
	BuildRadioControl=&quot; &quot;
	
	##RADIOFIELDS##
		if &quot;##FIELD##&quot; = strName then ##LOOKUPDATA## end if 
	##/RADIOFIELDS##

	if strSQL &lt;&gt; &quot;&quot; then 

      	rsTemp.open strSQL, dbConnection,1, 2
      	
      	if rsTemp.EOF then exit function
      	Response.Write &quot;&lt;input type=hidden name=&quot;&quot;&quot; &amp; strName &amp; &quot;&quot;&quot; value=&quot;&quot;&quot; &amp; strValue &amp; &quot;&quot;&quot;&gt;&quot; 	

      	while not rsTemp.Eof
		if not IsNull(rsTemp(0)) and not IsNull(rsTemp(1)) then
        		if Trim(CStr(rsTemp(0)))=Trim(CStr(strValue)) then 
        			Response.Write &quot;&lt;input type=radio name=&quot;&quot;radio&quot; &amp; strName &amp; &quot;&quot;&quot; checked onclick=&quot;&quot;this.form['&quot; &amp; strName &amp; &quot;'].value = '&quot; &amp; Server.HTMLEncode(rsTemp(0)) &amp; &quot;';return true; &quot;&quot;&gt;&quot; &amp; Server.HTMLEncode(rsTemp(1)) &amp; &quot;&lt;br&gt;&quot;
        		else
        			Response.Write &quot;&lt;input type=radio name=&quot;&quot;radio&quot; &amp; strName &amp; &quot;&quot;&quot; onclick=&quot;&quot;this.form['&quot; &amp; strName &amp; &quot;'].value = '&quot; &amp; Server.HTMLEncode(rsTemp(0)) &amp; &quot;';return true; &quot;&quot;&gt;&quot; &amp; Server.HTMLEncode(rsTemp(1))  &amp; &quot;&lt;br&gt;&quot;
        		end if
		end if
     		rsTemp.MoveNext
      	wend

      	rsTemp.Close
      	set rsTemp = Nothing
	else

	
      	Response.Write &quot;&lt;input type=hidden name=&quot;&quot;&quot; &amp; strName &amp; &quot;&quot;&quot; value=&quot;&quot;&quot; &amp; strValue &amp; &quot;&quot;&quot;&gt;&quot; 	

		for ind=LBound(arr) to UBound(arr)
			bYes = false
			if IsNumeric(arr(ind)) then
				if CDbl(arr(ind)) = strValue then bYes = true
			end if
			if Trim(CStr(arr(ind)))=Trim(CStr(strValue)) or bYes then
	      			Response.Write &quot;&lt;input type=radio name=&quot;&quot;radio&quot; &amp; strName &amp; &quot;&quot;&quot; checked onclick=&quot;&quot;this.form['&quot; &amp; strName &amp; &quot;'].value = '&quot; &amp; Server.HTMLEncode(arr(ind)) &amp; &quot;';return true; &quot;&quot;&gt;&quot; &amp; Server.HTMLEncode(arr(ind))  &amp; &quot;&lt;br&gt;&quot;
      			else
      				Response.Write &quot;&lt;input type=radio name=&quot;&quot;radio&quot; &amp; strName &amp; &quot;&quot;&quot; onclick=&quot;&quot;this.form['&quot; &amp; strName &amp; &quot;'].value = '&quot; &amp; Server.HTMLEncode(arr(ind)) &amp; &quot;';return true; &quot;&quot;&gt;&quot; &amp; Server.HTMLEncode(arr(ind))  &amp; &quot;&lt;br&gt;&quot;
	      		end if
		next

	end if


End Function



Function BuildEditControl(Field , sValue, sFormat, sMode)

sFieldName = Field.Name
nType = Field.Type


if Format(sFieldName) &lt;&gt; FORMAT_HTML and sFormat&lt;&gt;EDIT_FORMAT_TEXT_AREA then
	strEncoded = htmlencode(sValue)
else
	strEncoded = sValue
end if

' calculate default value

if sMode = &quot;Add&quot; or sFormat = EDIT_FORMAT_HIDDEN then
	sDefault = HTMLEncode(GetDefaultValue(sFieldName))	
else
	sDefault = strEncoded
end if


BuildEditControl =&quot;&quot;

   Select Case sFormat

      Case EDIT_FORMAT_TEXT_FIELD   		
      	BuildEditControl = &quot;&lt;input type=text name=&quot;&quot;&quot; &amp; sFieldName  &amp; &quot;&quot;&quot;&quot;  &amp; GetEditParams(sFieldName) &amp; &quot; value=&quot;&quot;&quot; &amp; sDefault &amp; &quot;&quot;&quot;&gt;&quot;
      Case EDIT_FORMAT_TEXT_AREA   		
	if UseRTE(sFieldName) then
		sDefault = RTESafe(sDefault)
		BuildEditControl = &quot;&lt;script language=&quot;&quot;JavaScript&quot;&quot; type=&quot;&quot;text/javascript&quot;&quot;&gt;&quot; &amp; vbcrlf &amp; _
		&quot;writeRichText('&quot; &amp; sFieldName &amp; &quot;', '&quot; &amp; sDefault &amp; &quot;', 520, 200, true, false);&quot; &amp; vbcrlf &amp; _
		&quot;&lt;/script&gt;&quot;
	else
      		BuildEditControl = &quot;&lt;textarea &quot; &amp; GetEditParams(sFieldName) &amp; &quot; name=&quot;&quot;&quot; &amp; sFieldName  &amp; &quot;&quot;&quot;&gt;&quot; &amp; sDefault &amp; &quot;&lt;/textarea&gt;&quot;       
	end if
      Case EDIT_FORMAT_PASSWORD   		
	BuildEditControl = &quot;&lt;input type=password name=&quot;&quot;&quot; &amp; sFieldName  &amp; &quot;&quot;&quot;&quot;  &amp; GetEditParams(sFieldName) &amp; &quot; value=&quot;&quot;&quot; &amp; sDefault &amp; &quot;&quot;&quot;&gt;&quot;
      Case EDIT_FORMAT_DATE
	    if sMode = &quot;Add&quot; then
			sDefault = GetDefaultValue(sFieldName)
		end if
      	BuildEditControl = GetDateEdit(sFieldName , sDefault , DateEditType(sFieldName ),sFieldName)
      Case EDIT_FORMAT_RADIO   		
      	BuildEditControl = BuildRadioControl(sFieldName , sDefault)      
      Case EDIT_FORMAT_CHECKBOX   		
		   BuildEditControl = &quot;&lt;input type=checkbox name=&quot;&quot;&quot; &amp; sFieldName  &amp; &quot;&quot;&quot;&quot; 
		    val = Lcase(CStr(sDefault))
			if val=&quot;yes&quot; or (IsNumeric(val) and val&lt;&gt;&quot;0&quot;) or val=&quot;true&quot; or val=&quot;on&quot; then BuildEditControl = BuildEditControl &amp; &quot; checked &quot;
			BuildEditControl = BuildEditControl &amp;  &quot;&gt;&quot;
      Case EDIT_FORMAT_DATABASE_IMAGE, EDIT_FORMAT_DATABASE_FILE

		strfilename=&quot;&quot;
		onchangefile=&quot;&quot;
		if sMode=&quot;Edit&quot; then
' 		           	strImageWhere = &quot; &quot; &amp; AddWrappers(strKeyField) &amp; &quot;=&quot; &amp; gstrQuote &amp; GetData(rs.Fields(strKeyField), &quot;&quot;) &amp; gstrQuote
'       			if strKeyField2&lt;&gt;&quot;&quot; then strImageWhere = strImageWhere &amp; &quot; and &quot; &amp; AddWrappers(strKeyField2) &amp; &quot;=&quot; &amp; gstrQuote2 &amp; GetData(rs.Fields(strKeyField2), &quot;&quot;) &amp; gstrQuote2
'       			if strKeyField3&lt;&gt;&quot;&quot; then strImageWhere = strImageWhere &amp; &quot; and &quot; &amp; AddWrappers(strKeyField3) &amp; &quot;=&quot; &amp; gstrQuote3 &amp; GetData(rs.Fields(strKeyField3), &quot;&quot;) &amp; gstrQuote3
       			strPK = AddWrappers(strKeyField)
       			if strKeyField2&lt;&gt;&quot;&quot; then strPK = strPK &amp; &quot;,&quot; &amp; AddWrappers(strKeyField2)
       			if strKeyField3&lt;&gt;&quot;&quot; then strPK = strPK &amp; &quot;,&quot; &amp; AddWrappers(strKeyField3)
       			BuildEditControl = CreateImageControl(rs, sFieldName, GetFilenameField(strTableName, sFieldName))

		' filename edit
			if sFormat=EDIT_FORMAT_DATABASE_FILE and GetFilenameField(strTableName, sFieldName)&lt;&gt;&quot;&quot; then
				strfilename=&quot;&lt;br&gt;Filename:&amp;nbsp;&amp;nbsp;&lt;input name=&quot;&quot;&quot; &amp; GetFilenameField(strTableName, sFieldName) &amp; &quot;&quot;&quot; size=&quot;&quot;20&quot;&quot; maxlength=&quot;&quot;50&quot;&quot; value=&quot;&quot;&quot; &amp; rs(GetFilenameField(strTableName, sFieldName)) &amp; &quot;&quot;&quot;&gt;&quot;
				onchangefile=&quot;var path=this.form['&quot; &amp; sFieldName &amp; &quot;'].value; var wpos=path.lastIndexOf('\\'); var upos=path.lastIndexOf('/'); var pos=wpos; if(upos&gt;wpos) pos=upos; this.form['&quot; &amp; GetFilenameField(strTableName, sFieldName) &amp; &quot;'].value=path.substr(pos+1);&quot;
			end if
			strtype=&quot;&lt;br&gt;&lt;input type=&quot;&quot;Radio&quot;&quot; name=&quot;&quot;type&quot; &amp; sFieldName &amp; &quot;&quot;&quot; value=&quot;&quot;file0&quot;&quot; checked&gt;&quot; &amp; ##SCRIPTMESSAGE(KEEP)##
			if sValue&lt;&gt;&quot;&quot; and not IsRequired(sFieldName) then
				strtype= strtype &amp; &quot;&lt;input type=&quot;&quot;Radio&quot;&quot; name=&quot;&quot;type&quot; &amp; sFieldName &amp; &quot;&quot;&quot; value=&quot;&quot;file1&quot;&quot;&gt;&quot; &amp; ##SCRIPTMESSAGE(DELETE)##
				onchangefile = onchangefile &amp; &quot;this.form['type&quot; &amp; sFieldName &amp; &quot;'][2].checked=true;&quot;
			else
				onchangefile= onchangefile &amp; &quot;this.form['type&quot; &amp; sFieldName &amp; &quot;'][1].checked=true;&quot;
			end if
			
			strtype = strtype &amp; &quot;&lt;input type=&quot;&quot;Radio&quot;&quot; name=&quot;&quot;type&quot; &amp; sFieldName &amp; &quot;&quot;&quot; value=&quot;&quot;file2&quot;&quot;&gt;&quot; &amp; ##SCRIPTMESSAGE(UPDATE)##
		else
			strtype=&quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;type&quot; &amp; sFieldName &amp; &quot;&quot;&quot; value=&quot;&quot;file2&quot;&quot;&gt;&quot;
			if sFormat=EDIT_FORMAT_DATABASE_FILE and GetFilenameField(strTableName, sFieldName)&lt;&gt;&quot;&quot; then
				strfilename = &quot;&lt;br&gt;&quot; &amp; ##SCRIPTMESSAGE(FILENAME)## &amp; &quot;:&amp;nbsp;&amp;nbsp;&lt;input name=&quot;&quot;&quot; &amp; GetFilenameField(strTableName, sFieldName) &amp; &quot;&quot;&quot; size=&quot;&quot;20&quot;&quot; maxlength=&quot;&quot;50&quot;&quot;&gt;&quot;
				onchangefile = onchangefile &amp; &quot;var path=this.form['&quot; &amp; sFieldName &amp; &quot;'].value; var wpos=path.lastIndexOf('\\'); var upos=path.lastIndexOf('/'); var pos=wpos; if(upos&gt;wpos) pos=upos; this.form['&quot; &amp; GetFilenameField(strTableName, sFieldName) &amp; &quot;'].value=path.substr(pos+1);&quot;
			end if
		end if

		if not MaxSizeSet=true then
			maxsize=&quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;MAX_FILE_SIZE&quot;&quot; value=&quot;&quot;&quot; &amp; cMaxUploadFileSize &amp; &quot;&quot;&quot;&gt;&quot;
			MaxSizeSet = true
		end if

		if onchangefile &lt;&gt; &quot;&quot; then onchangefile=&quot;onChange=&quot;&quot;&quot; &amp; onchangefile &amp; &quot;&quot;&quot;&quot;
		BuildEditControl  = BuildEditControl  &amp; disp &amp; strtype &amp; maxsize &amp; _ 
			&quot;&lt;br&gt;&lt;input type=&quot;&quot;File&quot;&quot; name=&quot;&quot;&quot; &amp; sFieldName &amp; &quot;&quot;&quot; &quot; &amp; onchangefile &amp; &quot;&gt;&quot; &amp; strfilename
			
      Case EDIT_FORMAT_LOOKUP_WIZARD    	
      	BuildEditControl = BuildSelectControl(sFieldName , sDefault, true)
      Case EDIT_FORMAT_HIDDEN   		
      	BuildEditControl = &quot;&lt;input type=hidden name=&quot;&quot;&quot; &amp; sFieldName  &amp; &quot;&quot;&quot;&quot; &amp; &quot; value=&quot;&quot;&quot; &amp; sDefault &amp; &quot;&quot;&quot;&gt;&quot;
  	  Case EDIT_FORMAT_READONLY
		BuildEditControl = &quot;&lt;input type=hidden name=&quot;&quot;&quot; &amp; sFieldName  &amp; &quot;&quot;&quot;&quot; &amp; &quot; value=&quot;&quot;&quot; &amp; sDefault &amp; &quot;&quot;&quot;&gt;&quot;' &amp; Replace(GetLookupValue(sFieldName, sDefault), vbcrlf, &quot;&lt;br&gt;&quot;)
      Case EDIT_FORMAT_FILE

		strfilename=&quot;&quot;
		onchangefile=&quot;&quot;
		jsfunc=&quot;&lt;script language=&quot;&quot;Javascript&quot;&quot;&gt;&quot; &amp; vbcrlf &amp;_
&quot;			function controlfilename&quot; &amp; BuildGoodFieldName(sFieldName) &amp; &quot;(enable)&quot;&amp; vbcrlf &amp;_
&quot;			{&quot;&amp; vbcrlf &amp;_
&quot;				if(enable)&quot;&amp; vbcrlf &amp;_
&quot;				{&quot;&amp; vbcrlf &amp;_
&quot;					document.forms.editform['&quot; &amp; sFieldName &amp; &quot;'].style.backgroundColor=&quot;&quot;white&quot;&quot;;&quot; &amp; vbcrlf &amp;_
&quot;					document.forms.editform['&quot; &amp; sFieldName &amp; &quot;'].disabled=false;&quot; &amp; vbcrlf &amp;_
&quot;				}&quot; &amp; vbcrlf &amp;_
&quot;				else&quot;&amp; vbcrlf &amp;_
&quot;				{&quot;&amp; vbcrlf &amp;_
&quot;					document.forms.editform['&quot; &amp; sFieldName &amp; &quot;'].style.backgroundColor=&quot;&quot;gainsboro&quot;&quot;;&quot;&amp; vbcrlf &amp;_
&quot;					document.forms.editform['&quot; &amp; sFieldName &amp; &quot;'].disabled=true;&quot;&amp; vbcrlf &amp;_
&quot;				}&quot;&amp; vbcrlf &amp;_
&quot;			}&quot;&amp; vbcrlf &amp;_
&quot;			&lt;/script&gt;&quot;&amp; vbcrlf

		fieldname_size=30
		if UseTimestamp(sFieldName) then fieldname_size=50
		
		if sMode=&quot;Edit&quot; then

		BuildEditControl = &quot;&quot;
			if Format(sFieldName)=FORMAT_FILE or Format(sFieldName)=FORMAT_FILE_IMAGE then
				BuildEditControl=GetData(rs(sFieldName), Format(sFieldName))
			end if
			
		' filename edit
			strfilename=&quot;&lt;input type=hidden name=&quot;&quot;filename&quot; &amp; sFieldName &amp; &quot;&quot;&quot; value=&quot;&quot;&quot; &amp; sValue &amp; &quot;&quot;&quot;&gt;&lt;br&gt;&quot; &amp; ##SCRIPTMESSAGE(FILENAME)## &amp;&quot;:&amp;nbsp;&amp;nbsp;&lt;input style=&quot;&quot;background-color:gainsboro&quot;&quot; disabled name=&quot;&quot;&quot; &amp; sFieldName &amp; &quot;&quot;&quot; size=&quot;&quot;&quot; &amp; CStr(filename_size) &amp; &quot;&quot;&quot; maxlength=&quot;&quot;100&quot;&quot; value=&quot;&quot;&quot; &amp; strEncoded &amp; &quot;&quot;&quot;&gt;&quot;
			onchangefile=&quot;var path=this.form['file&quot; &amp; sFieldName &amp; &quot;'].value; var wpos=path.lastIndexOf('\\'); var upos=path.lastIndexOf('/'); var pos=wpos; if(upos&gt;wpos) pos=upos; controlfilename&quot; &amp; BuildGoodFieldName(sFieldName) &amp; &quot;(true);&quot;
			if UseTimestamp(sFieldName) then
			  onchangefile = onchangefile &amp; &quot; this.form['&quot; &amp; sFieldName &amp; &quot;'].value=addTimestamp(path.substr(pos+1));&quot;
			else
			  onchangefile = onchangefile &amp; &quot; this.form['&quot; &amp; sFieldName &amp; &quot;'].value=path.substr(pos+1);&quot;
			end if
			strtype=&quot;&lt;br&gt;&lt;input type=&quot;&quot;Radio&quot;&quot; name=&quot;&quot;type&quot; &amp; sFieldName &amp; &quot;&quot;&quot; value=&quot;&quot;upload0&quot;&quot; checked onclick=&quot;&quot;controlfilename&quot; &amp; BuildGoodFieldName(sFieldName) &amp; &quot;(false)&quot;&quot;&gt;&quot; &amp; ##SCRIPTMESSAGE(KEEP)##
			if sValue&lt;&gt;&quot;&quot; and not IsRequired(sFieldName) then
				strtype= strtype &amp; &quot;&lt;input type=&quot;&quot;Radio&quot;&quot; name=&quot;&quot;type&quot; &amp; sFieldName &amp; &quot;&quot;&quot; value=&quot;&quot;upload1&quot;&quot; onclick=&quot;&quot;controlfilename&quot; &amp; BuildGoodFieldName(sFieldName) &amp; &quot;(false)&quot;&quot;&gt;&quot; &amp; ##SCRIPTMESSAGE(DELETE)##
				onchangefile = onchangefile &amp; &quot;this.form['type&quot; &amp; sFieldName &amp; &quot;'][2].checked=true;&quot;
			else
				onchangefile= onchangefile &amp; &quot;this.form['type&quot; &amp; sFieldName &amp; &quot;'][1].checked=true;&quot;
			end if
			
			strtype = strtype &amp; &quot;&lt;input type=&quot;&quot;Radio&quot;&quot; name=&quot;&quot;type&quot; &amp; sFieldName &amp; &quot;&quot;&quot; value=&quot;&quot;upload2&quot;&quot; onclick=&quot;&quot;controlfilename&quot; &amp; BuildGoodFieldName(sFieldName) &amp; &quot;(true)&quot;&quot;&gt;&quot; &amp; ##SCRIPTMESSAGE(UPDATE)##
		else
			strtype=&quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;type&quot; &amp; sFieldName &amp; &quot;&quot;&quot; value=&quot;&quot;upload2&quot;&quot;&gt;&quot;
			strfilename = &quot;&lt;br&gt;&quot; &amp; ##SCRIPTMESSAGE(FILENAME)## &amp; &quot;:&amp;nbsp;&amp;nbsp;&lt;input name=&quot;&quot;&quot; &amp; sFieldName &amp; &quot;&quot;&quot; size=&quot;&quot;&quot; &amp; CStr(filename_size) &amp; &quot;&quot;&quot; maxlength=&quot;&quot;100&quot;&quot;&gt;&quot;
			onchangefile = onchangefile &amp; &quot;var path=this.form['file&quot; &amp; sFieldName &amp; &quot;'].value; var wpos=path.lastIndexOf('\\'); var upos=path.lastIndexOf('/'); var pos=wpos; if(upos&gt;wpos) pos=upos;&quot;
			if UseTimestamp(sFieldName) then
			  onchangefile = onchangefile &amp; &quot; this.form['&quot; &amp; sFieldName &amp; &quot;'].value=addTimestamp(path.substr(pos+1));&quot;
			else
			  onchangefile = onchangefile &amp; &quot; this.form['&quot; &amp; sFieldName &amp; &quot;'].value=path.substr(pos+1);&quot;
			end if
		end if

		if not MaxSizeSet=true then
			maxsize=&quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;MAX_FILE_SIZE&quot;&quot; value=&quot;&quot;&quot; &amp; cMaxUploadFileSize &amp; &quot;&quot;&quot;&gt;&quot;
			MaxSizeSet = true
		end if

		if onchangefile &lt;&gt; &quot;&quot; then onchangefile=&quot;onChange=&quot;&quot;&quot; &amp; onchangefile &amp; &quot;&quot;&quot;&quot;
		BuildEditControl  = BuildEditControl &amp; jsfunc &amp; disp &amp; strtype &amp; maxsize &amp; _ 
			&quot;&lt;br&gt;&lt;input type=&quot;&quot;File&quot;&quot; name=&quot;&quot;file&quot; &amp; sFieldName &amp; &quot;&quot;&quot; &quot; &amp; onchangefile &amp; &quot;&gt;&quot; &amp; strfilename
			
   End Select

if BuildEditControl =&quot;&quot; and sFormat&lt;&gt;EDIT_FORMAT_READONLY then

		' text area
		if nType  = 203 or nType  = 201 then
			BuildEditControl = &quot;&lt;textarea cols=50 rows=10 name=&quot;&quot;&quot; &amp; sFieldName  &amp; &quot;&quot;&quot;&gt;&quot; &amp; sDefault &amp; &quot;&lt;/textarea&gt;&quot; 
		end if

		' check box
		if nType = 11 or (nType=131 and ( sValue=&quot;Yes&quot; or sValue=&quot;1&quot; or sValue=&quot;0&quot; or sValue=&quot;No&quot; )) then
			BuildEditControl = &quot;&lt;input type=checkbox name=&quot;&quot;&quot; &amp; sFieldName  &amp; &quot;&quot;&quot;&quot;
		    val = Lcase(CStr(sDefault))
			if val=&quot;yes&quot; or (IsNumeric(val) and val&lt;&gt;&quot;0&quot;) or val=&quot;true&quot; or val=&quot;on&quot; then BuildEditControl = BuildEditControl &amp; &quot; checked &quot;

			BuildEditControl = BuildEditControl &amp; &quot;&gt;&quot; 
		end if
		
		' set length for text or numeric 
		if nType&gt;=2 and nType&lt;=6 then
			strMaxLength = 10
			strSize = 10
		else
			if GetDatabaseType()= DATABASE_MySQL then
				strSize=20
				strMaxLength = 255
			else
				strMaxLength = Field.DefinedSize
				strSize = strMaxLength
			end if
		end if

		' date or datetime field
		if IsDateField(Field) then
		    if sMode = &quot;Add&quot; then
				sDefault = GetDefaultValue(sFieldName)
			end if
			BuildEditControl = GetDateEdit(sFieldName , sDefault , DateEditType(sFieldName ),sFieldName)
		elseif IsLookupField(sFieldName ) then
			BuildEditControl = BuildSelectControl(sFieldName , sValue, true)
		elseif nType &lt;&gt; 201 and nType &lt;&gt; 203 and nType &lt;&gt; 11 and nType &lt;&gt; 204 and nType &lt;&gt; 205 then
			BuildEditControl = &quot;&lt;input type=text name=&quot;&quot;&quot; &amp; sFieldName  &amp; &quot;&quot;&quot; maxlength = &quot; &amp; strMaxLength &amp; &quot; size = &quot; &amp; strSize &amp; &quot; value=&quot;&quot;&quot; &amp; sDefault &amp; &quot;&quot;&quot;&gt;&quot; 
		elseif (Field.Attributes and 128) and ( nType = 204 or nType=205 ) then
		strfilename=&quot;&quot;
		onchangefile=&quot;&quot;
		if sMode=&quot;Edit&quot; then
'             		strImageWhere = &quot; &quot; &amp; AddWrappers(strKeyField) &amp; &quot;=&quot; &amp; gstrQuote &amp; GetData(rs.Fields(strKeyField), &quot;&quot;) &amp; gstrQuote
'       			if strKeyField2&lt;&gt;&quot;&quot; then strImageWhere = strImageWhere &amp; &quot; and &quot; &amp; AddWrappers(strKeyField2) &amp; &quot;=&quot; &amp; gstrQuote2 &amp; GetData(rs.Fields(strKeyField2), &quot;&quot;) &amp; gstrQuote2
'       			if strKeyField3&lt;&gt;&quot;&quot; then strImageWhere = strImageWhere &amp; &quot; and &quot; &amp; AddWrappers(strKeyField3) &amp; &quot;=&quot; &amp; gstrQuote3 &amp; GetData(rs.Fields(strKeyField3), &quot;&quot;) &amp; gstrQuote3
       			strPK = AddWrappers(strKeyField)
       			if strKeyField2&lt;&gt;&quot;&quot; then strPK = strPK &amp; &quot;,&quot; &amp; AddWrappers(strKeyField2)
       			if strKeyField3&lt;&gt;&quot;&quot; then strPK = strPK &amp; &quot;,&quot; &amp; AddWrappers(strKeyField3)
       			BuildEditControl = CreateImageControl(rs, sFieldName, GetFilenameField(strTableName, sFieldName))

		' filename edit
			if sFormat=EDIT_FORMAT_DATABASE_FILE and GetFilenameField(strTableName, sFieldName)&lt;&gt;&quot;&quot; then
				strfilename=&quot;&lt;br&gt;&quot; &amp; ##SCRIPTMESSAGE(FILENAME)## &amp; &quot;:&amp;nbsp;&amp;nbsp;&lt;input name=&quot;&quot;&quot; &amp; GetFilenameField(strTableName, sFieldName) &amp; &quot;&quot;&quot; size=&quot;&quot;20&quot;&quot; maxlength=&quot;&quot;50&quot;&quot; value=&quot;&quot;&quot; &amp; rs(GetFilenameField(strTableName, sFieldName)) &amp; &quot;&quot;&quot;&gt;&quot;
				onchangefile=&quot;var path=this.form['&quot; &amp; sFieldName &amp; &quot;'].value; var wpos=path.lastIndexOf('\\'); var upos=path.lastIndexOf('/'); var pos=wpos; if(upos&gt;wpos) pos=upos; this.form['&quot; &amp; GetFilenameField(strTableName, sFieldName) &amp; &quot;'].value=path.substr(pos+1);&quot;
			end if
			strtype=&quot;&lt;br&gt;&lt;input type=&quot;&quot;Radio&quot;&quot; name=&quot;&quot;type&quot; &amp; sFieldName &amp; &quot;&quot;&quot; value=&quot;&quot;file0&quot;&quot; checked&gt;&quot; &amp; ##SCRIPTMESSAGE(KEEP)##
			if sValue&lt;&gt;&quot;&quot; then
				strtype= strtype &amp; &quot;&lt;input type=&quot;&quot;Radio&quot;&quot; name=&quot;&quot;type&quot; &amp; sFieldName &amp; &quot;&quot;&quot; value=&quot;&quot;file1&quot;&quot;&gt;&quot; &amp; ##SCRIPTMESSAGE(DELETE)##
				onchangefile = onchangefile &amp; &quot;this.form['type&quot; &amp; sFieldName &amp; &quot;'][2].checked=true;&quot;
			else
				onchangefile= onchangefile &amp; &quot;this.form['type&quot; &amp; sFieldName &amp; &quot;'][1].checked=true;&quot;
			end if
			
			strtype = strtype &amp; &quot;&lt;input type=&quot;&quot;Radio&quot;&quot; name=&quot;&quot;type&quot; &amp; sFieldName &amp; &quot;&quot;&quot; value=&quot;&quot;file2&quot;&quot;&gt;&quot; &amp; ##SCRIPTMESSAGE(UPDATE)##
		else
			strtype=&quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;type&quot; &amp; sFieldName &amp; &quot;&quot;&quot; value=&quot;&quot;file2&quot;&quot;&gt;&quot;
			if sFormat=EDIT_FORMAT_DATABASE_FILE and GetFilenameField(strTableName, sFieldName)&lt;&gt;&quot;&quot; then
				strfilename = &quot;&lt;br&gt;&quot; &amp; ##SCRIPTMESSAGE(FILENAME)## &amp; &quot;:&amp;nbsp;&amp;nbsp;&lt;input name=&quot;&quot;&quot; &amp; GetFilenameField(strTableName, sFieldName) &amp; &quot;&quot;&quot; size=&quot;&quot;20&quot;&quot; maxlength=&quot;&quot;50&quot;&quot;&gt;&quot;
				onchangefile = onchangefile &amp; &quot;var path=this.form['&quot; &amp; sFieldName &amp; &quot;'].value; var wpos=path.lastIndexOf('\\'); var upos=path.lastIndexOf('/'); var pos=wpos; if(upos&gt;wpos) pos=upos; this.form['&quot; &amp; GetFilenameField(strTableName, sFieldName) &amp; &quot;'].value=path.substr(pos+1);&quot;
			end if
		end if

		if not MaxSizeSet=true then
			maxsize=&quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;MAX_FILE_SIZE&quot;&quot; value=&quot;&quot;&quot; &amp; cMaxUploadFileSize &amp; &quot;&quot;&quot;&gt;&quot;
			MaxSizeSet = true
		end if

		if onchangefile &lt;&gt; &quot;&quot; then onchangefile=&quot;onChange=&quot;&quot;&quot; &amp; onchangefile &amp; &quot;&quot;&quot;&quot;
		BuildEditControl  = BuildEditControl  &amp; disp &amp; strtype &amp; maxsize &amp; _ 
			&quot;&lt;br&gt;&lt;input type=&quot;&quot;File&quot;&quot; name=&quot;&quot;&quot; &amp; sFieldName &amp; &quot;&quot;&quot; &quot; &amp; onchangefile &amp; &quot;&gt;&quot; &amp; strfilename


		end if
end if

End Function

Function BuildFieldName(strFieldName)

	BuildFieldName = Replace(strFieldName,&quot; &quot;,&quot;&quot;)
	BuildFieldName = Replace(BuildFieldName,&quot;#&quot;,&quot;&quot;)
	BuildFieldName = Replace(BuildFieldName,&quot;/&quot;,&quot;&quot;)
	BuildFieldName = Replace(BuildFieldName,&quot;(&quot;,&quot;&quot;)
	BuildFieldName = Replace(BuildFieldName,&quot;)&quot;,&quot;&quot;)
	BuildFieldName = Replace(BuildFieldName,&quot;'&quot;,&quot;&quot;)
	BuildFieldName = Replace(BuildFieldName,&quot;_&quot;,&quot;&quot;)
	BuildFieldName = Replace(BuildFieldName,&quot;-&quot;,&quot;&quot;)

End Function

Function RemoveWrappers(strValue)
	if strValue=&quot;&quot; or IsNULL(strValue) then
		RemoveWrappers=&quot;&quot;
		Exit Function
	end if

	if Left(strValue,1)=strLeftWrapper then
		RemoveWrappers = Mid(strValue, 2 ,Len(strValue)-2)
	else
		RemoveWrappers = strValue
	end if
	if Left(RemoveWrappers,1)=&quot;'&quot; then
		RemoveWrappers = Mid(RemoveWrappers, 2 ,Len(RemoveWrappers)-2)
	else
		RemoveWrappers = RemoveWrappers
	end if
	RemoveWrappers  = Replace(RemoveWrappers, strRightWrapper &amp; &quot;.&quot; &amp; strLeftWrapper, &quot;.&quot;)
RemoveWrappers = CStr(RemoveWrappers)

End Function

Function ProcessLargeText(strValue,iquery,tablename,mode)

	if LCase(Left(LTrim(strValue),7))=&quot;&lt;a href&quot; Then 
		ProcessLargeText = strValue
		Exit Function
	end if

	if Left(strValue,23)=&quot;&lt;img src=&quot;&quot;images/check_&quot; Then 
		ProcessLargeText = strValue
		Exit Function
	end if

 ProcessLargeText = strValue

if tablename=&quot;&quot; then
	tablename=&quot;##SHORTTABLENAME##&quot;
else
	tablename=GetTableURL(tablename)
end if

 vNumberOfChars = GetNumberOfChars(tablename)

if vNumberOfChars&gt;0 and mode=MODE_PRINT then 
	ProcessLargeText = Left(ProcessLargeText, vNumberOfChars )
	if len(strValue)&gt;vNumberOfChars then
		ProcessLargeText = ProcessLargeText &amp; &quot; ...&quot;
	end if
	ProcessLargeText = HTMLEncode(ProcessLargeText)
	exit function
end if

if vNumberOfChars&gt;0 then
	if Len(ProcessLargeText)&gt;vNumberOfChars and (Len(ProcessLargeText)&lt;200 or Len(iquery)=0) then
		ProcessLargeText = HTMLEncode(Left(ProcessLargeText, vNumberOfChars )) &amp; _
		&quot; &lt;a href=&quot;&quot;#&quot;&quot; onClick=&quot;&quot;javascript: pwin = window.open('',null,'height=300,width=400,status=yes,resizable=yes,toolbar=no,menubar=no,location=no,left=150,top=200,scrollbars=yes'); &quot;
		ind = 1
		ProcessLargeText = ProcessLargeText &amp; &quot;pwin.document.write('&quot; &amp; HTMLEncode(Replace(Replace(Replace(Mid(strValue,ind, ind+800),&quot;'&quot;,&quot;\'&quot;), vbcrlf, &quot;&lt;br&gt;&quot;), vblf, &quot;&lt;br&gt;&quot;)) &amp; &quot;');&quot; &amp; vbcrlf
		ProcessLargeText = ProcessLargeText &amp; &quot;pwin.document.write('&lt;br&gt;&lt;hr size=1 noshade&gt;&lt;a href=# onClick=\'window.close();return false;\'&gt;&quot; &amp; ##SCRIPTMESSAGE(CLOSE_WINDOW)## &amp; &quot;&lt;/a&gt;');&quot;
		ProcessLargeText = ProcessLargeText &amp; &quot;return false;&quot;&quot;&gt;&quot; &amp; ##SCRIPTMESSAGE(MORE)## &amp; &quot; ...&lt;/a&gt;&quot;
	elseif Len(ProcessLargeText)&gt;vNumberOfChars then
		ProcessLargeText = HTMLEncode(Left(ProcessLargeText, vNumberOfChars )) &amp; _
		&quot; &lt;a href=&quot;&quot;#&quot;&quot; onClick=&quot;&quot;javascript: pwin = window.open('',null,'height=300,width=400,status=yes,resizable=yes,toolbar=no,menubar=no,location=no,left=150,top=200,scrollbars=yes'); &quot;
		ProcessLargeText = ProcessLargeText &amp; &quot;pwin.location='&quot; &amp; tablename &amp; &quot;_fulltext.asp?&quot; &amp; iquery	&amp; &quot;';&quot;
		ProcessLargeText = ProcessLargeText &amp; &quot;return false;&quot;&quot;&gt;&quot; &amp; ##SCRIPTMESSAGE(MORE)## &amp; &quot; ...&lt;/a&gt;&quot;
	else
		ProcessLargeText = HTMLEncode(ProcessLargeText)
	end if

end if

End Function

Function EscapeQuotes(strValue)
	EscapeQuotes = Replace(strValue, &quot;'&quot;, &quot;\'&quot;)
	EscapeQuotes = HTMLEncode(EscapeQuotes)
End Function

Function HTMLEncode(str)

if str=&quot;&quot; or IsNull(str) then
	HTMLEncode=&quot;&quot;
else
	HTMLEncode = Server.HTMLEncode(str)
end if

End Function



Function CreateImageControl(rsData, sFieldName, FilenameField)

		key=&quot;&quot;
		if strKeyField&lt;&gt;&quot;&quot; then key = GetData(rsData.Fields(strKeyField), &quot;&quot;)
		key2=&quot;&quot;
		if strKeyField2&lt;&gt;&quot;&quot; then key2 = GetData(rsData.Fields(strKeyField2), &quot;&quot;)
		key3=&quot;&quot;
		if strKeyField3&lt;&gt;&quot;&quot; then key3 = GetData(rsData.Fields(strKeyField3), &quot;&quot;)

		strImageWhere = &quot; &quot; &amp; KeyWhere(key,key2,key3)

	if FilenameField=&quot;&quot; then
		CreateImageControl = &quot;&lt;img border=0 src=&quot;&quot;##SHORTTABLENAME##_imager.asp?picfield=&quot; &amp; _ 
			Server.URLEncode(sFieldName) &amp; &quot;&amp;where=&quot; &amp; Server.URLEncode(strImageWhere) &amp; &quot;&quot;&quot;&gt;&quot;
	else
		CreateImageControl = &quot;&lt;img border=0 src=&quot;&quot;##SHORTTABLENAME##_imager.asp?picfield=&quot; &amp; _ 
			Server.URLEncode(sFieldName) &amp; &quot;&amp;where=&quot; &amp; Server.URLEncode(strImageWhere) &amp; &quot;&quot;&quot;&gt;&quot;

			binTemp = rsData(sFieldName).GetChunk(300)

			if not IsNull(binTemp) then
				CreateImageControl = &quot;&lt;a href=&quot;&quot;##SHORTTABLENAME##_getfile.asp?picfield=&quot; &amp; _ 
				Server.URLEncode(sFieldName) &amp; &quot;&amp;filename=&quot; &amp; Server.URLEncode(rsData(FilenameField)) _ 
				&amp; &quot;&amp;where=&quot; &amp; Server.URLEncode(strImageWhere) &amp; &quot;&quot;&quot;&gt;&quot; &amp; CreateImageControl &amp; &quot;&lt;/a&gt;&quot;
			end if
	end if
End Function


Function InSQL(sField, sSQL)
	
	if InStr(1, LCase(sSQL), LCase(sField) &amp; &quot;,&quot;)&lt;1 and InStr(1, LCase(sSQL), LCase(sField) &amp; &quot; &quot;)&lt;1 and _
		InStr(1, LCase(sSQL), strLeftWrapper &amp; LCase(sField) &amp; strRightWrapper &amp; &quot;,&quot;)&lt;1 and InStr(1, LCase(sSQL), strLeftWrapper &amp; LCase(sField) &amp; strRightWrapper &amp; &quot; &quot;)&lt;1 then
			InSQL = False
	else
			InSQL = True
	end if
	
End Function

Function IsUpdatable(Field)

		if Field.Attributes and 4 or Field.Attributes and 8 then
			bUpdatable=true
		else
			bUpdatable=false
		end if		

		if bUpdatable then 
			IsUpdatable=&quot;True&quot;
		else
			IsUpdatable=&quot;False&quot;
		end if

		' long binary data
	'	if (Field.Attributes and 128) and ( Field.Type = 204 or Field.Type=205 ) then
	'		IsUpdatable=&quot;False&quot;
	'	end if

End Function

Sub GetADOXConnection

   if InStr(1, strConnection, &quot;Microsoft Access Driver&quot;) &gt; 0 then
       set oCat = server.CreateObject(&quot;ADOX.Catalog&quot;) 
       if Err.number=0 then
       		ind = InStr(1, strConnection, &quot;DBQ=&quot;)
       		if ind&gt;0 then
       			ind2=InStr(ind+1, strConnection, &quot;;&quot;)
				if ind2&lt;ind then ind2=len(strConnection)+1
				sConnection = &quot;Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=&quot; &amp; Mid(strConnection, ind+Len(&quot;DBQ=&quot;), ind2-ind-Len(&quot;DBQ=&quot;))

				if InStr(LCASE(strConnection), &quot;pwd=&quot;)&lt;1 or Right(LCASE(strConnection),4)= &quot;pwd=&quot;  then
      	 				oCat.ActiveConnection = sConnection
      	 			if Left(strOriginalTableName,1)=&quot;[&quot; then
      			 		strADOXTableName = Mid(strOriginalTableName,2,len(strOriginalTableName)-2)
       				else
          				strADOXTableName = strOriginalTableName 
	   				end if
				end if
   			end if
       end if
       Err.Clear
   end if

End Sub

Function GetLegendIcon(sFieldName, nType, i)
	
   	if sFieldName = strKeyField or sFieldName =strKeyField2 or sFieldName = strKeyField3 then
		GetLegendIcon = GetLegendIcon  &amp; &quot;&amp;nbsp;&lt;img src=images/icon_required.gif&gt;&quot;
		else
			if IsRequired(sFieldName) then
				GetLegendIcon = GetLegendIcon  &amp; &quot;&amp;nbsp;&lt;img src=images/icon_required.gif&gt;&quot;
			end if
	end if

End Function




function RTESafe(strText)
	'returns safe code for preloading in the RTE
	dim tmpString
	
	tmpString = trim(strText)
	if tmpString =&quot;&quot; or isNull(tmpString) then Exit Function
	
	'convert all types of single quotes
	tmpString = replace(tmpString, chr(145), chr(39))
	tmpString = replace(tmpString, chr(146), chr(39))
	tmpString = replace(tmpString, &quot;'&quot;, &quot;&amp;#39;&quot;)
	
	'convert all types of double quotes
	tmpString = replace(tmpString, chr(147), chr(34))
	tmpString = replace(tmpString, chr(148), chr(34))
'	tmpString = replace(tmpString, &quot;&quot;&quot;&quot;, &quot;\&quot;&quot;&quot;)
	
	'replace carriage returns &amp; line feeds
	tmpString = replace(tmpString, chr(10), &quot; &quot;)
	tmpString = replace(tmpString, chr(13), &quot; &quot;)
	
	RTESafe = tmpString
end function





Function CheckSecurity(strValue, strAction)

   	if cAdvSecurityMethod = ADVSECURITY_ALL or Session(&quot;AccessLevel&quot;)=ACCESS_LEVEL_ADMIN then
		CheckSecurity = True
		if Session(&quot;AccessLevel&quot;)=ACCESS_LEVEL_ADMIN then Exit Function
	end if

	if cAdvSecurityMethod = ADVSECURITY_EDIT_OWN and ( strAction=&quot;Edit&quot; or strAction=&quot;Delete&quot;) then
		if RemoveWrappers(SESSION(&quot;_&quot; &amp; strTableName &amp; &quot;_OwnerID&quot;))=RemoveWrappers(CStr(strValue)) then
			CheckSecurity = True
		else
			CheckSecurity = False
			Exit Function
		end if
	else
		CheckSecurity = True
	end if
	

##LOGIN##
	' check user group permissions
	strPerm = GetUserPermissions()
	if strAction=&quot;Add&quot; and InStr(strPerm, &quot;A&quot;)&gt;0 or strAction=&quot;Edit&quot; and InStr(strPerm, &quot;E&quot;)&gt;0 _
		or strAction=&quot;Delete&quot; and InStr(strPerm, &quot;D&quot;)&gt;0 or strAction=&quot;Search&quot; and InStr(strPerm, &quot;S&quot;)&gt;0 _ 
		or strAction=&quot;Export&quot; and InStr(strPerm, &quot;P&quot;)&gt;0 then
		CheckSecurity = True
	else
		CheckSecurity = False
	end if
##/LOGIN##

End Function


##LOGIN##

Function GetUserPermissions()

sUserName = Session(&quot;GroupID&quot;)
Select Case sUserName
##USERGROUPS##
Case &quot;##USERNAME##&quot;
	GetUserPermissions = &quot;##PERMISSIONS##&quot;
##/USERGROUPS##
Case Else
	GetUserPermissions = &quot;##DEFAULT_PERMISSIONS##&quot;
End Select

End Function

##/LOGIN##

Function FormatDbDate(strValue,nFormat)

Dim i,j

	if strValue=&quot;0-0-0&quot; then
		FormatDbDate=&quot;&quot;
		Exit Function
	end if
	i=1
	j=0
	dim n(6)
	strTemp=&quot;&quot;
	while i&lt;=Len(strValue) and j&lt;3
		if asc(mid(strValue,i,1))&gt;=asc(&quot;0&quot;) and asc(mid(strValue,i,1))&lt;=asc(&quot;9&quot;) then
			strTemp=strTemp &amp; mid(strValue,i,1)
		else
			if len(strTemp)&gt;0 then
				n(j)=CLng(strTemp)
				strTemp=&quot;&quot;
				j=j+1
			end if
		end if
		i=i+1
	wend
	
	if j&lt;2 then
		FormatDbDate = &quot;&quot;
		Exit Function
	end if
	
	if i&lt;=Len(strValue) and i&gt;0 then 
		sRem = Mid(strValue, i-1)
	end if
	
	if len(strTemp)&gt;0 then
		n(j)=CLng(strTemp)
	end if
	d=0
	m=0
	y=0

	if nFormat=EDIT_DATE_SIMPLE_DDMMYYYY_DP then
		d=n(0)
		m=n(1)
		y=n(2)
	elseif nFormat=EDIT_DATE_SIMPLE_MMDDYYYY_DP then
		d=n(1)
		m=n(0)
		y=n(2)
	elseif nFormat=EDIT_DATE_DDMMYYYY or nFormat=EDIT_DATE_DDMMYYYY_DP or _
			nFormat=EDIT_DATE_MMDDYYYY or nFormat=EDIT_DATE_MMDDYYYY_DP then
		FormatDbDate = strValue
		Exit Function		
	else
		strValue = CDate(strValue)
		y = Year(strValue)
		m = Month(strValue)
		d = Day(strValue)
	end if
	if y&lt;100 then
		if y&lt;70 then
			y=y+2000
		else
			y=y+1900
		end if
	end if
	FormatDbDate=CStr(y) &amp; &quot;-&quot; &amp; iif(m&lt;10, &quot;0&quot; &amp; CStr(m), CStr(m)) &amp; &quot;-&quot; &amp; iif(d&lt;10, &quot;0&quot; &amp; CStr(d), CStr(d)) &amp; sRem

end function

Function GetLookupValue(sFieldName, strData )
##ALLFIELDS##
	if sFieldName=&quot;##FIELD##&quot; then
		##DBLOOKUPFIELD##
	       If Not IsNull(strData) Then
	
			strData = Replace(strData, &quot;'&quot;, &quot;''&quot;)
			if IfNeedQuotes(GetFieldType(strTableName, sFieldName)) then
				strData = GetQuote(strTableName,  sFieldName) &amp; strData &amp; GetQuote(strTableName,  sFieldName)
			end if
	
	           	sqlt = &quot;SELECT ##DISPLAYFIELD## FROM ##LOOKUPTABLE## WHERE ##LINKFIELD## = &quot; &amp; strData
	       		Set rst = dbConnection.Execute(sqlt)
	       		If Not rst.EOF Then
	         		GetLookupValue = rst(0)
	       		End If
	       		rst.Close
	       		Set rst= Nothing
	       End If
		##/DBLOOKUPFIELD##
		##NOTDBLOOKUPFIELD##
			GetLookupValue = strData
		##/NOTDBLOOKUPFIELD##		
	end if
##/ALLFIELDS##		
End Function

Function InArray(arr, str)

if IsNull(arr) or IsEmpty(arr) then
	InArray = False
	Exit Function
end if

if UBound(arr)&lt;LBound(arr) then 
	InArray = False
	Exit Function
end if

InArray = false

For ind=LBound(arr) to UBound(arr)
	if arr(ind)=str then
		InArray = true
		Exit Function
	end if
Next 


End Function


Function ParseMultiPartForm


if Request.TotalBytes = 0 then
	ParseMultiPartForm = false
	Exit Function
end if


ParseMultiPartForm = true
Dim postData
postData = Request.BinaryRead(Request.TotalBytes)

contentType = Request.ServerVariables( &quot;HTTP_CONTENT_TYPE&quot;)
ctArray = split( contentType, &quot;;&quot;)
if trim(ctArray(0)) = &quot;multipart/form-data&quot; then
	errMsg = &quot;&quot;
	' grab the form boundry...
	bArray = split( trim( ctArray(1)), &quot;=&quot;)
	boundry = Unicode2Bytes(&quot;--&quot; &amp; trim( bArray(1)))

		currentPos = 1
		inStrByte = 1
		While inStrByte &gt; 0
			inStrByte = InStrB(currentPos, postData, boundry)
			m = inStrByte - currentPos
			If m &gt; 1 Then
    			val = MidB(postData, currentPos, m)
    			
        		infoEnd = instrB( val, chrb(13) &amp; chrb(10) &amp; chrb(13) &amp; chrb(10) )
        		if infoEnd &gt; 0 then
        			varInfo = Bytes2String(midb( val , 1, infoEnd - 1))
        			varValue = midb( val , infoEnd + 4, lenb(val) - infoEnd - 5)
				if InStr(1, varInfo, &quot;Content-Type&quot;) &lt; 1 then varValue=Bytes2String(varValue)
				strField = getFieldName(varInfo)
				if myRequest.exists(strField) then
					myRequest(strField) = myRequest(strField) &amp; &quot;,&quot; &amp; varValue
        			else
					myRequest.add strField, varValue
				end if
				
        		end if
			end if
			currentPos = lenb(boundry) + inStrByte
		wend

else
	errMsg = &quot;Wrong encoding type!&quot;
end if 

End Function


' This function retreives a field's name
function getFieldName( infoStr)
	sPos = inStr( infoStr, &quot;name=&quot;)
	endPos = inStr( sPos + 6, infoStr, chr(34) &amp; &quot;;&quot;)
	if endPos = 0 then
		endPos = inStr( sPos + 6, infoStr, chr(34))
	end if
	getFieldName = mid( infoStr, sPos + 6, endPos - (sPos + 6))
end function

' This function retreives a file field's filename
function getFileName( infoStr)
	sPos = inStr( infoStr, &quot;filename=&quot;)
	endPos = inStr( infoStr, chr(34) &amp; crlf)
	getFileName = mid( infoStr, sPos + 10, endPos - (sPos + 10))
end function

' This function retreives a file field's mime type
function getFileType( infoStr)
	sPos = inStr( infoStr, &quot;Content-Type: &quot;)
	getFileType = mid( infoStr, sPos + 14)
end function

Function GetRequestForm(key)

if myRequest.Exists(key) then
	GetRequestForm = myRequest(key)
else
	GetRequestForm = Request.QueryString(key)
end if

End Function

Function Unicode2Bytes(str)
	
For ind = 1 To len(str) 
     Unicode2Bytes = Unicode2Bytes&amp; ChrB(Asc(Mid(str, ind, 1)))
Next 

End Function

Function Bytes2String(bytes)

	For i = 1 to LenB(bytes)
		byteord = AscB(MidB(bytes, i, 1))
		If byteord &lt; &amp;H80 Then ' Ascii
			Bytes2String= Bytes2String&amp; Chr(byteord)
		Else ' Double-byte characters?
			If i &lt; LenB(bytes) Then
				nextbyteord = AscB(MidB(bytes, i+1, 1))
				On Error Resume Next
			        Bytes2String= Bytes2String&amp; Chr(CInt(byteord) * &amp;H100 + CInt(nextbyteord))
				If Err.Number &lt;&gt; 0 Then
					On Error GoTo 0
					Bytes2String= Bytes2String&amp; Chr(byteord) &amp; Chr(nextbyteord)
				End If
				i = i + 1
			ElseIf i = LenB(bytes) Then
				Bytes2String= Bytes2String&amp; Chr(byteord)
			End If
		End If
	Next
End Function


Function GetTables()

sUserName = Session(&quot;GroupID&quot;)
Select Case sUserName
##USERGROUPS##
Case &quot;##USERNAME##&quot;
	GetTables = ##AVAILABLE_TABLES##
##/USERGROUPS##
Case Else
	GetTables = ##DEFAULT_TABLES##
End Select

End Function

function GetShortTableName(table)

	##TABLES##
	if table=&quot;##TABLENAME##&quot; then	
		GetShortTableName = &quot;##SHORTTABLENAME##&quot;
		Exit Function
	end if
	##/TABLES##

End Function

function GetTableCaption(table)

	##TABLES##
	if table=&quot;##TABLENAME##&quot; then
		GetTableCaption = &quot;##CAPTION##&quot;
		Exit Function
	end if
	##/TABLES##

End Function

function UseTimestamp(field)
	UseTimestamp=false
	##ALLFIELDS## if field=&quot;##FIELD##&quot; then UseTimestamp = ##ADDTIMESTAMP## end if
	##/ALLFIELDS##
end function

function GetUploadFolder(field)
	GetUploadFolder=&quot;&quot;
	##ALLFIELDS## if field=&quot;##FIELD##&quot; then GetUploadFolder = &quot;##UPLOADFOLDER##&quot; end if
	##/ALLFIELDS##
	If Right(GetUploadFolder, 1)&lt;&gt;&quot;/&quot; then GetUploadFolder = GetUploadFolder &amp; &quot;/&quot;
end function

Function SecuritySQL(strAction)

##LOGIN##
   	ownerid=SESSION(&quot;_&quot; &amp; strTableName &amp; &quot;_OwnerID&quot;)
	if Session(&quot;AccessLevel&quot;)=ACCESS_LEVEL_ADMIN then
		SecuritySQL = &quot;&quot;
		Exit Function
	end if
	ret=&quot;&quot;
	if cAdvSecurityMethod = ADVSECURITY_VIEW_OWN or _ 
	   cAdvSecurityMethod = ADVSECURITY_EDIT_OWN and (strAction=&quot;Edit&quot; or strAction=&quot;Delete&quot;) then
		ret=GetFullFieldName(strTableName,&quot;##OWNERID##&quot;) &amp; &quot;=&quot; &amp; GetQuote(strTableName, &quot;##OWNERID##&quot;) &amp; ownerid &amp; GetQuote(strTableName, &quot;##OWNERID##&quot;)
	end if
	strPerm = GetUserPermissions()
	if strAction=&quot;Edit&quot; and InStr(strPerm, &quot;E&quot;)&gt;0 or _ 
	   strAction=&quot;Delete&quot; and InStr(strPerm, &quot;D&quot;)&gt;0 or _ 
	   strAction=&quot;Search&quot; and InStr(strPerm, &quot;S&quot;)&gt;0 or _
	   strAction=&quot;Export&quot; and InStr(strPerm, &quot;P&quot;)&gt;0 then
		SecuritySQL = ret
		Exit Function
	else
		SecuritySQL = &quot;1=0&quot;
		Exit Function
	end if
##/LOGIN##
	SecuritySQL = &quot;&quot;

End Function

Sub DeleteUploadedFiles(where)

	dim i
	set rsTmp = Server.CreateObject(&quot;ADODB.Recordset&quot;)
	rsTmp.Open &quot;select * from &quot; &amp; strOriginalTableName &amp; &quot; &quot; &amp; where, dbConnection
	if not rsTmp.Eof then
		for i=0 to rsTmp.Fields.Count-1
			if GetEditFormat(rsTmp.Fields(i).Name)=EDIT_FORMAT_FILE then 
				DeleteFile Server.MapPath(GetUploadFolder(rsTmp.Fields(i).Name) &amp; rsTmp(rsTmp.Fields(i).Name))
			end if
		next	
			rsTmp.Close
			set rsTmp = Nothing
	end if


End Sub

function KeyWhere(key,key2,key3)

KeyWhere = GetFullFieldName(strTableName,strKeyField) &amp; &quot;=&quot; &amp; gstrQuote &amp; Replace(key,&quot;'&quot;,&quot;''&quot;) &amp; gstrQuote
		if strKeyField2&lt;&gt;&quot;&quot; then _
			KeyWhere=KeyWhere &amp; &quot; and &quot; &amp; GetFullFieldName(strTableName,strKeyField2) &amp; &quot;=&quot; &amp; gstrQuote2 &amp; Replace(key2,&quot;'&quot;,&quot;''&quot;) &amp; gstrQuote2
		if strKeyField3&lt;&gt;&quot;&quot; then _
			KeyWhere=KeyWhere &amp; &quot; and &quot; &amp; GetFullFieldName(strTableName,strKeyField3) &amp; &quot;=&quot; &amp; gstrQuote3 &amp; Replace(key3,&quot;'&quot;,&quot;''&quot;) &amp; gstrQuote3
end function
%&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CBuoni%2Dspesa%2DOLD%5Cinclude">Íàçàä</a>]