Tuesday, March 27, 2012

distribute in a page..

Hello..
I'm for a very long time trying to make somthing, but everytime it doesn't
work..
This is what must happend:
If i have a guestbook with 100 letters, then wath i want is that a script
distribute the letters on a page of 10 end that i have under the letters a
buttun to go to te next letters ( 11-20 ) and a button to go back if you are
not at page one. And in the middle of those 2 buttons i want to see how many
pages with letters there are, and that you kan choose a number of a page to
go to it.
It must show a bit like this
(1) (2) (3) (4) (5) Next page <-- this if you are on the first page
Prevous page (1) (2) (3) (4) (5) next page <-- this if you are on page 2 or
whits one you want..
It must happend with this script:
set rst = cnn.execute("SELECT * FROM tblGastenboek WHERE Gb_Pro_ID_Aan=" &
CheckDBNum(Request("Pro_ID")) & " ORDER BY Gb_ID DESC ")
do until rst.eof
%>
<html>
<head>
<title>Profiel wijzigen</title>
<link rel="stylesheet" type="text/css" href="http://links.10026.com/?link=Style/Default.css">
</head>
<body topmargin="12" leftmargin="10" rightmargin="10" bottommargin="10">
<br>
<center>
<table width="400" cellpadding="0" cellspacing="1" border="0"
bgcolor="#000000">
<tr>
<td bgcolor="#000000" height="15" width="165"><font
color="#FFFFFF"><b>&nbsp;<%=rst("GBNickname")% ></b></font></td>
<td bgcolor="#000000" width="84" align="center"><%
sPro_ID = session("Pro_ID")
if trim(sPro_ID) = trim(request("Pro_ID")) then %>
<a
href="Gastenboek.asp?ACTION=DELETE&ID=<%=rst("GB_I D")%>&Pro_ID=<%=request("Pro_ID")%>"><font
color="#FFFFFF">&nbsp;Verwijderen&nbsp;</font></a>
<%end if%>
</td>
<td bgcolor="#000000" width="147" align="center"><font
color="#FFFFFF"><b><%=rst("GBDatum")%></b></font></td>
</tr>
<tr>
<td bgcolor="white" colspan="3">
<%
Bericht = rst("GBtekst")
If Bericht <> "" then
Bericht = Replace(Bericht, ">", ">")
Bericht = Replace(Bericht, "<", "<")
End if
%>
<%=Bericht%>
</td>
</tr>
</table>
</center>
</body>
</html>
<%
rst.movenext
loop
rst.close
set rst = nothing
Is there sombody how can make it for me in this script.. please don't tell
me wath i can try or can do, it wont work.. Zo please
if you know how to fix it, please make it for me..
If you can help me i wanna thank you very much!
Gr. Robert
Robert
Read these articles
http://www.aspfaq.com/show.asp?id=2120
http://www.aspfaq.com/show.asp?id=2424
"Robert" <Bla@.bla.nl> wrote in message news:dfcot2$beu$1@.news.cistron.nl...
> Hello..
> I'm for a very long time trying to make somthing, but everytime it doesn't
> work..
> This is what must happend:
> If i have a guestbook with 100 letters, then wath i want is that a script
> distribute the letters on a page of 10 end that i have under the letters a
> buttun to go to te next letters ( 11-20 ) and a button to go back if you
> are not at page one. And in the middle of those 2 buttons i want to see
> how many pages with letters there are, and that you kan choose a number of
> a page to go to it.
> It must show a bit like this
> (1) (2) (3) (4) (5) Next page <-- this if you are on the first page
> Prevous page (1) (2) (3) (4) (5) next page <-- this if you are on page 2
> or whits one you want..
> It must happend with this script:
> set rst = cnn.execute("SELECT * FROM tblGastenboek WHERE Gb_Pro_ID_Aan="
> & CheckDBNum(Request("Pro_ID")) & " ORDER BY Gb_ID DESC ")
> do until rst.eof
> %>
> <html>
> <head>
> <title>Profiel wijzigen</title>
> <link rel="stylesheet" type="text/css" href="http://links.10026.com/?link=Style/Default.css">
> </head>
> <body topmargin="12" leftmargin="10" rightmargin="10"
> bottommargin="10">
> <br>
> <center>
> <table width="400" cellpadding="0" cellspacing="1" border="0"
> bgcolor="#000000">
> <tr>
> <td bgcolor="#000000" height="15" width="165"><font
> color="#FFFFFF"><b>&nbsp;<%=rst("GBNickname")% ></b></font></td>
> <td bgcolor="#000000" width="84" align="center"><%
> sPro_ID = session("Pro_ID")
> if trim(sPro_ID) = trim(request("Pro_ID")) then %>
> <a
> href="http://links.10026.com/?link=Gastenboek.asp?ACTION=DELETE&ID=<%=rst("GB_I D")%>&Pro_ID=<%=request("Pro_ID")%>"><font
> color="#FFFFFF">&nbsp;Verwijderen&nbsp;</font></a>
> <%end if%>
> </td>
> <td bgcolor="#000000" width="147" align="center"><font
> color="#FFFFFF"><b><%=rst("GBDatum")%></b></font></td>
> </tr>
> <tr>
> <td bgcolor="white" colspan="3">
> <%
> Bericht = rst("GBtekst")
> If Bericht <> "" then
> Bericht = Replace(Bericht, ">", ">")
> Bericht = Replace(Bericht, "<", "<")
> End if
> %>
> <%=Bericht%>
> </td>
> </tr>
> </table>
> </center>
> </body>
> </html>
> <%
> rst.movenext
> loop
> rst.close
> set rst = nothing
> Is there sombody how can make it for me in this script.. please don't tell
> me wath i can try or can do, it wont work.. Zo please
> if you know how to fix it, please make it for me..
> If you can help me i wanna thank you very much!
> Gr. Robert
>
sql

No comments:

Post a Comment