Function CreateTableRows Local cText,i i = 0 If !Used("temp") Return [] Endif cText = [] Select temp Scan i = i + 1 TEXT TO cText ADDITIVE TEXTMERGE NOSHOW <tr bgcolor="#dcdcdc" class="QueryTable"> <td width="103" bgcolor="#dcdcdc" class="FieldHeadings QueryResults"> <input name="WorkCode<<i>>" readonly type="text" class="TableHeadings" id="WorkCode<<i>>" value="<<temp.wcode>>" size="15" onclick="MM_goToURL('parent','<<>>');return document.MM_returnValue" /> </a> </td> <td width="360"><span class="QueryResults"> <input name="Borrowername<<i>>" readonly type="text" id="Borrower_Fname<<i>>" value="<<temp.borrowername>>" size="50"/> </span></td> <td bgcolor="#dcdcdc"><span class="QueryResults"> <input name="Loan<<i>>" readonly type="text" class="TableHeadings" id="Loan<<i>>" onclick="MM_goToURL('parent','<<>>');return document.MM_returnValue" value="<<temp.display_loan>>" /> </span></td> <td bgcolor="#dcdcdc"><span class="QueryResults"> <input name="Parcel<<i>>" readonly type="text" id="Parcel<<i>>" value="<<temp.acct>>" /> </span></td> </tr> ENDTEXT Endscan Return cText Endfunc