murugesanks
Programmer
Please gothrough my code . I have taken query from ASP Unleased Book.
It is giving dome. error.
Please help me.
<%
DIM currentPage, rowCount, i
currentPage = TRIM( Request( "currentPage" ) )
if currentPage = "" then currentPage = 1
set DBConn = server.createobject("adodb.connection"
DBConn.open "dsn=portdsn;uid=sa;pwd=;database=PortDB"
Set MemDisRS = Server.CreateObject("ADODB.Recordset"
MemDisRS.CursorType = adOpenStatic
MemDisRS.PageSize = 5
MemDisRS.Open "select * from table1 order by no", DBConn
Response.write "Current Page Value is :"
Response.write currentPage
Response.Write "<br><br>"
'MemDisRS.AbsolutePage = cINT( currentPage )
rowCount = 0
x1="hi"
While not MemDisRS.EOF and rowCount < MemDisRS.PageSize
Response.Write MemDisRS(0)
Response.Write "<br>"
rowCount = rowCount + 1
MemDisRS.MoveNext
Wend
Response.Write "<hr>"
for i = 1 to MemDisRS.PageCount
%><a href="TradersDisplayTest1.asp?currentPage=<%=i%>"><%=i%></a> <%
next
%>
It is giving dome. error.
Please help me.
<%
DIM currentPage, rowCount, i
currentPage = TRIM( Request( "currentPage" ) )
if currentPage = "" then currentPage = 1
set DBConn = server.createobject("adodb.connection"
DBConn.open "dsn=portdsn;uid=sa;pwd=;database=PortDB"
Set MemDisRS = Server.CreateObject("ADODB.Recordset"
MemDisRS.CursorType = adOpenStatic
MemDisRS.PageSize = 5
MemDisRS.Open "select * from table1 order by no", DBConn
Response.write "Current Page Value is :"
Response.write currentPage
Response.Write "<br><br>"
'MemDisRS.AbsolutePage = cINT( currentPage )
rowCount = 0
x1="hi"
While not MemDisRS.EOF and rowCount < MemDisRS.PageSize
Response.Write MemDisRS(0)
Response.Write "<br>"
rowCount = rowCount + 1
MemDisRS.MoveNext
Wend
Response.Write "<hr>"
for i = 1 to MemDisRS.PageCount
%><a href="TradersDisplayTest1.asp?currentPage=<%=i%>"><%=i%></a> <%
next
%>