p2p.wrox.com: Archives - asp_web

asp_web_howto thread: search results not showing

Message #1 by "Scott Heath" <scott@s...> on Thu, 18 Apr 2002 14:48:53 -0500

Quick question, got a small search script, and if the number of results
returned is not divisable perfectly by the number of records per page
(8) then the last page of the results (4 of 4) shows nothing...and if
the number of results is less then the records per page it doesn't show
the 1st page at all. Any ideas? Anyone ever seen this before?
Thanks!
Scott Heath

Message #2 by Oleg Kapeljushnik <c-oleg.kapeljushnik@w...> on Thu, 18 Apr 2002 16:07:32 -0400

CAn you post some code please ?
I think the problem in your code.

Oleg.

-----Original Message-----
From: Scott Heath [mailto:scott@s...]
Sent: April 18, 2002 3:49 PM
To: ASP Web HowTo
Subject: [asp_web_howto] search results not showing

Quick question, got a small search script, and if the number of results
returned is not divisable perfectly by the number of records per page
(8) then the last page of the results (4 of 4) shows nothing...and if
the number of results is less then the records per page it doesn't show
the 1st page at all. Any ideas? Anyone ever seen this before?
Thanks!
Scott Heath

---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=nosim/theprogramme
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=nosim/theprogramme
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=nosim/theprogramme
r-20

Message #3 by "Scott Heath" <scott@s...> on Thu, 18 Apr 2002 15:10:22 -0500

I can but I don't know where the problem lies...I've cleaned it up a lot
here it is:

==========CODE===============

'Get vars to search by
gender = Request.Form("Gender")
age = Request.Form("age")

If gender = "" Then
	gender = request.QueryString("Gender")
End If
If age = "" Then
	age = request.QueryString("age")
End If


If age = "1-4" Then
	ageStart = 1
	ageEnd = 4
End If
If age = "5-12" Then
	ageStart = 5
	ageEnd = 12
End If
If age = "13-18" Then
	ageStart = 13
	ageEnd = 18
End If
If age = "18-24" Then
	ageStart = 18
	ageEnd = 24
End If
If age = "24-50" Then
	ageStart = 24
	ageEnd = 50
End If
If age = "Over 50" Then
	ageStart = 50
	ageEnd = 100
End If
If age = "Any" Then
	ageStart = 0
	ageEnd = 100
End If

'=======================================

strSQL = "Select First_Name, Last_Name, ID, age, thumbnail, Gender from
members where Gender = '" & gender & "' and age between " & ageStart & "
and " & ageEnd

'put search string together
If gender = "All" Then
	strSQL = "Select First_Name, Last_Name, ID, age, thumbnail,
Gender from members where age between " & ageStart & " and " & ageEnd
End If

'strSQL = "Select First_Name, Last_Name, ID, age, thumbnail, Gender from
members where approved = 'yes' and age between 1 and 4"
'Response.Write(strSQL)


' Now we finally get to the DB work...
' Create and open our connection
Set objPagingConn = Server.CreateObject("ADODB.Connection")
objPagingConn.Open CONN_STRING, CONN_USER, CONN_PASS

' Create recordset and set the page size
Set objPagingRS = Server.CreateObject("ADODB.Recordset")
objPagingRS.PageSize = iPageSize

' You can change other settings as with any RS
'objPagingRS.CursorLocation = adUseClient
objPagingRS.CacheSize = iPageSize

' Open RS
objPagingRS.Open strSQL, objPagingConn, adOpenStatic, adLockReadOnly,
adCmdText

' Get the count of the pages using the given page size
iPageCount = objPagingRS.PageCount

' If the request page falls outside the acceptable range,
' give them the closest match (1 or max)
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

' Check page count to prevent bombing when zero results are returned!
If iPageCount = 0 Then
	Response.Write "No records found!"
Else
	' Move to the selected page
	objPagingRS.AbsolutePage = iPageCurrent

	' Start output with a page x of n line
	%>
	<!--<p>
	<font size="+1">Page <strong><%= iPageCurrent %></strong>
	of <strong><%= iPageCount %></strong></font>
	</p>-->
	<P>&nbsp;</P>
	<%
	' Spacing
	Response.Write vbCrLf

	' Continue with a title row in our table
	Response.Write "<table border=""1"">" & vbCrLf

	' Loop through our records and ouput 1 row per record
	iRecordsShown = 0
'	Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
'		Response.Write vbTab & "<tr>" & vbCrLf
		'For I = 0 To objPagingRS.Fields.Count - 1
		

'I've got one for each display record (8 currently)
'copy vars into something that I can deal with
If NOT objPagingRS.EOF Then
image1 = objPagingRS("ID")
First1 = objPagingRS("First_Name")
Last1 = objPagingRS("Last_Name")
thumb1 = objPagingRS("thumbnail")
objPagingRS.MoveNext


Response.Write "</td>" & vbCrLf
'Next 'I
'		Response.Write vbTab & "</tr>" & vbCrLf

		' Increment the number of records we've shown
		iRecordsShown = iRecordsShown + 1
		' Can't forget to move to the next record!

	'Loop

	' All done - close table
	Response.Write "</table>" & vbCrLf
End If
totalrecords = objPagingRS.recordcount
' Close DB objects and free variables
objPagingRS.Close
Set objPagingRS = Nothing
objPagingConn.Close
Set objPagingConn = Nothing


