here's a quick and easy method...
there is bound to be a better way but I can't be bothered to find it at the moment! 
exiting the while loop when i = stopval would help as well...
Code:
<%@ Language=VBScript%>
<HTML>
<head>
<!-- Prevent the page from being cached -->
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
</head>
<BODY>
<%
dim strSQL
dim rst
dim conn
dim page
dim i
dim startval
dim StopVal
page = request("page")
if page = "" then
page = 0
end if
startval = page * 10
StopVal = startval + 10
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\xxx.mdb")
strSQL = "SELECT zzzzz FROM tbl1 where f1 ='xxxxxx';"
Set rst = conn.Execute(strSQL)
while not rst.eof
i = i + 1
if (i > startval) and (i <= stopval) THEN
rst("zzzzz") & "<BR>"
END IF
rst.movenext
wend
rst.close
set rst = nothing
conn.Close
set conn = nothing
%>
</BODY>
</HTML>
Reply With Quote
