how to filter out unwanted selection in rs paging link

gilgalbiblewhee · #1 (**permalink**) 10-17-04, 14:32

Ok. Since The recordset paging didn't work as I had posted in my previous thread, I decided to look for a new sample code on paging. Thank God it worked. But I'm trying to figure out what to write in the page links:

Code:

  response.write "<a href=""paging1.asp?page="&i&"&Keyword="
& Keyword &"
&Keywordb="& Keywordb &"
&Keywordc="& Keywordc &"
&spoke=" & spoke & "
&book_spoke=Book_Spoke
&chapter_spoke=Chapter_Spoke
&verse_spoke=Verse_Spoke
&text_data=yes
&optAction=on"">"&i&"</a> "

These:

Code:

&book_spoke=Book_Spoke
&chapter_spoke=Chapter_Spoke
&verse_spoke=Verse_Spoke

are used by checkboxes as well as:

Code:

&text_data=yes

But I'm not concerned about

Code:

&text_data=yes

since I need it for every search.

But is there a way to filter out the selection like the previous checkbox selections if they are not selected?

rokslide · #2 (**permalink**) 10-17-04, 19:09

if I understand you right then yes.... instead of doing this...

Code:

response.write "<a href=""paging1.asp?page="&i&"&Keyword="
& Keyword &"
&Keywordb="& Keywordb &"
&Keywordc="& Keywordc &"
&spoke=" & spoke & "
&book_spoke=Book_Spoke
&chapter_spoke=Chapter_Spoke
&verse_spoke=Verse_Spoke
&text_data=yes
&optAction=on"">"&i&"</a> "

do something more like this...

Code:

pagingurl = "<a href=""paging1.asp?page="&i&"&Keyword="
& Keyword &"
&Keywordb="& Keywordb &"
&Keywordc="& Keywordc

if spoke<> "" then pagingurl = pagingurl & "&spoke=" & spoke

if Book_Spoke <> "" then pagingurl = pagingurl & "&book_spoke=" & Book_Spoke
if Chapter_Spoke<> "" then pagingurl = pagingurl & "&chapter_spoke=" & Chapter_Spoke
if Verse_Spoke<> "" then pagingurl = pagingurl & "&verse_spoke=" & Verse_Spoke

pagingurl = pagingurl & "&text_data=yes&optAction=on"">"&i&"</a> "
response.write pagingurl

gilgalbiblewhee · #3 (**permalink**) 10-17-04, 20:43

where do I go wrong?

Code:

               response.write "<a href=""" & Request.ServerVariables("SCRIPT_NAMES") & "?page="&i&"" &_
"&Keyword="& Keyword &_
"&Keywordb="& Keywordb &_
"&Keywordc="& Keywordc &_
"&text_data=yes" &_"
if spoke<> "" then pagingurl = pagingurl" & "&spoke=" & spoke &_
"if Book_Spoke <> "" then pagingurl = pagingurl" & "&book_spoke=" & Book_Spoke &_
"if Chapter_Spoke<> "" then pagingurl = pagingurl" & "&chapter_spoke=" & Chapter_Spoke &_
"if Verse_Spoke<> "" then pagingurl = pagingurl" & "&verse_spoke=" & Verse_Spoke &_
"&optAction=on"">"&i&"</a> "

rokslide · #4 (**permalink**) 10-17-04, 20:48

*sigh* you went wrong by trying to do it other then the way I suggested.

You are trying to write out the URL before you have determine what the url should be. This is quite simply a very very very bad idea.

The code I posted creates a variable and builds it (in the same way you build your sql string) and then only once it is complete does it get used.

What you are trying to do (and I'm guessing here because it's a mess) is write out the url and build it at the same time and that will not work.

Build first, then write it.

gilgalbiblewhee · #5 (**permalink**) 10-17-04, 20:55

ok I see what you did. I missed the "pagingurl ="

rokslide · #6 (**permalink**) 10-17-04, 21:13

let me know how you get on.

gilgalbiblewhee · #7 (**permalink**) 10-17-04, 21:30

what do you think?

Quote:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/wheelofgod/kjvresp4.asp, line 261