'once again...I've got 8 of these
If LEN(image1) > 0 Then
	image1 = OpenArefTag & image1 & MidArefTag & OpenimgTag & image1
& "/" & thumb1 & CloseimgTag & CloseArefTag
	Else
	image1= "&nbsp"


Then I display the results to the user. I wasn't sure how much code you
needed and I am a novice at this but learning quickly

Thank you!
Scott


-----Original Message-----
From: Oleg Kapeljushnik [mailto:c-oleg.kapeljushnik@w...] 
Sent: Thursday, April 18, 2002 3:08 PM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: search results not showing

CAn you post some code please ?
I think the problem in your code.

Oleg.

-----Original Message-----
From: Scott Heath [mailto:scott@s...]
Sent: April 18, 2002 3:49 PM
To: ASP Web HowTo
Subject: [asp_web_howto] search results not showing


Quick question, got a small search script, and if the number of results
returned is not divisable perfectly by the number of records per page
(8) then the last page of the results (4 of 4) shows nothing...and if
the number of results is less then the records per page it doesn't show
the 1st page at all. Any ideas? Anyone ever seen this before?
Thanks!
Scott Heath





---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=nosim/theprogramme
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=nosim/theprogramme
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=nosim/theprogramme
r-20



---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=nosim/theprogramme
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=nosim/theprogramme
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=nosim/theprogramme
r-20

Message #4 by Oleg Kapeljushnik <c-oleg.kapeljushnik@w...> on Thu, 18 Apr 2002 16:44:10 -0400

2 questions :
1. Where do you initialize iPageCurrent ?
2. Where do you initialize iPageSize?

I couldn't find it.
Those two variables must to be initialized since they play major role in
your paging mechanism.

Suggestion: Use Option Explicit
This way you will have to declare all you variables and I guess/hope to
initiate them

Oleg.

-----Original Message-----
From: Scott Heath [mailto:scott@s...]
Sent: April 18, 2002 4:10 PM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: search results not showing


I can but I don't know where the problem lies...I've cleaned it up a lot
here it is:

==========CODE===============

'Get vars to search by
gender = Request.Form("Gender")
age = Request.Form("age")

If gender = "" Then
	gender = request.QueryString("Gender")
End If
If age = "" Then
	age = request.QueryString("age")
End If


If age = "1-4" Then
	ageStart = 1
	ageEnd = 4
End If
If age = "5-12" Then
	ageStart = 5
	ageEnd = 12
End If
If age = "13-18" Then
	ageStart = 13
	ageEnd = 18
End If
If age = "18-24" Then
	ageStart = 18
	ageEnd = 24
End If
If age = "24-50" Then
	ageStart = 24
	ageEnd = 50
End If
If age = "Over 50" Then
	ageStart = 50
	ageEnd = 100
End If
If age = "Any" Then
	ageStart = 0
	ageEnd = 100
End If

'=======================================

strSQL = "Select First_Name, Last_Name, ID, age, thumbnail, Gender from
members where Gender = '" & gender & "' and age between " & ageStart & "
and " & ageEnd

'put search string together
If gender = "All" Then
	strSQL = "Select First_Name, Last_Name, ID, age, thumbnail,
Gender from members where age between " & ageStart & " and " & ageEnd
End If

'strSQL = "Select First_Name, Last_Name, ID, age, thumbnail, Gender from
members where approved = 'yes' and age between 1 and 4"
'Response.Write(strSQL)


' Now we finally get to the DB work...
' Create and open our connection
Set objPagingConn = Server.CreateObject("ADODB.Connection")
objPagingConn.Open CONN_STRING, CONN_USER, CONN_PASS

' Create recordset and set the page size
Set objPagingRS = Server.CreateObject("ADODB.Recordset")
objPagingRS.PageSize = iPageSize

' You can change other settings as with any RS
'objPagingRS.CursorLocation = adUseClient
objPagingRS.CacheSize = iPageSize

' Open RS
objPagingRS.Open strSQL, objPagingConn, adOpenStatic, adLockReadOnly,
adCmdText

' Get the count of the pages using the given page size
iPageCount = objPagingRS.PageCount

' If the request page falls outside the acceptable range,
' give them the closest match (1 or max)
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

' Check page count to prevent bombing when zero results are returned!
If iPageCount = 0 Then
	Response.Write "No records found!"
Else
	' Move to the selected page
	objPagingRS.AbsolutePage = iPageCurrent

	' Start output with a page x of n line
	%>
	<!--<p>
	<font size="+1">Page <strong><%= iPageCurrent %></strong>
	of <strong><%= iPageCount %></strong></font>
	</p>-->
	<P>&nbsp;</P>
	<%
	' Spacing
	Response.Write vbCrLf

	' Continue with a title row in our table
	Response.Write "<table border=""1"">" & vbCrLf

	' Loop through our records and ouput 1 row per record
	iRecordsShown = 0
'	Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
'		Response.Write vbTab & "<tr>" & vbCrLf
		'For I = 0 To objPagingRS.Fields.Count - 1


'I've got one for each display record (8 currently)
'copy vars into something that I can deal with
If NOT objPagingRS.EOF Then
image1 = objPagingRS("ID")
First1 = objPagingRS("First_Name")
Last1 = objPagingRS("Last_Name")
thumb1 = objPagingRS("thumbnail")
objPagingRS.MoveNext


