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

finally

Close;

end;

end;

function TWebModule1.CreateGroupList(Gr1,Gr2,Kind:Integer) : string;

var fs: TFileStream; i: Integer;

begin

Result := '<B><FONT SIZE=+1>'+sContent+'<BR></FONT></B><HR>';

with GroupQuery do

begin

if Gr1=0 then

SQL.Text := 'SELECT * FROM Groups WHERE SubGroup=0'

else

SQL.Text := Format('SELECT * FROM Groups WHERE (MainGroup=%d) and (SubGroup>0)',[Gr1]);

try

Result := Result + GroupListProducer(GroupQuery,Kind);

if Gr1<>0 then

Result := Result + Format('<A HREF="%s/GetGroup?Gr1=%d&Gr2=%d&Kind=%d">TхЁэєЄ№ё ъ юуыртыхэш¦</A><BR>',

[Request.ScriptName, 0,0, Kind]);

except

on E:EDBEngineError do

begin

Result := Result + '+°шсър BDE'+'<BR>';

for i:=0 to E.ErrorCount -1 do

Result := Result + E.Errors[i].Message + '<BR>';

end;

end;

end;

Result := Result+'<HR><a href="http://'+Request.Host+HTMLPath+'/search.htm">¦юшёъ</A>'