Cookie

Еще один Лох
Дата: 04.12.2007 13:36:29
Уважаемые господа!
Не могу понять - код ниже - если с комментариями то "кук" есть
убираю комментарии "кука" - нет - в чем может быть дело, как бороться?
Спасибо за содействие

procedure TWebModule1.WebModule1logonAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

begin

U:=Request.ContentFields.Values['User'];
P:=Request.ContentFields.Values['Psw'];

with Response.Cookies.Add do
begin
Name := 'User';
Value:=U;
end;
with Response.Cookies.Add do
begin
Name := 'Psw';
Value:=P;
end;

Conn.Open;
Q.Close;Q.SQL.Clear;
Q.SQL.Add('select * from user_list where user_='+char(39)+U+char(39)+' and psw_='+char(39)+P+char(39));
Q.Open; Q.First;

if Q.RecordCount=0 then
begin
Response.Content:='<h1>Итдите лесом с таким поролем;
// Response.SendRedirect('../WebRegistryPrj.dll/error?err=ошибка аунтификации');

end
else
begin
Response.Content:='<h1>Пучком';
// Response.SendRedirect('../WebRegistryPrj.dll/search');
end ;

Q.Close;
Handled:=true;
end;