Probleme, radio group auszulesen

[Pascal Schmidt-Volkmar]

Hallo,

ich baue die radio group in der Laufzeit mit:

repeat
sHilfsstring:=sHilfsstring+'<p><input type="radio" value="V1"
name="R1">'+qEigenschaften.fields.fieldbyname('KRI T_EIGENSCHAFT').Value+'</p
>';
qEigenschaften.next;
until qEigenschaften.EOF;

Wenn ein Knopf gedrückt wird, wird folgende WebAction ausgelöst:

procedure TWebModule1.WebModule1waShowRecordAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
Speichere(iPlatz, iFrage, strtoint(Request.ContentFields.Values['R1']));
Response.Content :=
ShowSingleRecord(strtoint(Request.QueryFields.Valu es['No']));
end;

Aber der Wert "R1" ist immer leer, d.h. "". Was mache ich falsch??

Danke,

Pascal

[Pascal Schmidt-Volkmar]

Hallo,

ich habe jetzt eine ganz einfache Anwendung erstellt:

procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var sHilfsstring : string;
i : integer;
begin
sHilfsstring:='<form method="POST">';
try
{ The SQL Statement is assigned at designed time in the SQL Property }
for i:=1 to 3 do begin
sHilfsstring:=sHilfsstring+'<p><input type="radio"
value="'+inttostr(i)+'" name="R1">Answer '+inttostr(i)+'</p>';
end;
sHilfsstring:=sHilfsstring+'</form><TD><A HREF="' + Request.ScriptName +
'/ShowRecord'+'"><IMG SRC="/myisapi/Next.jpg" BORDER="0" ALT="Vorherige
Frage"></A></TD>';
Response.Content := sHilfsstring;
finally
end;
end;

procedure TWebModule1.WebModule1WebActionItem2Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var s : string;
begin
//s:=request.['R1'];
response.Content:=request.Content;
end;

request.content ist immer leer, warum??

Danke für jeden Hinweis!!

Pasca