Response.Write "</td>" & vbCrLf
'Next 'I
'		Response.Write vbTab & "</tr>" & vbCrLf

		' Increment the number of records we've shown
		iRecordsShown = iRecordsShown + 1
		' Can't forget to move to the next record!

	'Loop

	' All done - close table
	Response.Write "</table>" & vbCrLf
End If
totalrecords = objPagingRS.recordcount
' Close DB objects and free variables
objPagingRS.Close
Set objPagingRS = Nothing
objPagingConn.Close
Set objPagingConn = Nothing


'once again...I've got 8 of these
If LEN(image1) > 0 Then
	image1 = OpenArefTag & image1 & MidArefTag & OpenimgTag & image1
& "/" & thumb1 & CloseimgTag & CloseArefTag
	Else
	image1= "&nbsp"


Then I display the results to the user. I wasn't sure how much code you
needed and I am a novice at this but learning quickly

Thank you!
Scott


-----Original Message-----
From: Oleg Kapeljushnik [mailto:c-oleg.kapeljushnik@w...]
Sent: Thursday, April 18, 2002 3:08 PM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: search results not showing

CAn you post some code please ?
I think the problem in your code.

Oleg.

-----Original Message-----
From: Scott Heath [mailto:scott@s...]
Sent: April 18, 2002 3:49 PM
To: ASP Web HowTo
Subject: [asp_web_howto] search results not showing


Quick question, got a small search script, and if the number of results
returned is not divisable perfectly by the number of records per page
(8) then the last page of the results (4 of 4) shows nothing...and if
the number of results is less then the records per page it doesn't show
the 1st page at all. Any ideas? Anyone ever seen this before?
Thanks!
Scott Heath





---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=nosim/theprogramme
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=nosim/theprogramme
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=nosim/theprogramme
r-20



---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=nosim/theprogramme
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=nosim/theprogramme
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=nosim/theprogramme
r-20




---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=nosim/theprogramme
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=nosim/theprogramme
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=nosim/theprogramme
r-20

Message #5 by "Scott Heath" <scott@s...> on Thu, 18 Apr 2002 15:53:42 -0500

Sorry about that...just found those two in the code above where the copy
paste started...here is that snippet

' Get parameters
iPageSize = 8 ' You could easily allow users to change this

' Retrieve page to show or default to 1
If Request.QueryString("page") = "" Then
	iPageCurrent = 1
Else
	iPageCurrent = CInt(Request.QueryString("page"))
End If

I know about the option explicit but I've gotten so used to not using
it, that's what happens when you teach yourself. :)
Scott
 
Website      | http://www.scottspad.com
E-mail       | scott@w...
Phone:       |  xxx-xxx-xxxx
Alpha Pager  | www.scottspad.com/phone.asp
--------------------------------------------
Life's unfair - but root passwords help!
ICMP: The protocol that goes PING!

-----Original Message-----
From: Oleg Kapeljushnik [mailto:c-oleg.kapeljushnik@w...] 
Sent: Thursday, April 18, 2002 3:44 PM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: search results not showing

2 questions :
1. Where do you initialize iPageCurrent ?
2. Where do you initialize iPageSize?

I couldn't find it.
Those two variables must to be initialized since they play major role in
your paging mechanism.

Suggestion: Use Option Explicit
This way you will have to declare all you variables and I guess/hope to
initiate them

Oleg.

-----Original Message-----
From: Scott Heath [mailto:scott@s...]
Sent: April 18, 2002 4:10 PM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: search results not showing


I can but I don't know where the problem lies...I've cleaned it up a lot
here it is:

==========CODE===============

'Get vars to search by
gender = Request.Form("Gender")
age = Request.Form("age")

If gender = "" Then
	gender = request.QueryString("Gender")
End If
If age = "" Then
	age = request.QueryString("age")
End If


If age = "1-4" Then
	ageStart = 1
	ageEnd = 4
End If
If age = "5-12" Then
	ageStart = 5
	ageEnd = 12
End If
If age = "13-18" Then
	ageStart = 13
	ageEnd = 18
End If
If age = "18-24" Then
	ageStart = 18
	ageEnd = 24
End If
If age = "24-50" Then
	ageStart = 24
	ageEnd = 50
End If
If age = "Over 50" Then
	ageStart = 50
	ageEnd = 100
End If
If age = "Any" Then
	ageStart = 0
	ageEnd = 100
End If

'=======================================

strSQL = "Select First_Name, Last_Name, ID, age, thumbnail, Gender from
members where Gender = '" & gender & "' and age between " & ageStart & "
and " & ageEnd

'put search string together
If gender = "All" Then
	strSQL = "Select First_Name, Last_Name, ID, age, thumbnail,
Gender from members where age between " & ageStart & " and " & ageEnd
End If

'strSQL = "Select First_Name, Last_Name, ID, age, thumbnail, Gender from
members where approved = 'yes' and age between 1 and 4"
'Response.Write(strSQL)


' Now we finally get to the DB work...
' Create and open our connection
Set objPagingConn = Server.CreateObject("ADODB.Connection")
objPagingConn.Open CONN_STRING, CONN_USER, CONN_PASS

' Create recordset and set the page size
Set objPagingRS = Server.CreateObject("ADODB.Recordset")
objPagingRS.PageSize = iPageSize

