Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата

 end;

end;

procedure TWebModule1.WebModule1AcceptOrderAction(Sender: TObject;

  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

begin

 Response.Content := CommonLook+sOrderAccepted+CommonEnd;

 // -ры№°х тёЄрт№Єх ётющ ъюф фы тъы¦ўхэш чрърчр т срчє

end;

procedure TWebModule1.WebModule1SearchAction(Sender: TObject;

  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

 var s: string;

begin

 s:= Request.QueryFields.Values['Phrase'];

 GroupQuery.SQL.Text := 'SELECT * FROM Groups WHERE GroupName LIKE "%'+s+'%"';

 Response.Content := CommonLook+'
¦хчєы№ЄрЄv яюшёър '+s+':
'

 +GroupListProducer(GroupQuery,0)+CommonEnd;

end;

procedure TWebModule1.WebModule1AddMSgAction(Sender: TObject;

  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

 var MCookies : TStringList;i: integer;

begin

 Response.Content := CommonLook;

 with AddMsgQuery do

 try

  Params[0].AsString:=Request.QueryFields.Values['Sender'];

Рекомендуем скачать другие рефераты по теме: шпоры по социологии, бесплатные ответы.



Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки