|
repl memoFld with '<%something%>' |
repl memoFld with '<' + '%something%' + '>' |
FoxWeb Support Team support@foxweb.com email |
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?