' You can change other settings as with any RS
'objPagingRS.CursorLocation = adUseClient
objPagingRS.CacheSize = iPageSize

' Open RS
objPagingRS.Open strSQL, objPagingConn, adOpenStatic, adLockReadOnly,
adCmdText

' Get the count of the pages using the given page size
iPageCount = objPagingRS.PageCount

' If the request page falls outside the acceptable range,
' give them the closest match (1 or max)
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

' Check page count to prevent bombing when zero results are returned!
If iPageCount = 0 Then
	Response.Write "No records found!"
Else
	' Move to the selected page
	objPagingRS.AbsolutePage = iPageCurrent

	' Start output with a page x of n line
	%>
	<!--<p>
	<font size="+1">Page <strong><%= iPageCurrent %></strong>
	of <strong><%= iPageCount %></strong></font>
	</p>-->
	<P>&nbsp;</P>
	<%
	' Spacing
	Response.Write vbCrLf

	' Continue with a title row in our table
	Response.Write "<table border=""1"">" & vbCrLf

	' Loop through our records and ouput 1 row per record
	iRecordsShown = 0
'	Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
'		Response.Write vbTab & "<tr>" & vbCrLf
		'For I = 0 To objPagingRS.Fields.Count - 1


'I've got one for each display record (8 currently)
'copy vars into something that I can deal with
If NOT objPagingRS.EOF Then
image1 = objPagingRS("ID")
First1 = objPagingRS("First_Name")
Last1 = objPagingRS("Last_Name")
thumb1 = objPagingRS("thumbnail")
objPagingRS.MoveNext


Response.Write "</td>" & vbCrLf
'Next 'I
'		Response.Write vbTab & "</tr>" & vbCrLf

		' Increment the number of records we've shown
		iRecordsShown = iRecordsShown + 1
		' Can't forget to move to the next record!

	'Loop

	' All done - close table
	Response.Write "</table>" & vbCrLf
End If
totalrecords = objPagingRS.recordcount
' Close DB objects and free variables
objPagingRS.Close
Set objPagingRS = Nothing
objPagingConn.Close
Set objPagingConn = Nothing


'once again...I've got 8 of these
If LEN(image1) > 0 Then
	image1 = OpenArefTag & image1 & MidArefTag & OpenimgTag & image1
& "/" & thumb1 & CloseimgTag & CloseArefTag
	Else
	image1= "&nbsp"


Then I display the results to the user. I wasn't sure how much code you
needed and I am a novice at this but learning quickly

Thank you!
Scott


-----Original Message-----
From: Oleg Kapeljushnik [mailto:c-oleg.kapeljushnik@w...]
Sent: Thursday, April 18, 2002 3:08 PM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: search results not showing

CAn you post some code please ?
I think the problem in your code.

Oleg.

-----Original Message-----
From: Scott Heath [mailto:scott@s...]
Sent: April 18, 2002 3:49 PM
To: ASP Web HowTo
Subject: [asp_web_howto] search results not showing


Quick question, got a small search script, and if the number of results
returned is not divisable perfectly by the number of records per page
(8) then the last page of the results (4 of 4) shows nothing...and if
the number of results is less then the records per page it doesn't show
the 1st page at all. Any ideas? Anyone ever seen this before?
Thanks!
Scott Heath





---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=nosim/theprogramme
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=nosim/theprogramme
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=nosim/theprogramme
r-20



---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=nosim/theprogramme
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=nosim/theprogramme
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=nosim/theprogramme
r-20




---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=nosim/theprogramme
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=nosim/theprogramme
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=nosim/theprogramme
r-20



---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=nosim/theprogramme
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=nosim/theprogramme
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=nosim/theprogramme
r-20

Message #6 by "Drew, Ron" <RDrew@B...> on Thu, 18 Apr 2002 21:29:40 -0400

I do not use Cint and my site works fine and I would also change the
word page to something that does not look like a reserved work like...

iPageSize =3D 8
If Request.QueryString("curpage") =3D "" Then
	iPageCurrent =3D 1
   Else
	iPageCurrent =3D Request.QueryString("curpage")
End If

-----Original Message-----
From: Scott Heath [mailto:scott@s...]
Sent: Thursday, April 18, 2002 4:54 PM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: search results not showing


Sorry about that...just found those two in the code above where the copy
paste started...here is that snippet

' Get parameters
iPageSize =3D 8 ' You could easily allow users to change this

' Retrieve page to show or default to 1
If Request.QueryString("page") =3D "" Then
	iPageCurrent =3D 1
Else
	iPageCurrent =3D CInt(Request.QueryString("page"))
End If

I know about the option explicit but I've gotten so used to not using
it, that's what happens when you teach yourself. :) Scott

Website      | http://www.scottspad.com
E-mail       | scott@w...
Phone:       |  xxx-xxx-xxxx
Alpha Pager  | www.scottspad.com/phone.asp
--------------------------------------------
Life's unfair - but root passwords help!
ICMP: The protocol that goes PING!

-----Original Message-----
From: Oleg Kapeljushnik [mailto:c-oleg.kapeljushnik@w...]
Sent: Thursday, April 18, 2002 3:44 PM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: search results not showing

2 questions :
1. Where do you initialize iPageCurrent ?
2. Where do you initialize iPageSize?

