Recordset Paging - Not Showing records on next page

When I use the next button no records show up on the next page...
I've been going over this for half a day and can't figure it out.
Any
help would be greatly appreciated!

<%@ Language=VBScript%>
<%Option Explicit%>
<%Response.Expires=0%>

<%
Const intPageSize = 10
Dim intCurrentPage, intTotalPages, intI
Dim sClass
Dim rs, sCN, sSql, sDbFilePath
Dim dLNG, dLAT, sZip
Dim bViewList: bViewList = false


Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3
rs.CursorType = 3
rs.CacheSize = intPageSize
sDbFilePath = Server.MapPath("zip.mdb")
sCN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDbFilePath &
";Persist Security Info=False"


If len(trim(Request.Form("zip"))) = 5 and
isnumeric(Request.Form("zip")) Then
sZip = Request.Form("zip")
SetCoordinates sZip
Set rs = Getmains(Request.Form("distance"), dLNG, dLAT)
bViewList = (not rs.EOF)
End If


'=========================================================== ========
Function Getmains(dRadius, dLNG, dLAT)


Dim rsTemp, sSql
Set rsTemp = Server.CreateObject("ADODB.Recordset")


' **SQL Server vesion - use ACOS()**
' sSql = "SELECT name, phone, addr1, city, state, zip " & _
' "FROM main " & _
' "WHERE zip in ( SELECT ZIP_CODE FROM zip "& _
' "WHERE @radius > 3959 * ACOS(SIN(@lat/
57.3) *
SIN(LAT/ 57.3) + " & _
' "COS(@lat/
57.3) *
COS(LAT/ 57.3) * " & _
' "COS((LNG/
57.3) -
(@lng/ 57.3))) ) " & _
' "ORDER BY name"


' **Access vesion**
sSql = "SELECT id, name, phone, addr1, city, state, zip " & _
"FROM main " & _
"WHERE zip in ( SELECT ZIP_CODE FROM zip "& _
"WHERE @radius > 3959 * ATN( SQR(1 -
(SIN(@lat/
57.3) * SIN(LAT/ 57.3) + " & _

"COS(@lat/
57.3) * COS(LAT/ 57.3) * " & _

"COS((LNG/
57.3) - (@lng/ 57.3))) ^2 ) /" & _

"(SIN(@lat/ 57.3) * SIN(LAT/ 57.3) + "
& _

"COS(@lat/
57.3) * COS(LAT/ 57.3) * " & _

"COS((LNG/
57.3) - (@lng/ 57.3))) ) ) " & _
"ORDER BY name"


sSql = Replace(sSql, "@radius",dRadius)
sSql = Replace(sSql, "@lng",dLNG)
sSql = Replace(sSql, "@lat",dLAT)
rsTemp.Open sSql, sCN, 3, 3
Set Getmains = rsTemp


End Function
'=========================================================== ========
Sub SetCoordinates(sZip)


Dim rsTemp, sSql
Set rsTemp = Server.CreateObject("ADODB.Recordset")


sSql = "SELECT LAT, LNG FROM zip WHERE ZIP_CODE = ':1'"
sSql = Replace(sSql, ":1",sZip)
rsTemp.Open sSql, sCN
If not rsTemp.EOF Then
dLAT = rsTemp("LAT")
dLNG = rsTemp("LNG")
End If
Set rsTemp = Nothing


End Sub
'=========================================================== ========
'Function CreateMapQuestURL(street, city, state, zip)
'
' Dim sStreet, sCity
'
' sStreet = Replace(Trim(street), " ", "+")
' sCity = Replace(Trim(city), " ", "+")
'
' CreateMapQuestURL = "http://www.mapquest.com/maps/map.adp?" &
_
' "country=US&" & _
' "address=" & sStreet & "&" & _
' "city=" & sCity & "&" & _
' "state=" & state & "&" & _
' "zipcode=" & zip
'End Function


