I inserted an error handling code for the code bellow. What happen is
the page is taking a long time to load. Upon loading it takes me to
"page not found" of microsoft internet explorer. How do I solve the
problem?
<html>
<head>
<title></title>
</head>
<body>
<%
on error resume next
Dim conn, rs
Dim currentPage, rowCount, i
currentPage = Trim(Request("C urrentPage"))
if currentPage = "" then currentPage = 1 end if
set conn = server.CreateOb ject("ADODB.Con nection")
conn.connection string = "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source="
& Server.MapPath( "/db/upload/stellad.mdb") & ";"
conn.open
set rs = server.CreateOb ject("ADODB.Rec ordset")
rs.CursorType = 3
rs.PageSize = 1
rs.Open "SELECT Username, Password FROM Account",conn
rs.AbsolutePage = cInt(currentPag e)
rowCount = 0
while not rs.EOF and rowCount < rs.PageSize
response.write rs("Username") & "<BR>"
rowCount = rowCount + 1
rs.movenext
wend
If err <> 0 then
Response.Write "<center><f ont class='error'>" & Err.number & ":" &
Err.Description & "</font></center><br>"
conn.Close
Set conn = nothing
On Error Goto 0
Response.End
End If
conn.close
set conn = nothing
%>
<% If CInt(currentPag e) > 1 Then %>
<A HREF="paging.as p?currentPage=< %=currentPage-1%>">Prior</A>
<% End If %>
<% If CInt(currentPag e) < CInt(rs.PageCou nt) Then %>
<A HREF="paging.as p?currentPage=< %=currentPage+1 %>">Next</A>
<% End If %>
</body>
</html>
It works, however if I change the database name
valid db name: stelladb.mdb to an invalid db name: stellad.mdb
It cant handle the error. The page takes time to load, and the result
is "page not found" of microsoft internet explorer.