I couldn't find it.
Those two variables must to be initialized since they play major role in
your paging mechanism.

Suggestion: Use Option Explicit
This way you will have to declare all you variables and I guess/hope to
initiate them

Oleg.

-----Original Message-----
From: Scott Heath [mailto:scott@s...]
Sent: April 18, 2002 4:10 PM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: search results not showing


I can but I don't know where the problem lies...I've cleaned it up a lot
here it is:

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3DCODE=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D=3D

'Get vars to search by
gender =3D Request.Form("Gender")
age =3D Request.Form("age")

If gender =3D "" Then
	gender =3D request.QueryString("Gender")
End If
If age =3D "" Then
	age =3D request.QueryString("age")
End If


If age =3D "1-4" Then
	ageStart =3D 1
	ageEnd =3D 4
End If
If age =3D "5-12" Then
	ageStart =3D 5
	ageEnd =3D 12
End If
If age =3D "13-18" Then
	ageStart =3D 13
	ageEnd =3D 18
End If
If age =3D "18-24" Then
	ageStart =3D 18
	ageEnd =3D 24
End If
If age =3D "24-50" Then
	ageStart =3D 24
	ageEnd =3D 50
End If
If age =3D "Over 50" Then
	ageStart =3D 50
	ageEnd =3D 100
End If
If age =3D "Any" Then
	ageStart =3D 0
	ageEnd =3D 100
End If

'=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

strSQL =3D "Select First_Name, Last_Name, ID, age, thumbnail, Gender 
from
members where Gender =3D '" & gender & "' and age between " & ageStart & 
"
and " & ageEnd

'put search string together
If gender =3D "All" Then
	strSQL =3D "Select First_Name, Last_Name, ID, age, thumbnail,
Gender from members where age between " & ageStart & " and " & ageEnd
End If

'strSQL =3D "Select First_Name, Last_Name, ID, age, thumbnail, Gender 
from
members where approved =3D 'yes' and age between 1 and 4"
'Response.Write(strSQL)


' Now we finally get to the DB work...
' Create and open our connection
Set objPagingConn =3D Server.CreateObject("ADODB.Connection")
objPagingConn.Open CONN_STRING, CONN_USER, CONN_PASS

' Create recordset and set the page size
Set objPagingRS =3D Server.CreateObject("ADODB.Recordset")
objPagingRS.PageSize =3D iPageSize

' You can change other settings as with any RS
'objPagingRS.CursorLocation =3D adUseClient objPagingRS.CacheSize =3D
iPageSize

' Open RS
objPagingRS.Open strSQL, objPagingConn, adOpenStatic, adLockReadOnly,
adCmdText

' Get the count of the pages using the given page size iPageCount =3D
objPagingRS.PageCount

' If the request page falls outside the acceptable range,
' give them the closest match (1 or max)
If iPageCurrent > iPageCount Then iPageCurrent =3D iPageCount
If iPageCurrent < 1 Then iPageCurrent =3D 1

' Check page count to prevent bombing when zero results are returned! If
iPageCount =3D 0 Then
	Response.Write "No records found!"
Else
	' Move to the selected page
	objPagingRS.AbsolutePage =3D iPageCurrent

	' Start output with a page x of n line
	%>
	<!--<p>
	<font size=3D"+1">Page <strong><%=3D iPageCurrent %></strong>
	of <strong><%=3D iPageCount %></strong></font>
	</p>-->
	<P>&nbsp;</P>
	<%
	' Spacing
	Response.Write vbCrLf

	' Continue with a title row in our table
	Response.Write "<table border=3D""1"">" & vbCrLf

	' Loop through our records and ouput 1 row per record
	iRecordsShown =3D 0
'	Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
'		Response.Write vbTab & "<tr>" & vbCrLf
		'For I =3D 0 To objPagingRS.Fields.Count - 1


'I've got one for each display record (8 currently)
'copy vars into something that I can deal with
If NOT objPagingRS.EOF Then
image1 =3D objPagingRS("ID")
First1 =3D objPagingRS("First_Name")
Last1 =3D objPagingRS("Last_Name")
thumb1 =3D objPagingRS("thumbnail")
objPagingRS.MoveNext


Response.Write "</td>" & vbCrLf
'Next 'I
'		Response.Write vbTab & "</tr>" & vbCrLf

		' Increment the number of records we've shown
		iRecordsShown =3D iRecordsShown + 1
		' Can't forget to move to the next record!

	'Loop

	' All done - close table
	Response.Write "</table>" & vbCrLf
End If
totalrecords =3D objPagingRS.recordcount
' Close DB objects and free variables
objPagingRS.Close
Set objPagingRS =3D Nothing
objPagingConn.Close
Set objPagingConn =3D Nothing


'once again...I've got 8 of these
If LEN(image1) > 0 Then
	image1 =3D OpenArefTag & image1 & MidArefTag & OpenimgTag & image1
& "/" & thumb1 & CloseimgTag & CloseArefTag
	Else
	image1=3D "&nbsp"


Then I display the results to the user. I wasn't sure how much code you
needed and I am a novice at this but learning quickly

Thank you!
Scott


-----Original Message-----
From: Oleg Kapeljushnik [mailto:c-oleg.kapeljushnik@w...]
Sent: Thursday, April 18, 2002 3:08 PM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: search results not showing

