Hiding a button based upon record count

jhmosow · May 10, 2006

I am using FP2k and have a form with a button that links to a printable
version of the page. I want to hide the button if the record count is
less than 20. I know I can get the record count by using:

<%
Dim rCount
rCount=fp_rs.RecordCount
If rCount > 20 Then %>
' show the button
<%Else%>
' hide the button
<%End If%>

But, I don't know how to show/hide the button. The button is named
Print_Button and is in the table area with my submit/reset buttons and
a text input box used to enter search criteria.

Any help on how to do this?

TIA

Mark Fitzpatrick · May 10, 2006

It's been a good while since I toyed with classic ASP, but you should just
be able to put the code for the button in the if statement

<%
Dim rCount
rCount=fp_rs.RecordCount
If rCount > 20 Then %>
<input type="button" text="Click Me">
<% End If %>

Or, use a Response.Write
<%
Dim rCount
rCount=fp_rs.RecordCount
If rCount > 20 Then
Response.Write("<input type=""button"" text=""Click Me"">")
End If %>

One thing to be aware of, recordsets don't always return a correct count.

Hope this helps,
Mark Fitzpatrick
Microsoft MVP - FrontPage

jhmosow · May 10, 2006

Where in my HTML code does this go? I am guessing it goes in the
DatabaseRegion, but have not been able to get it to work.

jhmosow · May 10, 2006

Where in my HTML code does this go? I am guessing it goes in the
DatabaseRegion, but have not been able to get it to work.

jhmosow · May 11, 2006

I found where to put the code, but it shows a button for each item on
the page. What I really want to do is check to check the record count.
If it is less than 20, hide the Print_Button else show the
Print_Button. Here is my current code but I have not been able to
figure out how to show/hide the button in the ASP.

<html>

<head>
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Software Installation Counts</title>
<meta name="Microsoft Theme" content="none, default">
</head>

<body>

<p align="left"><font face="Arial Black" color="#008080"><a
href="pcaudit_reports.htm">Return to Report
Menu</a>        </font><font
size="2">   </font>     <font
size="2">Date: <script language="VBScript">
document.write(FormatDateTime(Date(),0))</script>
                                                                                                                  
Time: <script language="VBScript">
document.write(FormatDateTime(Time(),0))</script>
</font></p>
<p align="center"><font size="7" face="Comic Sans MS"
color="#FF0066"><i><b><u>Software
Installation Counts</u></b></i></font></p>
<form botid="0" method="POST"
action="Software_Installation_Counts_Test.asp"
name="FormName">
<table border="0" width="675">
<tr>
<td width="103"><b>Software Name</b></td>
<td width="148"><input name="Software_Name_Input"
value="<%=Request("Software_Name_Input")%>" size="20"
tabindex="1"></td>
<td width="404"></td>
</tr>
</table>
<br>
<input type="submit" tabindex="2"> <input type="reset"
tabindex="3">                                                          
<font color="#FF0000"><input type="button" value="Printable Version"
name="Print_Button" id="Print_Button"

onclick="window.open('http://iticentral/rms/Software_Installation_Counts_For_Printing.asp?Software_Name_Input=<%=Request("Software_Name_Input")%>')"
tabindex="4"></font>
</form>
<table width="650" border="1">
<thead>
<tr>
<td width="282" bgcolor="#C0C0C0" bordercolor="#000000"
bordercolorlight="#000000" bordercolordark="#000000"><b>Software
Name</b></td>
<td width="187" bgcolor="#C0C0C0" bordercolor="#000000"
bordercolorlight="#000000" bordercolordark="#000000"
align="center"><b>Version</b></td>
<td align="center" width="40" bgcolor="#C0C0C0"
bordercolor="#000000"
bordercolorlight="#000000"
bordercolordark="#000000"><b>Count</b></td>
</tr>
</thead>
<tbody>

<%
fp_sQry="SELECT * FROM Software_Installation_Count WHERE (Software_Name
LIKE '%::Software_Name_Input::%') ORDER BY Software_Name ASC,Version
ASC"
fp_sDefault="Software_Name_Input="
fp_sNoRecords="<tr><td colspan=3 align=left width=""100%"">No records
returned.</td></tr>"
fp_sDataConn="PCAudit"
fp_iMaxRecords=0
fp_iCommandType=1
fp_iPageSize=20
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice="Software_Name"
fp_sMenuValue="Software_Name"
fp_iDisplayCols=3
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%>


<%
Dim rCount
On Error Resume Next
rCount=fp_rs.RecordCount
If rCount > 20 Then
Response.Write("<input type=""button"" text=""Click Me"">")
End If
%>
<tr>
<td width="282" bordercolor="#000000" bordercolorlight="#000000"
bordercolordark="#000000"><%=FP_FieldVal(fp_rs,"Software_Name")%></td>
<td width="187" bordercolor="#000000" bordercolorlight="#000000"
bordercolordark="#000000" align="center"><%=FP_FieldVal(fp_rs,"Version")%></td>
<td align="center" width="40" bordercolor="#000000"
bordercolorlight="#000000" bordercolordark="#000000"><%=FP_FieldVal(fp_rs,"CountOfVersion")%></td>
</tr>


</tbody>
<tr>
<td> 
</table>

</body>

</html>

Stefan B Rusynko · May 12, 2006

1) Remove the print button from the top form
- at that point you have no FP DBRW results
2) Your button should be in the last row of the table (after the DBRW) as a separate form

