Try this

February 23, 2002 by robert egan

If somone leaves the field blank, an error is generated, so try the following or if you wish, change Repeat1__numRows = -1 (all matching records) to a figure you decide is appropriate.

<%
Dim Repeat1__numRows
Repeat1__numRows  =  Request.QueryString("MaxRecords")
If  Request.QueryString("MaxRecords") = "" Then Repeat1__numRows = -1 End If
Dim Repeat1__index
Repeat1__index = 0
Rs_numRows = Rs_numRows + Repeat1__numRows
%>

regards

Robert Egan