Hvordan kan man gøre dette hurtiger?

Jeg har en database med 27.000 tyske post nr. som jeg bruger pageing på. Men den bliver alt for langsom med at udskrive dem.
Er der en anden, der har en bedre løsning?

HER ER KODE JEG BRUGER:

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Postalcode where Countries ="&request.cookies("sporg")
%>
<table border="0">
<%
rs.Open strSQL, ConStr, 1
If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 7
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
  Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
  Do While Not rs.EOF And intRecCount > 0
  myImagex = rs("x")
  myImagey = rs("y")
  id = rs("id")
%>

    <tr>
        <td>&nbsp;<%=rs("Postal_code")%>&nbsp;</td>
        <td>&nbsp;<%=rs("city")%>&nbsp;</td>
        <td>&nbsp;<%=myImagex%> - <%=myImagey%>&nbsp;</td>
        <td>
        <a target="retpost" href="retpostxy.asp?id=<%=id%>&myImage.x=<%=myImagex%>&myImage.y=<%=myImagey%>">
        <img border="0" src="images.asp?myImage.x=<%=myImagex%>&myImage.y=<%=myImagey%>" width="40" height="40"></a></td>
    </tr>
   
<%   
  intRecCount = intRecCount - 1
  rs.MoveNext
  Loop
End If
rs.Close
Set rs = Nothing
%>
</table>
<%
Response.Write "<p>Gå til side "
For intNum = intPage To intPage+100
Response.Write "<a href=?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
  Response.Write "<a href=?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
  Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
  Response.Write "<a href=?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
  Response.Write "&gt;&gt;"
End If
%>