Xcel number of rows issue in ASP

I have an asp page which displays the record sets in an excel spread
sheet. I have around 85000 records and I learnt that excel will not
be able to process more than 64000 (around) rows in one sheet. I am
not sure how to break this and make excel to print the rest of the
records in another sheet in the same workbook from ASP. This might be
a real simple solution but I am very stumped. I looked around at
various place - maybe any of you out there have encountered this
problem or can point me to the right place. ANy pointers/help will be
greatly appreciated.
Thanks!
My code is as below:
<%Option Explicit%>
<% Response.ContentType = "application/vnd.ms-excel" %>



<HTML>
<HEAD>
<TITLE>Frequency of Machine Per Customer</TITLE>
</HEAD>
<BODY>
<BODY>
<TABLE BORDER=0>
<TR>
<TD align=center colspan=8><H2>The count of number of Machine by
CustomerID Report</H2></TD>
</TR>
<TR>
<TD align=left colspan=8><% Response.Write "Created on " &
FormatDateTime(Date, 1) %></TD>
</TR>
</TABLE>

<TABLE BORDER=0>
<TR><TD align=left colspan=8> </TD></TR>
</TABLE>
<TABLE BORDER="1">
<TR>
<TD align=center><STRONG>Customer ID</STRONG></A></TD>
<TD align=center><STRONG>Number of Machine Counts</STRONG></A></TD>
</TR>
<%
Dim objRs :Set objRs = Server.CreateObject("ADODB.Recordset")
Dim objConn:Set objConn = Server.CreateObject("ADODB.Connection")
Dim intCheckCounter
Dim intLnCnt
objConn.Open "Provider=SQLOLEDB.1;Initial Catalog=Web;Data Source=" &
SERVER_DB & ";UID=777;PWD=222"

With objRs

.Open "select custid_maritz, count(*) As RecordCount from
dbo.tblmachine group by custid_march order by custid_march", objConn
If Not .EOF Then .MoveFirst

Do While Not .EOF

Response.Write "<TD align=left>" & objRs.Fields("custid_march")
& "</TD>"
Response.Write "<TD align=left>" & objRs.Fields("RecordCount")
& "</TD>"
Response.Write "</TR>"
.MoveNext
Loop
.Close

End With
Set objRs = Nothing
Set objConn = Nothing
%>

</TABLE>

</BODY>
</HTML>