>>The following code is contained in a method of a COM dll designed to service an ASP web page and fails to save the new value of RTA.approved.
>>Uploadstatus is the name of a checkbox whose value is "True".
>>
>>

>>select RTA
>>scatter name loProject memo
>>
>>* . . . change some values of loProject
>>	
>>if alltrim(loRequest.form("uploadstatus").item()) = "True"
>>  loProject.approved = .t.
>>else
>>  loProject.approved = .f.	
>>endif	
>>
>>gather name loProject memo
>>

>>
>>
>>However the following seems to work OK.
>>
>>

>>select RTA
>>scatter name loProject memo
>>
>>* . . . change some values of loProject
>>	
>>if alltrim(loRequest.form("uploadstatus").item()) = "True"
>>  replace RTA.approved with .t.
>>else
>>  replace RTA.approved with .f.	
>>endif	
>>
>>gather name loProject memo
>>

>>
>>Can someone explain why the first doesn't work?
>
>I think code in:
>
>* . . . change some values of loProject
>
>causes it to fail. For example is current alias RTA?
>Cetin

Here's the entire function. The only difference between the 2 versions is in the IF statement.

*********************************************************************
* RTAServer :: RTASaveDetailEdits
*********************************************************************
***	Function:	Saves Edits made by user into the RTAProjects table
***				and saves a copy of the previous data into the OldData
***				table.
***	Pass:		Request, Response, Session
***	Return:		Confirmation message
*********************************************************************
	func RTASaveDetailEdits
	lparameters loRequest, loResponse, loSession
	this.lError = .f.
	
	if ! this.OpenRTAProjectsTable()
		return "Cannot find RTAProjects table."
	endif
	if ! this.OpenOldDataTable()
		return "Cannot find OldData table."
	endif
		
	Project_id = loRequest.form("RTA_ID").item()
	
	select RTA
	loca for rta.rta_id = val(project_id)
	
	if found()
		scatter name loProject memo
		select olddata
		append blank
		go bott
		gather name loProject memo
		select rta
	else
		return "<center><font size=4>Project " + Project_id + " could not be found.</font></center>"
	endif
		
	loProject.tip_id = loRequest.form("tip_id").item()
	loProject.projname = loRequest.form("projname").item()	
	loProject.description = loRequest.form("description").item()
	loProject.sponsor = loRequest.form("sponsor").item()
	loProject.contact = loRequest.form("contact").item()
	loProject.phone = loRequest.form("phone").item()
	loProject.emailaddr = loRequest.form("emailaddr").item()
	loProject.est_const = loRequest.form("est_const").item()
	loProject.status = loRequest.form("status").item()
	loProject.designer = loRequest.form("designer").item()
	loProject.map = loRequest.form("map").item()
	loProject.rtacost = loRequest.form("rtacost").item()
	loProject.nonrtacost = loRequest.form("nonrtacost").item()
	loProject.totalcost = loRequest.form("totalcost").item()
	loProject.rtaspent = loRequest.form("rtaspent").item()
	loProject.nonrtaspent = loRequest.form("nonrtaspent").item()
	loProject.period = loRequest.form("period").item()
	loProject.category = loRequest.form("category").item()
	loProject.nextevents = loRequest.form("nextevents").item()

	if alltrim(loRequest.form("uploadstatus").item()) = "True"
		replace RTA.approved with .t.
	else
		replace RTA.approved with .f.	
	endif	

	loProject.lastupdate = date()
	
	select RTA
	gather name loProject memo
		
	use in RTA
	use in olddata
	
	return "Your report has been received. Thank you. <br>Your updates " + ;
	" will be posted to the website as soon <br> as they can be processed by the RTA Manager."

endfunc