紧急求助（Delphi200 Intraweb编程） ( 积分: 100 )

[?][]以下程序在WIN32下通过，但移植到intraweb下，出现问题：
var i,q,p:integer;
Bu_na,che,str,PSTR,SA,Bu_code1,Bu_code2:string;
sid,syear,sdefen,Sculum,str1,ss:string;
begin
with ADOQuery2 do
begin
str:='select Id,defen,YearId from pinggubiao where UnitId=''147001'' AND YearId=''2005'' order by id';
ADOQuery2.Close ;
ADOQuery2.SQL.Clear ;
ADOQuery2.SQL.Add(str);
ADOQuery2.Open ;
//程序编译时从此直接跳出，无法运行下面语句，不知是何原因，请各位专家帮忙！！
IF ADOQuery2.recordcount<>0 THEN
while not ADOQuery2.eof do
begin
sdefen :=ADOQuery2.FieldByName('defen').AsString ;
sid:=ADOQuery2.FieldByName('Id').AsString;
syear:=ADOQuery2.FieldByName('YearId').AsString ;

pstr:='Update gongxiaoDBFXyear set UnitId001='''+sdefen+''' where id='''+sid+'''';
ADOQuery3.Close ;
ADOQuery3.SQL.Clear ;
ADOQuery3.SQL.Add(PSTR);
ADOQuery3.ExecSQL ;
ADOQuery2.next;
end;
end;
end;

看来没人能解此难题。