<td colspan="3">
<%
Dim rCount
On Error Resume Next
rCount=fp_rs.RecordCount
If rCount > 20 Then
%>
<form><input type="button" value="Printable Version" name="Print_Button" id="Print_Button"
onclick="window.open('http://iticentral/rms/Software_Installation_Counts_For_Printing.asp?Software_Name_Input=<%=Request("Software_Name_Input")%>')"
tabindex="1"></form>
<%End If %>
</td></tr>

PS
The space bar is not a design tool
-
--

_____________________________________________
SBR @ ENJOY (-: [ Microsoft MVP - FrontPage ]
"Warning - Using the F1 Key will not break anything!" (-;
To find the best Newsgroup for FrontPage support see:
http://www.frontpagemvps.com/FrontPageNewsGroups/tabid/53/Default.aspx
_____________________________________________

|I found where to put the code, but it shows a button for each item on
| the page. What I really want to do is check to check the record count.
| If it is less than 20, hide the Print_Button else show the
| Print_Button. Here is my current code but I have not been able to
| figure out how to show/hide the button in the ASP.
|
| <html>
|
| <head>
| <meta http-equiv="Content-Type" content="text/html;
| charset=windows-1252">
| <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
| <meta name="ProgId" content="FrontPage.Editor.Document">
| <title>Software Installation Counts</title>
| <meta name="Microsoft Theme" content="none, default">
| </head>
|
| <body>
|
| <p align="left"><font face="Arial Black" color="#008080"><a
| href="pcaudit_reports.htm">Return to Report
| Menu</a>        </font><font
| size="2">   </font>     <font
| size="2">Date: <script language="VBScript">
| document.write(FormatDateTime(Date(),0))</script>
|
                                                                                                                  
| Time: <script language="VBScript">
| document.write(FormatDateTime(Time(),0))</script>
| </font></p>
| <p align="center"><font size="7" face="Comic Sans MS"
| color="#FF0066"><i><b><u>Software
| Installation Counts</u></b></i></font></p>
| <form botid="0" method="POST"
| action="Software_Installation_Counts_Test.asp"
| name="FormName">
| <table border="0" width="675">
| <tr>
| <td width="103"><b>Software Name</b></td>
| <td width="148"><input name="Software_Name_Input"
| value="<%=Request("Software_Name_Input")%>" size="20"
| tabindex="1"></td>
| <td width="404"></td>
| </tr>
| </table>
| <br>
| <input type="submit" tabindex="2"> <input type="reset"
|
tabindex="3">                                                          
| <font color="#FF0000"><input type="button" value="Printable Version"
| name="Print_Button" id="Print_Button"
|
|
onclick="window.open('http://iticentral/rms/Software_Installation_Counts_For_Printing.asp?Software_Name_Input=<%=Request("Software_Name_Input")%>')"
| tabindex="4"></font>
| </form>
| <table width="650" border="1">
| <thead>
| <tr>
| <td width="282" bgcolor="#C0C0C0" bordercolor="#000000"
| bordercolorlight="#000000" bordercolordark="#000000"><b>Software
| Name</b></td>
| <td width="187" bgcolor="#C0C0C0" bordercolor="#000000"
| bordercolorlight="#000000" bordercolordark="#000000"
| align="center"><b>Version</b></td>
| <td align="center" width="40" bgcolor="#C0C0C0"
| bordercolor="#000000"
| bordercolorlight="#000000"
| bordercolordark="#000000"><b>Count</b></td>
| </tr>
| </thead>
| <tbody>
| 
| <%
| fp_sQry="SELECT * FROM Software_Installation_Count WHERE (Software_Name
| LIKE '%::Software_Name_Input::%') ORDER BY Software_Name ASC,Version
| ASC"
| fp_sDefault="Software_Name_Input="
| fp_sNoRecords="<tr><td colspan=3 align=left width=""100%"">No records
| returned.</td></tr>"
| fp_sDataConn="PCAudit"
| fp_iMaxRecords=0
| fp_iCommandType=1
| fp_iPageSize=20
| fp_fTableFormat=True
| fp_fMenuFormat=False
| fp_sMenuChoice="Software_Name"
| fp_sMenuValue="Software_Name"
| fp_iDisplayCols=3
| fp_fCustomQuery=False
| BOTID=0
| fp_iRegion=BOTID
| %>
| 
| 
| <%
| Dim rCount
| On Error Resume Next
| rCount=fp_rs.RecordCount
| If rCount > 20 Then
| Response.Write("<input type=""button"" text=""Click Me"">")
| End If
| %>
| <tr>
| <td width="282" bordercolor="#000000" bordercolorlight="#000000"
| bordercolordark="#000000"><%=FP_FieldVal(fp_rs,"Software_Name")%></td>
| <td width="187" bordercolor="#000000" bordercolorlight="#000000"
| bordercolordark="#000000" align="center"><%=FP_FieldVal(fp_rs,"Version")%></td>
| <td align="center" width="40" bordercolor="#000000"
| bordercolorlight="#000000" bordercolordark="#000000"><%=FP_FieldVal(fp_rs,"CountOfVersion")%></td>
| </tr>
| 
| 
| </tbody>
| <tr>
| <td> 
| </table>
|
| </body>
|
| </html>
|

Hiding a button based upon record count

jhmosow

Mark Fitzpatrick

jhmosow

jhmosow

jhmosow

Stefan B Rusynko