Date:  12/14/2007 10:41:18 AM Msg ID:  003625
From:  George Gambill Thread:  003625
Subject:  repl memoFld with \'<%something%>\' fails

I have the following code created with “HTML-Kit” and get the this error message in the browser:

   Line #:            620   Line:            ' <%RetGVar("grblCoOffTer0") Notice, no closing %> and no closing single quote. 

The line of code is”

   '<%RetGVar("grblCoOffTer1")%>' +;

  

The code is as follows”

<%

***********************

Proc ShowCoOffTerRadio

***********************

local l_wa, lrblAdmin

l_wa = sele()

if used('ShowCoOfTe')

  use in ShowCoOfTe

endif

create cursor ShowCoOfTe (HTML M)

sele ShowCoOfTe

append blank

 

m.lrblAdmin                  = Request.Form('rblAdmin')

 

if m.lrblAdmin <> '1'

  repl HTML with HTML + '</TBODY></TABLE></TD></TR> '

  Response.Write(ShowCoOfTe.HTML)

  use in ShowCoOfTe

            return

endif

 

repl HTML with '<TR> ' + ;

'<TD><INPUT id=rblCoOffTer_0 type=radio ' + ;

' <%RetGVar("grblCoOffTer0")%> ' + ;

' value=0 name=rblCoOffTer' + ;

'  onclick="jsSubmit(true)">' + ;

' <LABEL for=rblCoOffTer_0>Co Level</LABEL></TD>' + ;

'<TD><INPUT id=rblCoOffTer_1 type=radio' +;

** The following line dies and is line 620**

'<%RetGVar("grblCoOffTer1")%>' +;

** It is as if the %> in the above line closes the FoxPro code

** evan though it is within the single quotes

' value=1 name=rblCoOffTer ' +;

' onclick="jsSubmit(true)">' +;

'  <LABEL for=rblAdmin_1>Off Level</LABEL></TD>' + ;

'<TD><INPUT id=rblCoOffTer_2 type=radio' +;

'<%RetGVar("grblCoOffTer2")%> ' +;

' value=2 name=rblCoOffTer ' +;

' onclick="jsSubmit(true)">' +;

' <LABEL for=rblCoOffTer_2>Terr Level</LABEL></TD>' + ;

'</TBODY></TABLE></TD></TR> '

Response.Write(ShowCoOfTe.CoOfTr_HTML)

use

sele (l_wa)

%>

 

Any suggestions?