'=========================================================== =======
'Function CreateMapBlastURL(name, street, city, state, zip)
'
' Dim sStreet, sCity, sName
'
' sStreet = Replace(Trim(street), " ", "+")
' sCity = Replace(Trim(city), " ", "+")
' sName = Replace(Trim(name), " ", "+")
'
' CreateMapBlastURL = "http://www.mapblast.com/mblast/map.mb?" &
_
' "IC=" & sName & "&" & _
' "AD2=" & sStreet & "&" & _
' "AD3=" & sCity & "&" & _
' "AD3=" & state & "&" & _
' "AD3=" & zip & "&" & _
' "CMD=GEO"
'End Function
'=========================================================== ========
%>


<%
Response.Write("Server Variables: ")
Response.Write(Request.ServerVariables("ALL_RAW"))


If Request.ServerVariables("CONTENT_LENGTH") = 0 then
intCurrentPage = 1
Else
intCurrentPage = CInt(Request.Form("CurrentPage"))
Select Case Request.Form("Submit")
Case "Previous"
intCurrentPage = intCurrentPage - 1
Case "Next"
intCurrentPage = intCurrentPage + 1
End Select
End If
%>

height="97">

Search by Zipcode

Re: Recordset Paging - Not Showing records on next page

Infused wrote:
> When I use the next button no records show up on the next page...
> I've been going over this for half a day and can't figure it out.

Please do not multipost. This is definitely a database-related
question so .asp.db was the perfect group in which to post it. Posting it
here as well did not increase your chances of getting an answer (most of us
subscribe to both groups). On the contrary, if somebody had taken his time
to answer it here, only to find that it was already resolved in the other
group, that person may have been annoyed enough to ignore any future posts
from you, thereby decreasing your chances of getting help in the future.

There are times when you will not be sure which group is most appropriate
(again, this was not one of them), and you will want to post a question to
both groups. In that situation, you should use the cross-posting technique,
rather than posting the same message multiple times. To crosspost, put
a semicolon-delimited* list of the newsgroups to which you wish to post in
the To: header of your post and post it once. It, and any replies to it,
will appear in all the newsgroups in your list. So, if I reply in .asp.db,
my reply will also appear here in .asp.general.

* ... or whatever delimiter is recognized by your news client

--
Microsoft MVP - ASP/ASP.NET
Please reply to the newsgroup. This email account is my spam trap so I
don't check it very often. If you must reply off-line, then remove the
"NO SPAM"

Re: Recordset Paging - Not Showing records on next page

On Jun 26, 2:03 am, "Bob Barrows [MVP]"
wrote:
> Infused wrote:
> > When I use the next button no records show up on the next page...
> > I've been going over this for half a day and can't figure it out.
>
> Please do not multipost. This is definitely a database-related
> question so .asp.db was the perfect group in which to post it. Posting it
> here as well did not increase your chances of getting an answer (most of us
> subscribe to both groups). On the contrary, if somebody had taken his time
> to answer it here, only to find that it was already resolved in the other
> group, that person may have been annoyed enough to ignore any future posts
> from you, thereby decreasing your chances of getting help in the future.
>
> There are times when you will not be sure which group is most appropriate
> (again, this was not one of them), and you will want to post a question to
> both groups. In that situation, you should use the cross-posting technique,
> rather than posting the same message multiple times. To crosspost, put
> a semicolon-delimited* list of the newsgroups to which you wish to post in
> the To: header of your post and post it once. It, and any replies to it,
> will appear in all the newsgroups in your list. So, if I reply in .asp.db,
> my reply will also appear here in .asp.general.
>
> * ... or whatever delimiter is recognized by your news client
>
> --
> Microsoft MVP - ASP/ASP.NET

Sorry I was unaware of the cross posting technique... I will be sure
to use it in the future. I'm fairly diligent updating posts with a
resolution if I have gotten one as well to wherever I have posted. So
if I get a resolution to this I will definitely post it to the other
group or vice versa. Once again I apologize for double posting.

Re: Recordset Paging - Not Showing records on next page

On Jun 27, 1:45 am, "Daniel Crichton" wrote:
> AnxietyAnswers wrote on Tue, 26 Jun 2007 01:39:18 -0700:
>
>
>
>
>
> > When I use the next button no records show up on the next page...
> > I've been going over this for half a day and can't figure it out. Any
> > help would be greatly appreciated!
> >