delphi i cgi

0

mam taka procedurę:

Procedure GenBase();
     var i,v,s:string;
       begin
        if not login then
        begin
         Write('<form action="cgi1.exe" method="Get">Login<input type="text" name="user"/><br/>Hasło<input type="password" name="pass"/><br/><input type="submit" value="LogIn"/></form>');
        exit;
        end;
        while arg.Count>0 do
        begin
        i:=arg.Names[0];
        v:=arg.ValueFromIndex[0];
        s:='INSERT INTO QUESTIONS (TEXT, ID) VALUES("'+v+ '","'+i+'")';
        dm.ds.Open();
        writeln ('Zapytanie: '+s+'<br>Count: ');
        writeln (arg.Count);
        write ('<br>');
      dm.dc.ExecuteDirect(s);
        dm.ds.Next();
       arg.Delete(0);
        end;
        dm.ds.Close();
end;

bazę danych w której mam m.i tabelę

CREATE TABLE QUESTIONS 
(
  TEXT	VARCHAR(255),
  ANS	VARCHAR(255),
  ID	VARCHAR(1)
);

Po uzupełnieniu odp. pol do generowania formularza zapytania są dobrze realizowane ponieważ wyświetla mi :

Zapytanie: INSERT INTO QUESTIONS (TEXT, ID) VALUES("Pytanie+1","1")
Count: 3
Zapytanie: INSERT INTO QUESTIONS (TEXT, ID) VALUES("Pytanie+2","2")
Count: 2
Zapytanie: INSERT INTO QUESTIONS (TEXT, ID) VALUES("Pytanie+3","3")
Count: 1 

na stronie, ale nie zapisuja sie dane do bazy to. Pytanie czemu ?

1 użytkowników online, w tym zalogowanych: 0, gości: 1