pagingurl = "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?page="&i&" & "&Keyword="& Keyword &"&Keywordb="& Keywordb &"&Keywordc="& Keywordc & if spoke<> "" then pagingurl = pagingurl & "&spoke=" & spoke & if Book_Spoke <> "" then pagingurl = pagingurl & "&book_spoke=" & Book_Spoke & if Chapter_Spoke<> "" then pagingurl = pagingurl & "&chapter_spoke=" & Chapter_Spoke & if Verse_Spoke<> "" then pagingurl = pagingurl & "&verse_spoke=" & Verse_Spoke & pagingurl = pagingurl & "&text_data=yes" & "&optAction=on""">"&i&"</a> "
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^

gilgalbiblewhee · #8 (**permalink**) 10-17-04, 21:32

the arrow is under the 2nd " of "&text_data=yes"

rokslide · #9 (**permalink**) 10-17-04, 21:51

you're going to drive me crazy gil...

copy and paste this

Code:

pagingurl = "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?page="&i&" & "&Keyword="& Keyword &"&Keywordb="& Keywordb &"&Keywordc="& Keywordc

if spoke<> "" then pagingurl = pagingurl & "&spoke=" & spoke

if Book_Spoke <> "" then pagingurl = pagingurl & "&book_spoke=" & Book_Spoke

if Chapter_Spoke<> "" then pagingurl = pagingurl & "&chapter_spoke=" & Chapter_Spoke

if Verse_Spoke<> "" then pagingurl = pagingurl & "&verse_spoke=" & Verse_Spoke 

pagingurl = pagingurl & "&text_data=yes" & "&optAction=on""">"&i&"</a> "

gilgalbiblewhee · #10 (**permalink**) 10-17-04, 21:56

Updating the paging:

Code:

pagingurl = "<a href=""" & 
Request.ServerVariables("SCRIPT_NAME") & 

"?page="&i&" & 

"&Keyword="& Keyword &

"&Keywordb="& Keywordb &

"&Keywordc="& Keywordc & if spoke<> "" then pagingurl = pagingurl & 

"&spoke=" & spoke & 

if Book_Spoke <> "" then pagingurl = pagingurl &
"&book_spoke=" & Book_Spoke & 

if Chapter_Spoke<> "" then pagingurl = pagingurl & "&chapter_spoke=" & Chapter_Spoke & 

if Verse_Spoke<> "" then pagingurl = pagingurl & "&verse_spoke=" & Verse_Spoke & 

pagingurl = pagingurl & 
text_data=yes&optAction=on"">"&i&"</a> "

response.write pagingurl

shows no errors but says "false".

rokslide · #11 (**permalink**) 10-17-04, 22:07

dude, what are you doing to this stuff when you copy and paste??

There are extra &'s being added to the code and that is what is cauing your problems. Also you are spliting lines all over the place. Not a good thing generally.

gilgalbiblewhee · #12 (**permalink**) 10-17-04, 22:23

I just noticed your previous posting. I used what you wrote and got :

Quote:

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/wheelofgod/kjvresp4.asp, line 265

pagingurl = "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?page="&i&" & "&Keyword="& Keyword &"&Keywordb="& Keywordb &"&Keywordc="& Keywordc
-------------------------------------------------------------------------------------------------------------------------------------------------------^

With the arrow under the space that follows this: &"&Keywordc="& Keywordc

rokslide · #13 (**permalink**) 10-17-04, 22:26

opps, I'll take the blame for that one, the line should be...

Code:

pagingurl = "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?page=" &i& "&Keyword="& Keyword &"&Keywordb="& Keywordb &"&Keywordc="& Keywordc

gilgalbiblewhee · #14 (**permalink**) 10-17-04, 22:32

No problem rokslide sometimes I don't realize when someone has posted until after I post again.

Quote:

Microsoft VBScript compilation error '800a03ea'

Syntax error

/wheelofgod/kjvresp4.asp, line 275

pagingurl = pagingurl & "&text_data=yes" & "&optAction=on""">"&i&"</a> "
-------------------------------------------------------------------^

The arrow is on /

rokslide · #15 (**permalink**) 10-17-04, 22:35

try this...

Code:

pagingurl = pagingurl & "&text_data=yes&optAction=on""">" & i & "</a> "

Internet Services

Web Development

Digital Marketing

Consumer Tech