CAn you post some code please ?
I think the problem in your code.

Oleg.

-----Original Message-----
From: Scott Heath [mailto:scott@s...]
Sent: April 18, 2002 3:49 PM
To: ASP Web HowTo
Subject: [asp_web_howto] search results not showing


Quick question, got a small search script, and if the number of results
returned is not divisable perfectly by the number of records per page
(8) then the last page of the results (4 of 4) shows nothing...and if
the number of results is less then the records per page it doesn't show
the 1st page at all. Any ideas? Anyone ever seen this before? Thanks!
Scott Heath





---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=3Dnosim/theprogramm
e
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=3Dnosim/theprogramm
e
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=3Dnosim/theprogramm
e
r-20
---
Change your mail options at http://p2p.wrox.com/manager.asp or to
unsubscribe send a blank email to 



---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=3Dnosim/theprogramm
e
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=3Dnosim/theprogramm
e
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=3Dnosim/theprogramm
e
r-20
---
Change your mail options at http://p2p.wrox.com/manager.asp or to
unsubscribe send a blank email to 




---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=3Dnosim/theprogramm
e
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=3Dnosim/theprogramm
e
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=3Dnosim/theprogramm
e
r-20
---
Change your mail options at http://p2p.wrox.com/manager.asp or to
unsubscribe send a blank email to 



---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=3Dnosim/theprogramm
e
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=3Dnosim/theprogramm
e
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=3Dnosim/theprogramm
e
r-20




---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=3Dnosim/theprogramm
e
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=3Dnosim/theprogramm
e
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=3Dnosim/theprogramm
e
r-20

Message #7 by Oleg Kapeljushnik <c-oleg.kapeljushnik@w...> on Fri, 19 Apr 2002 09:17:02 -0400

Scot,

I compared you script to mine and it looks pretty much the same.
The only few difference you can try is :
Put this line :
objPagingRS.PageSize = iPageSize
after you populating you recordset.

Second :
If Cint(iPageCurrent) > CInt(iPageCount) Then iPageCurrent = iPageCount

I put CInt here to compare it as a numbers cause sometimes it can compare
them as a text.
Let me know how is it going.

Oleg.

-----Original Message-----
From: Scott Heath [mailto:scott@s...]
Sent: April 18, 2002 4:54 PM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: search results not showing


Sorry about that...just found those two in the code above where the copy
paste started...here is that snippet

' Get parameters
iPageSize = 8 ' You could easily allow users to change this

' Retrieve page to show or default to 1
If Request.QueryString("page") = "" Then
	iPageCurrent = 1
Else
	iPageCurrent = CInt(Request.QueryString("page"))
End If

I know about the option explicit but I've gotten so used to not using
it, that's what happens when you teach yourself. :)
Scott

Website      | http://www.scottspad.com
E-mail       | scott@w...
Phone:       |  xxx-xxx-xxxx
Alpha Pager  | www.scottspad.com/phone.asp
--------------------------------------------
Life's unfair - but root passwords help!
ICMP: The protocol that goes PING!

-----Original Message-----
From: Oleg Kapeljushnik [mailto:c-oleg.kapeljushnik@w...]
Sent: Thursday, April 18, 2002 3:44 PM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: search results not showing

2 questions :
1. Where do you initialize iPageCurrent ?
2. Where do you initialize iPageSize?

I couldn't find it.
Those two variables must to be initialized since they play major role in
your paging mechanism.

Suggestion: Use Option Explicit
This way you will have to declare all you variables and I guess/hope to
initiate them

Oleg.

-----Original Message-----
From: Scott Heath [mailto:scott@s...]
Sent: April 18, 2002 4:10 PM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: search results not showing


I can but I don't know where the problem lies...I've cleaned it up a lot
here it is:

==========CODE===============

'Get vars to search by
gender = Request.Form("Gender")
age = Request.Form("age")

If gender = "" Then
	gender = request.QueryString("Gender")
End If
If age = "" Then
	age = request.QueryString("age")
End If


If age = "1-4" Then
	ageStart = 1
	ageEnd = 4
End If
If age = "5-12" Then
	ageStart = 5
	ageEnd = 12
End If
If age = "13-18" Then
	ageStart = 13
	ageEnd = 18
End If
If age = "18-24" Then
	ageStart = 18
	ageEnd = 24
End If
If age = "24-50" Then
	ageStart = 24
	ageEnd = 50
End If
If age = "Over 50" Then
	ageStart = 50
	ageEnd = 100
End If
If age = "Any" Then
	ageStart = 0
	ageEnd = 100
End If

'=======================================

strSQL = "Select First_Name, Last_Name, ID, age, thumbnail, Gender from
members where Gender = '" & gender & "' and age between " & ageStart & "
and " & ageEnd

'put search string together
If gender = "All" Then
	strSQL = "Select First_Name, Last_Name, ID, age, thumbnail,
Gender from members where age between " & ageStart & " and " & ageEnd
End If

'strSQL = "Select First_Name, Last_Name, ID, age, thumbnail, Gender from
members where approved = 'yes' and age between 1 and 4"
'Response.Write(strSQL)


' Now we finally get to the DB work...
' Create and open our connection
Set objPagingConn = Server.CreateObject("ADODB.Connection")
objPagingConn.Open CONN_STRING, CONN_USER, CONN_PASS

