|
 |
asp_databases thread: Help paging
Message #1 by emmanuel.gambier@l... on Wed, 9 Oct 2002 13:10:55
|
|
Hello,
I'm trying to paging the results of a search and that doesn't work and
that gives any error.
If anyone has an idea.
this is a huge page.
;-)
<%
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={SQL Server};" & _
"Server=gandalf;" & _
"Database=filing2000;" & _
"Trusted_Connection=yes"
mot1=Request.Form("mot")
mot2=Request.Form("motp")
mot3=Request.Form("motd")
%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=windows-1252">
<TITLE>You request : Clients: "<%=mot1%>" PIC: "<%=mot2%>" Doc Files: "<%
=mot3%>"</TITLE>
</HEAD>
<BODY>
<p align="center"> <font face="Arial, Helvetica, sans-serif"><%
mot=Replace(mot1,"'","''")
mot=Replace(mot,"<","<%22")
mot=Replace(mot,"%22%3E%22","%22>%22%25%3E")
motp=Replace(mot2,"'","''")
motp=Replace(motp,"<","<%22")
motp=Replace(motp,"%22%3E%22","%22>%22%25%3E")
motd=Replace(mot3,"'","''")
motd=Replace(motd,"<","<%22")
motd=Replace(motd,"%22%3E%22","%22>%22%25%3E")
Select Case Request.QueryString("directeur")
Case ""
Session("CurrentPage") = 1
Case "Next"
Session("CurrentPage") = Session("CurrentPage") + 1
Case "Prev"
Session("CurrentPage") = Session("CurrentPage") - 1
End Select
Const adOpenKeyset = 1
if mot ="" and motp="" and motd="" then
%> <b> <font color="#008000" size="2"><BR>
Nothing was found. Please try again using an other search term<BR>
</font></b> <%
elseif mot<>"" or mot<>" " and motp<>"" or motp<>" " and motd<>"" or
motd<>" " then
SQL4= "SELECT * FROM fcliaz where clients like '%"&mot&"%' and pic
like '%"&motp&"%' and doc_files like '%"&motd&"%' order by clients"
Set rs4 = Server.CreateObject("ADODB.Recordset")
rs4.Open SQL4, conn, adOpenKeyset
rs4.PageSize = 10
rs4.AbsolutePage = CLng(Session("CurrentPage"))
Dim i
For i = 1 To rs4.PageSize
if rs4.eof=true then
%>
<font color="#008000" size="2"><b>No records including the word :
Clients: "<%=mot1%>"
PIC: "<%=mot2%>"
Doc Files: "<%=mot3%>"</b></font></font>
<font face="Arial, Helvetica, sans-serif"><%else%>
<font size="2" color="#800000">You're looking for :<b> Clients: "<%=mot1%
>"
PIC: "<%=mot2%>"
Doc Files: "<%=mot3%>"</B></font></font></p>
<p align="center"> <font face="Arial, Helvetica, sans-serif"><BR>
<b> <font size="2">Results :</font></b></font></p>
<font face="Arial, Helvetica, sans-serif"><div align="center"> <center>
<table width="75%" bordercolor="#008080" border="1"
bordercolorlight="#008000" bordercolordark="#008000">
<%rs4.MoveFirst
do while Not rs4.eof%> </font>
<tr>
<td> <font face="Arial, Helvetica, sans-serif"><A HREF="news.asp?id=<%
=response.write(rs4.Fields("id").Value)%>" target="bas_droite">
<FONT SIZE=2 COLOR=#0000ff><%=response.write(rs4.Fields
("clients").Value)%></FONT></A>
<font color="#005522" size="2">(<I><%=response.write(rs4.Fields
("pic").Value)%></I>)</font></font>
<font face="Arial, Helvetica, sans-serif"><BR>
<FONT SIZE=2 color=#a78467><%=response.write(rs4.Fields
("doc_files").Value)%></FONT></font>
</td>
</tr>
<font face="Arial, Helvetica, sans-serif"><%
rs4.MoveNext
If rs4.EOF then
exit for
End If
loop%>
<%If CLng(Session("CurrentPage")) > 1 Then %>
<a href="recherche.asp?Direction=Prev">Previous</a>
<% End If %>
<%If CLng(Session("CurrentPage")) < rs4.Pagecount Then %>
<a href="recherche.asp?Direction=Next">Next</a><% End If
rs4.close
set rs4=nothing
end if
next
elseif mot<>" " or mot<>"" and motp="" or motp=" " and motd="" or
motd=" " then
SQL1 = "SELECT * FROM fcliaz where clients like '%"&mot&"%' order by
clients"
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open SQL1, conn, adOpenKeyset
rs1.PageSize = 10
rs1.AbsolutePage = CLng(Session("CurrentPage"))
For i = 1 To rs1.PageSize
if rs1.eof=true then
%>
<font color="#008000" size="2"><b>No records including the word :
Clients: "<%=mot1%>"</b></font></font>
<font face="Arial, Helvetica, sans-serif"><%else%>
<font size="2" color="#800000">You're looking for :<b> Clients: "<% =mot1%
>"</B></font></font><font face="Arial, Helvetica, sans-serif"></p></font>
<p align="center"> <font face="Arial, Helvetica, sans-serif"><BR>
<b> <font size="2">Results :</font></b></font></p>
<font face="Arial, Helvetica, sans-serif"><div align="center"></font>
<font face="Arial, Helvetica, sans-serif"><center></font>
<font face="Arial, Helvetica, sans-serif"><table width="75%"
bordercolor="#008080" border="1" bordercolorlight="#008000"
bordercolordark="#008000"></font>
<font face="Arial, Helvetica, sans-serif"><%rs1.MoveFirst
do while Not rs1.eof%> </font>
<tr>
<td> <font face="Arial, Helvetica, sans-serif"><A HREF="news.asp?id=<%
=response.write(rs1.Fields("id").Value)%>" target="bas_droite">
<FONT SIZE=2 COLOR=#0000ff><%=response.write(rs1.Fields
("clients").Value)%></FONT></A>
<font color="#005522" size="2">(<I><%=response.write(rs1.Fields
("pic").Value)%></I>)</font></font>
<font face="Arial, Helvetica, sans-serif"><BR>
<FONT SIZE=2 color=#a78467><%=response.write(rs1.Fields
("doc_files").Value)%></FONT></font>
</td>
</tr>
<font face="Arial, Helvetica, sans-serif"><%
rs1.MoveNext
If rs1.EOF then
exit for
End If
loop%>
<%If CLng(Session("CurrentPage")) > 1 Then %>
<a href="recherche.asp?Direction=Prev">Previous</a>
<% End If %>
<%If CLng(Session("CurrentPage")) < rs1.Pagecount Then %>
<a href="recherche.asp?Direction=Next">Next</a><% End If
rs1.close
set rs1=nothing
end if
next
elseif motp<>"" or motp<>" " and mot="" or mot=" " and motd="" or
motd=" " then
SQL2 = "SELECT * FROM fcliaz where pic like '%"&motp&"%' order by clients"
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open SQL2, conn, adOpenKeyset
rs2.PageSize = 10
rs2.AbsolutePage = CLng(Session("CurrentPage"))
For i = 1 To rs2.PageSize
if rs2.eof=true then
%>
<font color="#008000" size="2"><b>No records including the word : PIC: "<%
=mot2%>"</b></font></font>
<font face="Arial, Helvetica, sans-serif"><%else%>
<font size="2" color="#800000">You're looking for :<b> PIC: "<% =mot2%
>"</B></font></font><font face="Arial, Helvetica, sans-serif"></p></font>
<p align="center"> <font face="Arial, Helvetica, sans-serif"><BR>
<b> <font size="2">Results :</font></b></font></p>
<font face="Arial, Helvetica, sans-serif"><div align="center"></font>
<font face="Arial, Helvetica, sans-serif"><center></font>
<font face="Arial, Helvetica, sans-serif"><table width="75%"
bordercolor="#008080" border="1" bordercolorlight="#008000"
bordercolordark="#008000"></font>
<font face="Arial, Helvetica, sans-serif"><%rs2.MoveFirst
do while Not rs2.eof%> </font>
<tr>
<td> <font face="Arial, Helvetica, sans-serif"><A HREF="news.asp?id=<%
=response.write(rs2.Fields("id").Value)%>" target="bas_droite">
<FONT SIZE=2 COLOR=#0000ff><%=response.write(rs2.Fields
("clients").Value)%></FONT></A>
<font color="#005522" size="2">(<I><%=response.write(rs2.Fields
("pic").Value)%></I>)</font></font>
<font face="Arial, Helvetica, sans-serif"><BR>
<FONT SIZE=2 color=#a78467><%=response.write(rs2.Fields
("doc_files").Value)%></FONT></font>
</td>
</tr>
<font face="Arial, Helvetica, sans-serif"><%
rs2.MoveNext
If rs2.EOF then
exit for
End If
loop%>
<%If CLng(Session("CurrentPage")) > 1 Then %>
<a href="recherche.asp?Direction=Prev">Previous</a>
<% End If %>
<%If CLng(Session("CurrentPage")) < rs2.Pagecount Then %>
<a href="recherche.asp?Direction=Next">Next</a><% End If
rs2.close
set rs2=nothing
end if
next
elseif motd<>"" or motd<>" " and mot="" or mot=" " and motd="" or
motd=" " then
SQL3= "SELECT * FROM fcliaz where doc_files like '%"&motd&"%' order by
clients"
Set rs3 = Server.CreateObject("ADODB.Recordset")
rs3.Open SQL3, conn, adOpenKeyset
rs3.PageSize = 10
rs3.AbsolutePage = CLng(Session("CurrentPage"))
For i = 1 To rs3.PageSize
if rs3.eof=true then
%>
<font color="#008000" size="2"><b>No records including the word : Doc
Files: "<%=mot3%>"</b></font></font>
<font face="Arial, Helvetica, sans-serif"><%else%>
<font size="2" color="#800000">You're looking for :<b> Doc Files: "<%
=mot3%>"</B></font></font><font face="Arial, Helvetica, sans-
serif"></p></font>
<p align="center"> <font face="Arial, Helvetica, sans-serif"><BR>
<b> <font size="2">Results :</font></b></font></p>
<div align="center">
<center>
<table width="75%" bordercolor="#008080" border="1"
bordercolorlight="#FFFFFF" bordercolordark="#008000">
<%rs3.MoveFirst
do while Not rs3.eof%>
<tr>
<td> <A HREF="news.asp?id=<%=response.write(rs3.Fields
("id").Value)%>" target="bas_droite">
<FONT SIZE=2 face="Arial" COLOR=#0000ff><%=response.write
(rs3.Fields("clients").Value)%></FONT></A>
<font face="Arial" color="#005522" size="2">(<I><%=response.write
(rs3.Fields("pic").Value)%></I>)</font>
<BR>
<FONT SIZE=2 face="Arial" color=#a78467><%=response.write
(rs3.Fields("doc_files").Value)%></FONT>
</td>
</tr>
<%
rs3.MoveNext
If rs3.EOF then
exit for
End If
%>
<%If CLng(Session("CurrentPage")) > 1 Then %>
<a href="recherche.asp?Direction=Prev">Previous</a>
<% End If %>
<%If CLng(Session("CurrentPage")) < rs3.Pagecount Then %>
<a href="recherche.asp?Direction=Next">Next</a><% End If
loop
end if
rs3.close
set rs3=nothing
next
end if
%>
</table>
</center>
</div>
<p><font face="Arial, Helvetica, sans-serif"> </font></p>
<p align="center"><font face="Arial, Helvetica, sans-serif" size="1"><a
href="moteur.htm">Back</a></font></p>
<p align="center"><font face="Arial, Helvetica, sans-serif"> </font></p>
</BODY>
</HTML>
Message #2 by "Peter Foti (PeterF)" <PeterF@S...> on Wed, 9 Oct 2002 10:20:06 -0400
|
|
I could be wrong, but I think you have to set the PageSize BEFORE you open
the recordset. In your case, you are doing the opposite. Could that be the
problem?
-Pete
> -----Original Message-----
> From: emmanuel.gambier@l...
> [mailto:emmanuel.gambier@l...]
> Sent: Wednesday, October 09, 2002 1:11 PM
> To: ASP Databases
> Subject: [asp_databases] Help paging
>
>
> Hello,
>
> I'm trying to paging the results of a search and that doesn't
> work and
> that gives any error.
>
> If anyone has an idea.
>
> this is a huge page.
>
> ;-)
>
>
> <%
>
> Set conn = Server.CreateObject("ADODB.Connection")
> Conn.Open "Driver={SQL Server};" & _
> "Server=gandalf;" & _
> "Database=filing2000;" & _
> "Trusted_Connection=yes"
>
> mot1=Request.Form("mot")
> mot2=Request.Form("motp")
> mot3=Request.Form("motd")
> %>
> <HTML>
> <HEAD>
> <META HTTP-EQUIV="Content-Type"
> CONTENT="text/html;charset=windows-1252">
> <TITLE>You request : Clients: "<%=mot1%>" PIC: "<%=mot2%>"
> Doc Files: "<%
> =mot3%>"</TITLE>
> </HEAD>
> <BODY>
> <p align="center"> <font face="Arial, Helvetica, sans-serif"><%
> mot=Replace(mot1,"'","''")
> mot=Replace(mot,"<","<%22")
> mot=Replace(mot,"%22%3E%22","%22>%22%25%3E")
>
>
> motp=Replace(mot2,"'","''")
> motp=Replace(motp,"<","<%22")
> motp=Replace(motp,"%22%3E%22","%22>%22%25%3E")
>
> motd=Replace(mot3,"'","''")
> motd=Replace(motd,"<","<%22")
> motd=Replace(motd,"%22%3E%22","%22>%22%25%3E")
>
> Select Case Request.QueryString("directeur")
> Case ""
> Session("CurrentPage") = 1
> Case "Next"
> Session("CurrentPage") = Session("CurrentPage") + 1
> Case "Prev"
> Session("CurrentPage") = Session("CurrentPage") - 1
> End Select
> Const adOpenKeyset = 1
>
>
>
>
>
>
>
> if mot ="" and motp="" and motd="" then
> %> <b> <font color="#008000" size="2"><BR>
> Nothing was found. Please try again using an other search term<BR>
> </font></b> <%
>
>
>
>
>
> elseif mot<>"" or mot<>" " and motp<>"" or motp<>" " and motd<>"" or
> motd<>" " then
>
>
> SQL4= "SELECT * FROM fcliaz where clients like '%"&mot&"%' and pic
> like '%"&motp&"%' and doc_files like '%"&motd&"%' order by clients"
>
>
> Set rs4 = Server.CreateObject("ADODB.Recordset")
> rs4.Open SQL4, conn, adOpenKeyset
> rs4.PageSize = 10
> rs4.AbsolutePage = CLng(Session("CurrentPage"))
> Dim i
> For i = 1 To rs4.PageSize
>
> if rs4.eof=true then
>
> %>
> <font color="#008000" size="2"><b>No records including the word :
> Clients: "<%=mot1%>"
> PIC: "<%=mot2%>"
> Doc Files: "<%=mot3%>"</b></font></font>
> <font face="Arial, Helvetica, sans-serif"><%else%>
> <font size="2" color="#800000">You're looking for :<b>
> Clients: "<%=mot1%
> >"
> PIC: "<%=mot2%>"
> Doc Files: "<%=mot3%>"</B></font></font></p>
> <p align="center"> <font face="Arial, Helvetica, sans-serif"><BR>
> <b> <font size="2">Results :</font></b></font></p>
> <font face="Arial, Helvetica, sans-serif"><div
> align="center"> <center>
> <table width="75%" bordercolor="#008080" border="1"
> bordercolorlight="#008000" bordercolordark="#008000">
> <%rs4.MoveFirst
> do while Not rs4.eof%> </font>
> <tr>
> <td> <font face="Arial, Helvetica, sans-serif"><A
> HREF="news.asp?id=<%
> =response.write(rs4.Fields("id").Value)%>" target="bas_droite">
> <FONT SIZE=2 COLOR=#0000ff><%=response.write(rs4.Fields
> ("clients").Value)%></FONT></A>
> <font color="#005522" size="2">(<I><%=response.write(rs4.Fields
> ("pic").Value)%></I>)</font></font>
> <font face="Arial, Helvetica, sans-serif"><BR>
> <FONT SIZE=2 color=#a78467><%=response.write(rs4.Fields
> ("doc_files").Value)%></FONT></font>
> </td>
> </tr>
> <font face="Arial, Helvetica, sans-serif"><%
>
>
>
>
>
> rs4.MoveNext
>
> If rs4.EOF then
> exit for
> End If
> loop%>
>
> <%If CLng(Session("CurrentPage")) > 1 Then %>
> <a href="recherche.asp?Direction=Prev">Previous</a>
> <% End If %>
> <%If CLng(Session("CurrentPage")) < rs4.Pagecount Then %>
> <a href="recherche.asp?Direction=Next">Next</a><% End If
>
>
>
>
>
>
> rs4.close
> set rs4=nothing
>
> end if
>
>
>
>
> next
>
>
> elseif mot<>" " or mot<>"" and motp="" or motp=" " and motd="" or
> motd=" " then
>
>
>
> SQL1 = "SELECT * FROM fcliaz where clients like '%"&mot&"%' order by
> clients"
>
> Set rs1 = Server.CreateObject("ADODB.Recordset")
> rs1.Open SQL1, conn, adOpenKeyset
> rs1.PageSize = 10
> rs1.AbsolutePage = CLng(Session("CurrentPage"))
>
> For i = 1 To rs1.PageSize
>
>
> if rs1.eof=true then
>
> %>
> <font color="#008000" size="2"><b>No records including the word :
> Clients: "<%=mot1%>"</b></font></font>
> <font face="Arial, Helvetica, sans-serif"><%else%>
> <font size="2" color="#800000">You're looking for :<b>
> Clients: "<% =mot1%
> >"</B></font></font><font face="Arial, Helvetica,
> sans-serif"></p></font>
> <p align="center"> <font face="Arial, Helvetica, sans-serif"><BR>
> <b> <font size="2">Results :</font></b></font></p>
> <font face="Arial, Helvetica, sans-serif"><div align="center"></font>
> <font face="Arial, Helvetica, sans-serif"><center></font>
> <font face="Arial, Helvetica, sans-serif"><table width="75%"
> bordercolor="#008080" border="1" bordercolorlight="#008000"
> bordercolordark="#008000"></font>
> <font face="Arial, Helvetica, sans-serif"><%rs1.MoveFirst
> do while Not rs1.eof%> </font>
> <tr>
> <td> <font face="Arial, Helvetica, sans-serif"><A
> HREF="news.asp?id=<%
> =response.write(rs1.Fields("id").Value)%>" target="bas_droite">
> <FONT SIZE=2 COLOR=#0000ff><%=response.write(rs1.Fields
> ("clients").Value)%></FONT></A>
> <font color="#005522" size="2">(<I><%=response.write(rs1.Fields
> ("pic").Value)%></I>)</font></font>
> <font face="Arial, Helvetica, sans-serif"><BR>
> <FONT SIZE=2 color=#a78467><%=response.write(rs1.Fields
> ("doc_files").Value)%></FONT></font>
> </td>
> </tr>
> <font face="Arial, Helvetica, sans-serif"><%
>
> rs1.MoveNext
>
> If rs1.EOF then
> exit for
> End If
> loop%>
>
> <%If CLng(Session("CurrentPage")) > 1 Then %>
> <a href="recherche.asp?Direction=Prev">Previous</a>
> <% End If %>
> <%If CLng(Session("CurrentPage")) < rs1.Pagecount Then %>
> <a href="recherche.asp?Direction=Next">Next</a><% End If
>
> rs1.close
> set rs1=nothing
> end if
>
> next
>
>
> elseif motp<>"" or motp<>" " and mot="" or mot=" " and motd="" or
> motd=" " then
>
>
>
>
>
> SQL2 = "SELECT * FROM fcliaz where pic like '%"&motp&"%'
> order by clients"
>
>
> Set rs2 = Server.CreateObject("ADODB.Recordset")
> rs2.Open SQL2, conn, adOpenKeyset
> rs2.PageSize = 10
> rs2.AbsolutePage = CLng(Session("CurrentPage"))
>
> For i = 1 To rs2.PageSize
>
> if rs2.eof=true then
>
> %>
> <font color="#008000" size="2"><b>No records including the
> word : PIC: "<%
> =mot2%>"</b></font></font>
> <font face="Arial, Helvetica, sans-serif"><%else%>
> <font size="2" color="#800000">You're looking for :<b> PIC: "<% =mot2%
> >"</B></font></font><font face="Arial, Helvetica,
> sans-serif"></p></font>
> <p align="center"> <font face="Arial, Helvetica, sans-serif"><BR>
> <b> <font size="2">Results :</font></b></font></p>
> <font face="Arial, Helvetica, sans-serif"><div align="center"></font>
> <font face="Arial, Helvetica, sans-serif"><center></font>
> <font face="Arial, Helvetica, sans-serif"><table width="75%"
> bordercolor="#008080" border="1" bordercolorlight="#008000"
> bordercolordark="#008000"></font>
> <font face="Arial, Helvetica, sans-serif"><%rs2.MoveFirst
> do while Not rs2.eof%> </font>
> <tr>
> <td> <font face="Arial, Helvetica, sans-serif"><A
> HREF="news.asp?id=<%
> =response.write(rs2.Fields("id").Value)%>" target="bas_droite">
> <FONT SIZE=2 COLOR=#0000ff><%=response.write(rs2.Fields
> ("clients").Value)%></FONT></A>
> <font color="#005522" size="2">(<I><%=response.write(rs2.Fields
> ("pic").Value)%></I>)</font></font>
> <font face="Arial, Helvetica, sans-serif"><BR>
> <FONT SIZE=2 color=#a78467><%=response.write(rs2.Fields
> ("doc_files").Value)%></FONT></font>
> </td>
> </tr>
> <font face="Arial, Helvetica, sans-serif"><%
> rs2.MoveNext
>
> If rs2.EOF then
> exit for
> End If
> loop%>
>
> <%If CLng(Session("CurrentPage")) > 1 Then %>
> <a href="recherche.asp?Direction=Prev">Previous</a>
> <% End If %>
> <%If CLng(Session("CurrentPage")) < rs2.Pagecount Then %>
> <a href="recherche.asp?Direction=Next">Next</a><% End If
>
>
> rs2.close
> set rs2=nothing
> end if
>
> next
>
> elseif motd<>"" or motd<>" " and mot="" or mot=" " and motd="" or
> motd=" " then
>
>
>
> SQL3= "SELECT * FROM fcliaz where doc_files like '%"&motd&"%'
> order by
> clients"
>
>
> Set rs3 = Server.CreateObject("ADODB.Recordset")
> rs3.Open SQL3, conn, adOpenKeyset
> rs3.PageSize = 10
> rs3.AbsolutePage = CLng(Session("CurrentPage"))
>
> For i = 1 To rs3.PageSize
>
> if rs3.eof=true then
>
> %>
> <font color="#008000" size="2"><b>No records including the word : Doc
> Files: "<%=mot3%>"</b></font></font>
> <font face="Arial, Helvetica, sans-serif"><%else%>
> <font size="2" color="#800000">You're looking for :<b> Doc Files: "<%
> =mot3%>"</B></font></font><font face="Arial, Helvetica, sans-
> serif"></p></font>
> <p align="center"> <font face="Arial, Helvetica, sans-serif"><BR>
> <b> <font size="2">Results :</font></b></font></p>
> <div align="center">
> <center>
> <table width="75%" bordercolor="#008080" border="1"
> bordercolorlight="#FFFFFF" bordercolordark="#008000">
> <%rs3.MoveFirst
> do while Not rs3.eof%>
> <tr>
> <td> <A HREF="news.asp?id=<%=response.write(rs3.Fields
> ("id").Value)%>" target="bas_droite">
> <FONT SIZE=2 face="Arial" COLOR=#0000ff><%=response.write
> (rs3.Fields("clients").Value)%></FONT></A>
> <font face="Arial" color="#005522"
> size="2">(<I><%=response.write
> (rs3.Fields("pic").Value)%></I>)</font>
> <BR>
> <FONT SIZE=2 face="Arial" color=#a78467><%=response.write
> (rs3.Fields("doc_files").Value)%></FONT>
> </td>
> </tr>
> <%
> rs3.MoveNext
>
> If rs3.EOF then
> exit for
> End If
> %>
>
> <%If CLng(Session("CurrentPage")) > 1 Then %>
> <a href="recherche.asp?Direction=Prev">Previous</a>
> <% End If %>
> <%If CLng(Session("CurrentPage")) < rs3.Pagecount Then %>
> <a href="recherche.asp?Direction=Next">Next</a><% End If
>
>
> loop
> end if
> rs3.close
> set rs3=nothing
>
> next
>
> end if
>
> %>
> </table>
> </center>
> </div>
> <p><font face="Arial, Helvetica, sans-serif"> </font></p>
> <p align="center"><font face="Arial, Helvetica, sans-serif"
> size="1"><a
> href="moteur.htm">Back</a></font></p>
> <p align="center"><font face="Arial, Helvetica, sans-serif">
> </font></p>
>
>
> </BODY>
> </HTML>
>
Message #3 by "Gambier, Emmanuel" <emmanuel.gambier@l...> on Wed, 9 Oct 2002 15:23:55 +0100
|
|
I just tried and I receive the same results (no paging).
Thanks.
-----Original Message-----
From: Peter Foti (PeterF) [mailto:PeterF@S...]
Sent: mercredi 9 octobre 2002 16:20
To: ASP Databases
Subject: [asp_databases] RE: Help paging
I could be wrong, but I think you have to set the PageSize BEFORE you open
the recordset. In your case, you are doing the opposite. Could that be the
problem?
-Pete
> -----Original Message-----
> From: emmanuel.gambier@l...
> [mailto:emmanuel.gambier@l...]
> Sent: Wednesday, October 09, 2002 1:11 PM
> To: ASP Databases
> Subject: [asp_databases] Help paging
>
>
> Hello,
>
> I'm trying to paging the results of a search and that doesn't
> work and
> that gives any error.
>
> If anyone has an idea.
>
> this is a huge page.
>
> ;-)
>
>
> <%
>
> Set conn = Server.CreateObject("ADODB.Connection")
> Conn.Open "Driver={SQL Server};" & _
> "Server=gandalf;" & _
> "Database=filing2000;" & _
> "Trusted_Connection=yes"
>
> mot1=Request.Form("mot")
> mot2=Request.Form("motp")
> mot3=Request.Form("motd")
> %>
> <HTML>
> <HEAD>
> <META HTTP-EQUIV="Content-Type"
> CONTENT="text/html;charset=windows-1252">
> <TITLE>You request : Clients: "<%=mot1%>" PIC: "<%=mot2%>"
> Doc Files: "<%
> =mot3%>"</TITLE>
> </HEAD>
> <BODY>
> <p align="center"> <font face="Arial, Helvetica, sans-serif"><%
> mot=Replace(mot1,"'","''")
> mot=Replace(mot,"<","<%22")
> mot=Replace(mot,"%22%3E%22","%22>%22%25%3E")
>
>
> motp=Replace(mot2,"'","''")
> motp=Replace(motp,"<","<%22")
> motp=Replace(motp,"%22%3E%22","%22>%22%25%3E")
>
> motd=Replace(mot3,"'","''")
> motd=Replace(motd,"<","<%22")
> motd=Replace(motd,"%22%3E%22","%22>%22%25%3E")
>
> Select Case Request.QueryString("directeur")
> Case ""
> Session("CurrentPage") = 1
> Case "Next"
> Session("CurrentPage") = Session("CurrentPage") + 1
> Case "Prev"
> Session("CurrentPage") = Session("CurrentPage") - 1
> End Select
> Const adOpenKeyset = 1
>
>
>
>
>
>
>
> if mot ="" and motp="" and motd="" then
> %> <b> <font color="#008000" size="2"><BR>
> Nothing was found. Please try again using an other search term<BR>
> </font></b> <%
>
>
>
>
>
> elseif mot<>"" or mot<>" " and motp<>"" or motp<>" " and motd<>"" or
> motd<>" " then
>
>
> SQL4= "SELECT * FROM fcliaz where clients like '%"&mot&"%' and pic
> like '%"&motp&"%' and doc_files like '%"&motd&"%' order by clients"
>
>
> Set rs4 = Server.CreateObject("ADODB.Recordset")
> rs4.Open SQL4, conn, adOpenKeyset
> rs4.PageSize = 10
> rs4.AbsolutePage = CLng(Session("CurrentPage"))
> Dim i
> For i = 1 To rs4.PageSize
>
> if rs4.eof=true then
>
> %>
> <font color="#008000" size="2"><b>No records including the word :
> Clients: "<%=mot1%>"
> PIC: "<%=mot2%>"
> Doc Files: "<%=mot3%>"</b></font></font>
> <font face="Arial, Helvetica, sans-serif"><%else%>
> <font size="2" color="#800000">You're looking for :<b>
> Clients: "<%=mot1%
> >"
> PIC: "<%=mot2%>"
> Doc Files: "<%=mot3%>"</B></font></font></p>
> <p align="center"> <font face="Arial, Helvetica, sans-serif"><BR>
> <b> <font size="2">Results :</font></b></font></p>
> <font face="Arial, Helvetica, sans-serif"><div
> align="center"> <center>
> <table width="75%" bordercolor="#008080" border="1"
> bordercolorlight="#008000" bordercolordark="#008000">
> <%rs4.MoveFirst
> do while Not rs4.eof%> </font>
> <tr>
> <td> <font face="Arial, Helvetica, sans-serif"><A
> HREF="news.asp?id=<%
> =response.write(rs4.Fields("id").Value)%>" target="bas_droite">
> <FONT SIZE=2 COLOR=#0000ff><%=response.write(rs4.Fields
> ("clients").Value)%></FONT></A>
> <font color="#005522" size="2">(<I><%=response.write(rs4.Fields
> ("pic").Value)%></I>)</font></font>
> <font face="Arial, Helvetica, sans-serif"><BR>
> <FONT SIZE=2 color=#a78467><%=response.write(rs4.Fields
> ("doc_files").Value)%></FONT></font>
> </td>
> </tr>
> <font face="Arial, Helvetica, sans-serif"><%
>
>
>
>
>
> rs4.MoveNext
>
> If rs4.EOF then
> exit for
> End If
> loop%>
>
> <%If CLng(Session("CurrentPage")) > 1 Then %>
> <a href="recherche.asp?Direction=Prev">Previous</a>
> <% End If %>
> <%If CLng(Session("CurrentPage")) < rs4.Pagecount Then %>
> <a href="recherche.asp?Direction=Next">Next</a><% End If
>
>
>
>
>
>
> rs4.close
> set rs4=nothing
>
> end if
>
>
>
>
> next
>
>
> elseif mot<>" " or mot<>"" and motp="" or motp=" " and motd="" or
> motd=" " then
>
>
>
> SQL1 = "SELECT * FROM fcliaz where clients like '%"&mot&"%' order by
> clients"
>
> Set rs1 = Server.CreateObject("ADODB.Recordset")
> rs1.Open SQL1, conn, adOpenKeyset
> rs1.PageSize = 10
> rs1.AbsolutePage = CLng(Session("CurrentPage"))
>
> For i = 1 To rs1.PageSize
>
>
> if rs1.eof=true then
>
> %>
> <font color="#008000" size="2"><b>No records including the word :
> Clients: "<%=mot1%>"</b></font></font>
> <font face="Arial, Helvetica, sans-serif"><%else%>
> <font size="2" color="#800000">You're looking for :<b>
> Clients: "<% =mot1%
> >"</B></font></font><font face="Arial, Helvetica,
> sans-serif"></p></font>
> <p align="center"> <font face="Arial, Helvetica, sans-serif"><BR>
> <b> <font size="2">Results :</font></b></font></p>
> <font face="Arial, Helvetica, sans-serif"><div align="center"></font>
> <font face="Arial, Helvetica, sans-serif"><center></font>
> <font face="Arial, Helvetica, sans-serif"><table width="75%"
> bordercolor="#008080" border="1" bordercolorlight="#008000"
> bordercolordark="#008000"></font>
> <font face="Arial, Helvetica, sans-serif"><%rs1.MoveFirst
> do while Not rs1.eof%> </font>
> <tr>
> <td> <font face="Arial, Helvetica, sans-serif"><A
> HREF="news.asp?id=<%
> =response.write(rs1.Fields("id").Value)%>" target="bas_droite">
> <FONT SIZE=2 COLOR=#0000ff><%=response.write(rs1.Fields
> ("clients").Value)%></FONT></A>
> <font color="#005522" size="2">(<I><%=response.write(rs1.Fields
> ("pic").Value)%></I>)</font></font>
> <font face="Arial, Helvetica, sans-serif"><BR>
> <FONT SIZE=2 color=#a78467><%=response.write(rs1.Fields
> ("doc_files").Value)%></FONT></font>
> </td>
> </tr>
> <font face="Arial, Helvetica, sans-serif"><%
>
> rs1.MoveNext
>
> If rs1.EOF then
> exit for
> End If
> loop%>
>
> <%If CLng(Session("CurrentPage")) > 1 Then %>
> <a href="recherche.asp?Direction=Prev">Previous</a>
> <% End If %>
> <%If CLng(Session("CurrentPage")) < rs1.Pagecount Then %>
> <a href="recherche.asp?Direction=Next">Next</a><% End If
>
> rs1.close
> set rs1=nothing
> end if
>
> next
>
>
> elseif motp<>"" or motp<>" " and mot="" or mot=" " and motd="" or
> motd=" " then
>
>
>
>
>
> SQL2 = "SELECT * FROM fcliaz where pic like '%"&motp&"%'
> order by clients"
>
>
> Set rs2 = Server.CreateObject("ADODB.Recordset")
> rs2.Open SQL2, conn, adOpenKeyset
> rs2.PageSize = 10
> rs2.AbsolutePage = CLng(Session("CurrentPage"))
>
> For i = 1 To rs2.PageSize
>
> if rs2.eof=true then
>
> %>
> <font color="#008000" size="2"><b>No records including the
> word : PIC: "<%
> =mot2%>"</b></font></font>
> <font face="Arial, Helvetica, sans-serif"><%else%>
> <font size="2" color="#800000">You're looking for :<b> PIC: "<% =mot2%
> >"</B></font></font><font face="Arial, Helvetica,
> sans-serif"></p></font>
> <p align="center"> <font face="Arial, Helvetica, sans-serif"><BR>
> <b> <font size="2">Results :</font></b></font></p>
> <font face="Arial, Helvetica, sans-serif"><div align="center"></font>
> <font face="Arial, Helvetica, sans-serif"><center></font>
> <font face="Arial, Helvetica, sans-serif"><table width="75%"
> bordercolor="#008080" border="1" bordercolorlight="#008000"
> bordercolordark="#008000"></font>
> <font face="Arial, Helvetica, sans-serif"><%rs2.MoveFirst
> do while Not rs2.eof%> </font>
> <tr>
> <td> <font face="Arial, Helvetica, sans-serif"><A
> HREF="news.asp?id=<%
> =response.write(rs2.Fields("id").Value)%>" target="bas_droite">
> <FONT SIZE=2 COLOR=#0000ff><%=response.write(rs2.Fields
> ("clients").Value)%></FONT></A>
> <font color="#005522" size="2">(<I><%=response.write(rs2.Fields
> ("pic").Value)%></I>)</font></font>
> <font face="Arial, Helvetica, sans-serif"><BR>
> <FONT SIZE=2 color=#a78467><%=response.write(rs2.Fields
> ("doc_files").Value)%></FONT></font>
> </td>
> </tr>
> <font face="Arial, Helvetica, sans-serif"><%
> rs2.MoveNext
>
> If rs2.EOF then
> exit for
> End If
> loop%>
>
> <%If CLng(Session("CurrentPage")) > 1 Then %>
> <a href="recherche.asp?Direction=Prev">Previous</a>
> <% End If %>
> <%If CLng(Session("CurrentPage")) < rs2.Pagecount Then %>
> <a href="recherche.asp?Direction=Next">Next</a><% End If
>
>
> rs2.close
> set rs2=nothing
> end if
>
> next
>
> elseif motd<>"" or motd<>" " and mot="" or mot=" " and motd="" or
> motd=" " then
>
>
>
> SQL3= "SELECT * FROM fcliaz where doc_files like '%"&motd&"%'
> order by
> clients"
>
>
> Set rs3 = Server.CreateObject("ADODB.Recordset")
> rs3.Open SQL3, conn, adOpenKeyset
> rs3.PageSize = 10
> rs3.AbsolutePage = CLng(Session("CurrentPage"))
>
> For i = 1 To rs3.PageSize
>
> if rs3.eof=true then
>
> %>
> <font color="#008000" size="2"><b>No records including the word : Doc
> Files: "<%=mot3%>"</b></font></font>
> <font face="Arial, Helvetica, sans-serif"><%else%>
> <font size="2" color="#800000">You're looking for :<b> Doc Files: "<%
> =mot3%>"</B></font></font><font face="Arial, Helvetica, sans-
> serif"></p></font>
> <p align="center"> <font face="Arial, Helvetica, sans-serif"><BR>
> <b> <font size="2">Results :</font></b></font></p>
> <div align="center">
> <center>
> <table width="75%" bordercolor="#008080" border="1"
> bordercolorlight="#FFFFFF" bordercolordark="#008000">
> <%rs3.MoveFirst
> do while Not rs3.eof%>
> <tr>
> <td> <A HREF="news.asp?id=<%=response.write(rs3.Fields
> ("id").Value)%>" target="bas_droite">
> <FONT SIZE=2 face="Arial" COLOR=#0000ff><%=response.write
> (rs3.Fields("clients").Value)%></FONT></A>
> <font face="Arial" color="#005522"
> size="2">(<I><%=response.write
> (rs3.Fields("pic").Value)%></I>)</font>
> <BR>
> <FONT SIZE=2 face="Arial" color=#a78467><%=response.write
> (rs3.Fields("doc_files").Value)%></FONT>
> </td>
> </tr>
> <%
> rs3.MoveNext
>
> If rs3.EOF then
> exit for
> End If
> %>
>
> <%If CLng(Session("CurrentPage")) > 1 Then %>
> <a href="recherche.asp?Direction=Prev">Previous</a>
> <% End If %>
> <%If CLng(Session("CurrentPage")) < rs3.Pagecount Then %>
> <a href="recherche.asp?Direction=Next">Next</a><% End If
>
>
> loop
> end if
> rs3.close
> set rs3=nothing
>
> next
>
> end if
>
> %>
> </table>
> </center>
> </div>
> <p><font face="Arial, Helvetica, sans-serif"> </font></p>
> <p align="center"><font face="Arial, Helvetica, sans-serif"
> size="1"><a
> href="moteur.htm">Back</a></font></p>
> <p align="center"><font face="Arial, Helvetica, sans-serif">
> </font></p>
>
>
> </BODY>
> </HTML>
>
________________________________________________
This message is confidential. It may also be privileged or
otherwise protected by work product immunity or other legal
rules. If you have received it by mistake please let us know
by reply and then delete it from your system; you should not
copy the message or disclose its contents to anyone.
Please refer to < http://www.linklaters.com/regulation > for
important information on the regulatory position of the firm.
|
|
|
View Cart
