Show Code
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD><TITLE>dotComSolution - ASP/ASP.NET Components</TITLE> <META http-equiv=Content-Type content="text/html; charset=windows-1252"> <META content="Microsoft FrontPage 5.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"><FONT face="verdana, arial, helvetica, san serif" color=#000000 size=1>Copyright © 2002-2003 dotComSolution.&nbsp; All Rights Reserved.<B>&nbsp; </B></FONT></TD></TR></TBODY></TABLE></BODY></HTML>

Copyright © 2002-2005 dotComSolution. All Rights Reserved.