' Create recordset and set the page size
Set objPagingRS = Server.CreateObject("ADODB.Recordset")
objPagingRS.PageSize = iPageSize

' You can change other settings as with any RS
'objPagingRS.CursorLocation = adUseClient
objPagingRS.CacheSize = iPageSize

' Open RS
objPagingRS.Open strSQL, objPagingConn, adOpenStatic, adLockReadOnly,
adCmdText

' Get the count of the pages using the given page size
iPageCount = objPagingRS.PageCount

' If the request page falls outside the acceptable range,
' give them the closest match (1 or max)
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

' Check page count to prevent bombing when zero results are returned!
If iPageCount = 0 Then
	Response.Write "No records found!"
Else
	' Move to the selected page
	objPagingRS.AbsolutePage = iPageCurrent

	' Start output with a page x of n line
	%>
	<!--<p>
	<font size="+1">Page <strong><%= iPageCurrent %></strong>
	of <strong><%= iPageCount %></strong></font>
	</p>-->
	<P>&nbsp;</P>
	<%
	' Spacing
	Response.Write vbCrLf

	' Continue with a title row in our table
	Response.Write "<table border=""1"">" & vbCrLf

	' Loop through our records and ouput 1 row per record
	iRecordsShown = 0
'	Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
'		Response.Write vbTab & "<tr>" & vbCrLf
		'For I = 0 To objPagingRS.Fields.Count - 1


'I've got one for each display record (8 currently)
'copy vars into something that I can deal with
If NOT objPagingRS.EOF Then
image1 = objPagingRS("ID")
First1 = objPagingRS("First_Name")
Last1 = objPagingRS("Last_Name")
thumb1 = objPagingRS("thumbnail")
objPagingRS.MoveNext


Response.Write "</td>" & vbCrLf
'Next 'I
'		Response.Write vbTab & "</tr>" & vbCrLf

		' Increment the number of records we've shown
		iRecordsShown = iRecordsShown + 1
		' Can't forget to move to the next record!

	'Loop

	' All done - close table
	Response.Write "</table>" & vbCrLf
End If
totalrecords = objPagingRS.recordcount
' Close DB objects and free variables
objPagingRS.Close
Set objPagingRS = Nothing
objPagingConn.Close
Set objPagingConn = Nothing


'once again...I've got 8 of these
If LEN(image1) > 0 Then
	image1 = OpenArefTag & image1 & MidArefTag & OpenimgTag & image1
& "/" & thumb1 & CloseimgTag & CloseArefTag
	Else
	image1= "&nbsp"


Then I display the results to the user. I wasn't sure how much code you
needed and I am a novice at this but learning quickly

Thank you!
Scott


-----Original Message-----
From: Oleg Kapeljushnik [mailto:c-oleg.kapeljushnik@w...]
Sent: Thursday, April 18, 2002 3:08 PM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: search results not showing

CAn you post some code please ?
I think the problem in your code.

Oleg.

-----Original Message-----
From: Scott Heath [mailto:scott@s...]
Sent: April 18, 2002 3:49 PM
To: ASP Web HowTo
Subject: [asp_web_howto] search results not showing


Quick question, got a small search script, and if the number of results
returned is not divisable perfectly by the number of records per page
(8) then the last page of the results (4 of 4) shows nothing...and if
the number of results is less then the records per page it doesn't show
the 1st page at all. Any ideas? Anyone ever seen this before?
Thanks!
Scott Heath





---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=nosim/theprogramme
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=nosim/theprogramme
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=nosim/theprogramme
r-20



---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=nosim/theprogramme
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=nosim/theprogramme
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=nosim/theprogramme
r-20




---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=nosim/theprogramme
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=nosim/theprogramme
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=nosim/theprogramme
r-20



---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=nosim/theprogramme
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=nosim/theprogramme
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=nosim/theprogramme
r-20




---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=nosim/theprogramme
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=nosim/theprogramme
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=nosim/theprogramme
r-20

Message #8 by "Drew, Ron" <RDrew@B...> on Tue, 23 Apr 2002 17:33:42 -0400

Did you ever get your answer?  By the way you may want to shorten your
code by using split..

Dim aage
ageStart =3D 0
ageEnd =3D 100
If age =3D "Over 50" Then
	ageStart =3D 50
	ageEnd =3D 100
  Else
      aage =3D split(age, "-")
      ageStart =3D aage(0)
	ageEnd =3D aage(1)
End If

-----Original Message-----
From: Scott Heath [mailto:scott@s...]
Sent: Thursday, April 18, 2002 4:10 PM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: search results not showing


I can but I don't know where the problem lies...I've cleaned it up a lot
here it is:

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3DCODE=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D=3D

'Get vars to search by
gender =3D Request.Form("Gender")
age =3D Request.Form("age")

If gender =3D "" Then
	gender =3D request.QueryString("Gender")
End If
If age =3D "" Then
	age =3D request.QueryString("age")
End If


If age =3D "1-4" Then
	ageStart =3D 1
	ageEnd =3D 4
End If
If age =3D "5-12" Then
	ageStart =3D 5
	ageEnd =3D 12
End If
If age =3D "13-18" Then
	ageStart =3D 13
	ageEnd =3D 18
End If
If age =3D "18-24" Then
	ageStart =3D 18
	ageEnd =3D 24
