急：websnap+ado连接sql2000出错，在线等待帮助

我想用程序控制数据库的读写，用的是websnap data module+ADO，
数据库为SQL2000，操作试了几天了，一连数据库就出错，不知道什
么原因，求助!!
procedure TPageProducerPage1.PageProducerHTMLTag(Sender: TObject;
  Tag: TTag; const TagString: String; TagParams: TStrings;
  var ReplaceText: String);
var
  getuserID:string;
begin
  getuserID:=request.RemoteAddr
  ADOTable1logip.Value:=adogetuserID;
  ReplaceText:='你的登入IP是='+request.RemoteAddr
              +'<br>你登入的时间是='+datetostr(sysdate);
end;