<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>dotComSolution - ASP.NET Components</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<META content="Microsoft FrontPage 4.0" name=GENERATOR>
<META content=FrontPage.Editor.Document name=ProgId>
</HEAD>
<BODY  bgColor=#1d5090 leftMargin=0 topMargin=0 marginwidth="0" 
marginheight="0">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD vAlign=bottom width="100%" bgColor=#1D5090>
      &nbsp;</TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD width="100%">
      <TABLE cellSpacing=0 cellPadding=12 width="98%" border=0>
        <TBODY>
        <TR>
          <TD vAlign=top width="12%" bgColor=#f6e1a0>
            <p align="left">&nbsp;
          </TD>
          <TD vAlign=top width="108%" bgColor=#fefefe>
            <div align="center">
              <table border="0" cellpadding="2" width="100%">
                <tr>
                  <td width="80%">
                    <p align="left"><font face="Arial"><b><font size="4">
                    <a href="<%=oProp.ScriptPath %>">
                    <img border="0" src="../../avfpdemo3r/images/activeVFP.gif" width="166" height="28"></a>&nbsp;<br>
                    <br>
                    VFP Scripting in HTML&nbsp;
                    </font></b></font>
<span style="font-weight: 400"><font size="3" face="Arial">
<a href="<%=oProp.ScriptPath+[?action=showcode]%>">Show Code</a></font></span></td>
                  <center>
                  </tr>
                  <tr>
                    <td width="149%">
<h1 align="left">
<font size="3" face="Arial">Customer Listing</font><span style="font-weight: 400"><font size="4" face="Arial"> </font>
</span></h1>
<%
lcCompany = UPPER(NVL(oRequest.Form("txtCompany"),[]))
lcWhere = ""
IF !EMPTY(lcCompany)
   lcWhere = "WHERE UPPER(company) = lcCompany"
ENDIF

SELECT * FROM customer &lcWhere ;
   INTO Cursor tCursor ;
   ORDER BY Company
   
lnReccount = RECCOUNT()
%>
<form method="POST" action="<%=oProp.ScriptPath+[?action=vfpscript]%>">
<font face="Arial">Company:</font> 
<input type="text" name="txtCompany" value="<%= lcCompany %>" size="20">
<input type="Submit" value=" Get Customers">&nbsp;<input type="button" value="Reset" name="B1" onclick="window.location='<%=oProp.ScriptPath+[?action=vfpscript]%>';"> <input type="button" value="Go Back" onClick="window.location = '<%=oProp.ScriptPath%>';">
</form>
<font face="Arial">Selected </font>  <b><%= Reccount() %></b> <font face="Arial">records.</font><p>

<div align="center">
  <center>

<table border=1 width="100%" style="border-collapse: collapse" bordercolor="#C0C0C0" cellpadding="0" cellspacing="0">
<tr bgcolor="#EEEEEE"><th><font face="Arial">Company</font></th><th>
  <font face="Arial">Address</font></th><th><font face="Arial">Phone</font></th></tr>

<% SCAN %>
<tr>
	<td  valign="top"><font face="Arial"><%= tCursor.Company %></font>&nbsp;</td>
    <td><font face="Arial"><%= IIF(EMPTY(tCursor.Address),[<br>],tCursor.Address) %></font>&nbsp;</td>
    <td><font face="Arial"><%= IIF(EMPTY(tCursor.Phone),[<br>],tCursor.Phone) %></font>&nbsp;</td>
</tr>
<% ENDSCAN %>

</table>
                    </center>
</div>
                    </td>
                  </tr>
                </table>
              </center>
            </div>
            <P>&nbsp;</P></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=6 width="100%" border=0 height="22">
  <TBODY>
  <TR>
    <TD width="100%" bgColor=#f6e1a0 height="10">
<% local cadena
cadena= '123' %>
<%= cadena %>
    <FONT 
      face="verdana, arial, helvetica, san serif" color=#000000 size=1>Copyright 
    © 2002-2005 dotComSolution.&nbsp; All Rights Reserved.<B>&nbsp; </B></FONT></TD></TR></TBODY></TABLE></BODY></HTML>