//for delphi
begin
for i:=0 to DS_girls.recordcount -1 do
ShowMessage('Seni sevioommm KIRMIZIKAHVE ' + DS_Girls.UserName);
end;
'for asp
for i=0 to DS_girls.recordcount -1
response.write "Seni sevioom KIRMIZIKAHVE "&DS_Girls.fields("UserName").value
DS_Girls.moneNext
Next