ASP: Page Numbering - Page 2 - HTML Forums

scoutt · 08-19-2003, 09:10 AM

thanks Johan. I will give you the credit

putts · 08-19-2003, 10:34 AM

Try to post this last night, but HTMLForums was hating me...

Switch your select statement to something like

PHP Code:


			
SELECT FIRSTNAME,LASTNAME,LEFT(FIRSTNAME,1) AS FIRSTLETTER FROM EMPLOYEES ORDER BY FIRSTLETTER

Now, while doing the loop, watch for that firstletter to change....

PHP Code:


			
dim firstlet

dim recSet

dim strSQL



strSQL = "SELECT FIRSTNAME,LASTNAME,LEFT(FIRSTNAME,1) AS FIRSTLETTER FROM EMPLOYEES ORDER BY FIRSTLETTER"



set recSet = db.execute(strSQL)

%>

<table>

<%

if not(recSet.eof) then

   firstLet = recSet(&quot;FIRSTLETTER&quot;)

   while not(recSet.eof)

       if recSet(&quot;FIRSTLETTER&quot;) <> firstLet%>

          <tr><td><%=recSet(&quot;FIRSTLETTER&quot;)%></td></tr>

       <%end if

       firstlet = recSet(&quot;FIRSTLETTER&quot;)

       %>

       <tr><td><%=recSet(&quot;FIRSTNAME&quot;) & &quot; &quot; & recSet(&quot;LASTNAME&quot;)%></td></tr>

       <% 

       recSet.moveNext

   wend

end if%>

</table>

That's a good example on how to something like that.

So, there it is.

Johan · 08-19-2003, 02:25 PM

Thats looks great Putts thanks. What I want to do with it is showing all my reviews on one page. This is mainly for search engine spider reasons.

This on the BBC website is perfect http://www.bbc.co.uk/music/reviews/atoz.shtml
and want to show my reviews in the same way.

I have greater plans for the navigation to work and once I have done it will post the code here.

Johan · 08-24-2003, 08:21 AM

http://www.futuremovies.co.uk/review.asp

It works but as you can it will not print the very first letter/number "2"

PHP Code:


			
strSql = "SELECT Title, LEFT(Title,1) AS FIRSTLETTER, Review.ID AS [reviewID] FROM review WHERE Review.Delete<>'Y' ORDER BY Title"

        Set db = Server.CreateObject("ADODB.Connection")

        Set Rs = Server.CreateObject("ADODB.Recordset")

        db.Open "DSN=futuremovies"

        Rs.Open strSql, db





           If Not(Rs.eof) then

            firstLet = Rs("FIRSTLETTER")

            While Not(Rs.eof)

                If Rs("FIRSTLETTER") <> firstLet Then

                    out = out & "<tr><td><br>"



                    out = out & "<font size=""3""><b>" & Rs("FIRSTLETTER") & "</b></font>"



                    out = out & "</td></tr>"

                End If

                

                firstlet = Rs("FIRSTLETTER")

                

                out = out & "<tr><td>"

                

                out = out & "<a href=""/moviesite/review.asp?ID=" & intID & """>"

                out = out & Rs("Title") 

                out = out & "</a>"

                    

                out = out & "</td></tr>"

                Rs.MoveNext

            wEnd

        End If

Johan · 08-28-2003, 05:56 PM

SORTED

I just initialised the variable to ""

If Not(Rs.eof) then
firstLet = ""
While Not(Rs.eof)
If Rs("FIRSTLETTER") <> firstLet Then
out = out & "<tr><td> "

out = out & "" & Rs("FIRSTLETTER") & ""

out = out & "</td></tr>"
End If

firstlet = Rs("FIRSTLETTER")

out = out & "<tr><td>"

out = out & "<a href=""/moviesite/review.asp?ID=" & intID & """>"
out = out & Rs("Title")
out = out & "</a>"

out = out & "</td></tr>"
Rs.MoveNext
wEnd
End If

putts · 08-29-2003, 09:34 AM

Good job!

The site looks realll nice.

Johan · 09-02-2003, 04:00 AM

Chears for you help Putts - if you want any free design work done then let me know.

Johan · 09-27-2003, 05:54 PM

Another way of paging:

http://www.asp101.com/samples/db_paging.asp

Damn good site that!