void __fastcall TWebModule1::WebModule1WebActionItem1Action(
TObject *Sender, TWebRequest *Request, TWebResponse *Response,
bool &Handled)
{
Query1 -> Open();
Query1 -> First();
while( Query1 -> Eof )
{
Pregunta = (Pregunta + Query1 -> FieldByName( "PREGUNTA" )->AsString);
Query1 -> Next( );
}
Query1 -> Close( );
PageProducer1->HTMLFile = "MOSTRARCGI.html";
Response->Content = PageProducer1->Content();
}
void __fastcall TWebModule1::PageProducer1HTMLTag(TObject *Sender,
TTag Tag, const AnsiString TagString, TStrings *TagParams,
AnsiString &ReplaceText)
{
if(CompareText(TagString, "pregunta" ) == 0)
{
ReplaceText = Pregunta;
//ReplaceText = ((TPageProducer *)Sender)->Dispatcher->Request-> Content;
}
}