End If
If age =3D "24-50" Then
	ageStart =3D 24
	ageEnd =3D 50
End If
If age =3D "Over 50" Then
	ageStart =3D 50
	ageEnd =3D 100
End If
If age =3D "Any" Then
	ageStart =3D 0
	ageEnd =3D 100
End If

'=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

strSQL =3D "Select First_Name, Last_Name, ID, age, thumbnail, Gender 
from
members where Gender =3D '" & gender & "' and age between " & ageStart & 
"
and " & ageEnd

'put search string together
If gender =3D "All" Then
	strSQL =3D "Select First_Name, Last_Name, ID, age, thumbnail,
Gender from members where age between " & ageStart & " and " & ageEnd
End If

'strSQL =3D "Select First_Name, Last_Name, ID, age, thumbnail, Gender 
from
members where approved =3D 'yes' and age between 1 and 4"
'Response.Write(strSQL)


' Now we finally get to the DB work...
' Create and open our connection
Set objPagingConn =3D Server.CreateObject("ADODB.Connection")
objPagingConn.Open CONN_STRING, CONN_USER, CONN_PASS

' Create recordset and set the page size
Set objPagingRS =3D Server.CreateObject("ADODB.Recordset")
objPagingRS.PageSize =3D iPageSize

' You can change other settings as with any RS
'objPagingRS.CursorLocation =3D adUseClient objPagingRS.CacheSize =3D
iPageSize

' Open RS
objPagingRS.Open strSQL, objPagingConn, adOpenStatic, adLockReadOnly,
adCmdText

' Get the count of the pages using the given page size iPageCount =3D
objPagingRS.PageCount

' If the request page falls outside the acceptable range,
' give them the closest match (1 or max)
If iPageCurrent > iPageCount Then iPageCurrent =3D iPageCount
If iPageCurrent < 1 Then iPageCurrent =3D 1

' Check page count to prevent bombing when zero results are returned! If
iPageCount =3D 0 Then
	Response.Write "No records found!"
Else
	' Move to the selected page
	objPagingRS.AbsolutePage =3D iPageCurrent

	' Start output with a page x of n line
	%>
	<!--<p>
	<font size=3D"+1">Page <strong><%=3D iPageCurrent %></strong>
	of <strong><%=3D iPageCount %></strong></font>
	</p>-->
	<P>&nbsp;</P>
	<%
	' Spacing
	Response.Write vbCrLf

	' Continue with a title row in our table
	Response.Write "<table border=3D""1"">" & vbCrLf

	' Loop through our records and ouput 1 row per record
	iRecordsShown =3D 0
'	Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
'		Response.Write vbTab & "<tr>" & vbCrLf
		'For I =3D 0 To objPagingRS.Fields.Count - 1
	=09

'I've got one for each display record (8 currently)
'copy vars into something that I can deal with
If NOT objPagingRS.EOF Then
image1 =3D objPagingRS("ID")
First1 =3D objPagingRS("First_Name")
Last1 =3D objPagingRS("Last_Name")
thumb1 =3D objPagingRS("thumbnail")
objPagingRS.MoveNext


Response.Write "</td>" & vbCrLf
'Next 'I
'		Response.Write vbTab & "</tr>" & vbCrLf

		' Increment the number of records we've shown
		iRecordsShown =3D iRecordsShown + 1
		' Can't forget to move to the next record!

	'Loop

	' All done - close table
	Response.Write "</table>" & vbCrLf
End If
totalrecords =3D objPagingRS.recordcount
' Close DB objects and free variables
objPagingRS.Close
Set objPagingRS =3D Nothing
objPagingConn.Close
Set objPagingConn =3D Nothing


'once again...I've got 8 of these
If LEN(image1) > 0 Then
	image1 =3D OpenArefTag & image1 & MidArefTag & OpenimgTag & image1
& "/" & thumb1 & CloseimgTag & CloseArefTag
	Else
	image1=3D "&nbsp"


Then I display the results to the user. I wasn't sure how much code you
needed and I am a novice at this but learning quickly

Thank you!
Scott


-----Original Message-----
From: Oleg Kapeljushnik [mailto:c-oleg.kapeljushnik@w...]
Sent: Thursday, April 18, 2002 3:08 PM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: search results not showing

CAn you post some code please ?
I think the problem in your code.

Oleg.

-----Original Message-----
From: Scott Heath [mailto:scott@s...]
Sent: April 18, 2002 3:49 PM
To: ASP Web HowTo
Subject: [asp_web_howto] search results not showing


Quick question, got a small search script, and if the number of results
returned is not divisable perfectly by the number of records per page
(8) then the last page of the results (4 of 4) shows nothing...and if
the number of results is less then the records per page it doesn't show
the 1st page at all. Any ideas? Anyone ever seen this before? Thanks!
Scott Heath





---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=3Dnosim/theprogramm
e
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=3Dnosim/theprogramm
e
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=3Dnosim/theprogramm
e
r-20
---
Change your mail options at http://p2p.wrox.com/manager.asp or to
unsubscribe send a blank email to 



---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=3Dnosim/theprogramm
e
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=3Dnosim/theprogramm
e
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=3Dnosim/theprogramm
e
r-20




---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=3Dnosim/theprogramm
e
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=3Dnosim/theprogramm
e
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=3Dnosim/theprogramm
e
r-20

Return to Index

P2P Archives