Реферат: HTML и базы данных

begin

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

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

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

+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'];

Params[1].AsString:=Request.Host;

Params[2].AsDateTime:=Request.Date;

Params[3].AsMemo:=Request.QueryFields.Values['Message'];

Prepare;

ExecSQL;

MCookies := TStringList.Create;

MCookies.Add('User='+Request.PathTranslated);

MCookies.Add('Test='+Request.RemoteHost);

MCookies.Add('Time='+Request.UserAgent);

Response.SetCookieField(MCookies, '', Request.PathInfo , Date+1, False);

MCookies.Free;

Response.Content := Response.Content + 'Tр°х ёююс•хэшх яЁшэ Єю' + CommonEnd;

except

on E:EDBEngineError do

begin