How to split the contents of a page??? - ASP / Active Server Pages

Hi,

Hi,

I have a problem in the display of the ASP screen actually i am
retrieving and displaying the data from a database when the view button is hit.The contents for display is so long so i want to have a previous, next link on that page so that some 100 records are displayed in each
page.Pls help me.
I am attaching my code here please help me where can i make the change
to split the display of my page.

This is for entering the couriers that is received in an company. Here
fd=from date fm=from month
td=to date
tm=to month
fy=from year
ty=to year
rpt=report
and this program displays the details of the courier received on the basis of the input fdate-from date and
tdate-todate will be displayed.
Please help me
<%@ LANGUAGE="VBSCRIPT" %>
<SCRIPT language="javascript">
function CClr(oCmp, Num)
{
if(Num == 1)
oCmp.style.backgroundColor = "#FFFFBF"
else
oCmp.style.backgroundColor = "#FFFFFF"
}

</SCRIPT>
<html>
<title>courier</title>
<body>

<%
dim fd,fm,fy
dim td,tm,ty
dim rpt,stxt
dim fdate, tdate
dim branch
dim toatalrec
fd=Request.QueryString("fd")
fm=Request.QueryString("fm")
fy=Request.QueryString("fy")
branch=Request.QueryString("branch")
fdate=fm+"/"+fd+"/"+fy

td=Request.QueryString("td")
tm=Request.QueryString("tm")
ty=Request.QueryString("ty")
tdate=tm+"/"+td+"/"+ty

stxt =Request.QueryString("stxt")
number=Request.QueryString("number")

rpt="N"
dim cn, rs
set cn = Server.Createobject("ADODB.Connection")
set rs = Server.Createobject("ADODB.Recordset")

//cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mmpl;Data Source=mailserver", "it","it"

cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist
Security Info=False;Initial Catalog=mmpl;Data Source=aarServer",
"it","it"

if stxt=VbnullString then
if branch="ALL" then
rs.Open "select * from mmpl_in_trans where rpt_date>='" & fdate & "'
and rpt_date<='" & tdate &"'", cn

else

rs.Open "select * from mmpl_in_trans where rpt_date>='" & fdate & "'
and rpt_date<='" & tdate &"' and in_fn='" & branch &"'", cn

end if

response.write("INWARD ENTRY <a
href='eml_in.asp'>back</a> <a href='..\mmplinout.asp'>Home
page</a>")
Response.Write ("From : " & fdate & "
to : " & tdate &" ")

rpt="Y"

else

rs.Open "select * from mmpl_in_trans where in_details like '%" & stxt & "%' order by in_fn", cn

response.write("INWARD entry <a
href='eml_in.asp'>back</a> <a href='..\mmplinout.asp'>Home
page</a>")

Response.Write ("Searched for : " &
stxt &"")

rpt="Y"

end if

if rpt="Y" then
response.write("<table border=0 > ")

response.write("<tr colspan=0 onblur='CClr(this, 2)'
onfocus='CClr(this, 1)'><th bgcolor=orange>DOCDT </th>")

response.write("<th height=5 bgcolor=orange> BRANCH </th>")

response.write("<th bgcolor=orange>DEPT </th>")

response.write("<th bgcolor=orange>DETAILS </th>")

response.write("<th bgcolor=orange>COU NO </th>")

response.write("<th bgcolor=orange>COU DATE </th>")

response.write("<th bgcolor=orange nowrap > REC TIME </th>")

response.write("</tr><tr>")

if Rs.EOF=False then
Rs.MoveFirst()

With Rs
response.write("<td align=Center bgcolor='#A4D867'>" & .Fields("IN_DATE") &"</td>")

response.write("<td align=Center bgcolor='#A4D867'>"+.Fields("IN_FN")+"</td>")

response.write("<td align=Center bgcolor='#A4D867'>"+.Fields("IN_DP")+"</td>")

response.write("<td bgcolor='#A4D867'>"+.Fields("IN_DETAILS")+"</td>")

response.write("<td align=Center bgcolor='#A4D867'>"+.Fields("IN_CRNO")+"</td>")

response.write("<td align=Center bgcolor='#A4D867'>"&.Fields("IN_CRDATE")&"</td>")

response.write("<td align=Center bgcolor='#A4D867'>"+.Fields("ENT_TIME")+"</td>")

response.write("<tr>")
Rs.MoveNext()

End with
next
End if
End if

%>
</table>
<input type="Submit" name="submitted" value="Next">
</pre><form>
</BODY>
</HEAD>
</HTML>

Thanks,

Aarthy

*** Sent via Developersdex http://www.developersdex.com ***

Oct 17 '05 #1

Subscribe Post Reply

1999

Steven Burn

http://aspfaq.com/show.asp?id=2120

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"aarthy" <bu****@devdex.com> wrote in message
news:O$**************@TK2MSFTNGP14.phx.gbl...

Hi,

Hi,

I have a problem in the display of the ASP screen actually i am
retrieving and displaying the data from a database when the view

button
is hit.The contents for display is so long so i want to have a

previous,
next link on that page so that some 100 records are displayed in each
page.Pls help me.

I am attaching my code here please help me where can i make the change
to split the display of my page.

This is for entering the couriers that is received in an company. Here
fd=from date

fm=from month
td=to date
tm=to month
fy=from year
ty=to year
rpt=report
and this program displays the details of the courier
received on the basis of the input

fdate-from date and
tdate-todate will be displayed.
Please help me

<%@ LANGUAGE="VBSCRIPT" %>
<SCRIPT language="javascript">
function CClr(oCmp, Num)
{
if(Num == 1)
oCmp.style.backgroundColor = "#FFFFBF"
else
oCmp.style.backgroundColor = "#FFFFFF"
}

</SCRIPT>
<html>
<title>courier</title>
<body>

<%
dim fd,fm,fy
dim td,tm,ty
dim rpt,stxt
dim fdate, tdate
dim branch
dim toatalrec
fd=Request.QueryString("fd")
fm=Request.QueryString("fm")
fy=Request.QueryString("fy")
branch=Request.QueryString("branch")
fdate=fm+"/"+fd+"/"+fy

td=Request.QueryString("td")
tm=Request.QueryString("tm")
ty=Request.QueryString("ty")
tdate=tm+"/"+td+"/"+ty

stxt =Request.QueryString("stxt")
number=Request.QueryString("number")

rpt="N"
dim cn, rs
set cn = Server.Createobject("ADODB.Connection")
set rs = Server.Createobject("ADODB.Recordset")

//cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist

Security
Info=False;Initial Catalog=mmpl;Data Source=mailserver", "it","it"

cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist
Security Info=False;Initial Catalog=mmpl;Data Source=aarServer",
"it","it"

if stxt=VbnullString then
if branch="ALL" then
rs.Open "select * from mmpl_in_trans where rpt_date>='" & fdate & "'
and rpt_date<='" & tdate &"'", cn

else

rs.Open "select * from mmpl_in_trans where rpt_date>='" & fdate & "'
and rpt_date<='" & tdate &"' and in_fn='" & branch &"'", cn

end if

response.write("INWARD ENTRY <a
href='eml_in.asp'>back</a> <a href='..\mmplinout.asp'>Home
page</a>")
Response.Write ("From : " & fdate & "
to : " & tdate &" ")

rpt="Y"

else

rs.Open "select * from mmpl_in_trans where in_details like '%" & stxt

&
"%' order by in_fn", cn

response.write("INWARD entry <a
href='eml_in.asp'>back</a> <a href='..\mmplinout.asp'>Home
page</a>")

Response.Write ("Searched for : " &
stxt &"")

rpt="Y"

end if

if rpt="Y" then
response.write("<table border=0 > ")

response.write("<tr colspan=0 onblur='CClr(this, 2)'
onfocus='CClr(this, 1)'><th bgcolor=orange>DOCDT </th>")

response.write("<th height=5 bgcolor=orange> BRANCH </th>")

response.write("<th bgcolor=orange>DEPT </th>")

response.write("<th bgcolor=orange>DETAILS </th>")

response.write("<th bgcolor=orange>COU NO </th>")

response.write("<th bgcolor=orange>COU DATE </th>")

response.write("<th bgcolor=orange nowrap > REC TIME </th>")

response.write("</tr><tr>")

if Rs.EOF=False then
Rs.MoveFirst()

With Rs
response.write("<td align=Center bgcolor='#A4D867'>" & .Fields("IN_DATE") &"</td>")

response.write("<td align=Center bgcolor='#A4D867'>"+.Fields("IN_FN")+"</td>")

response.write("<td align=Center bgcolor='#A4D867'>"+.Fields("IN_DP")+"</td>")

response.write("<td bgcolor='#A4D867'>"+.Fields("IN_DETAILS")+"</td>")

response.write("<td align=Center bgcolor='#A4D867'>"+.Fields("IN_CRNO")+"</td>")

response.write("<td align=Center bgcolor='#A4D867'>"&.Fields("IN_CRDATE")&"</td>")

response.write("<td align=Center bgcolor='#A4D867'>"+.Fields("ENT_TIME")+"</td>")

response.write("<tr>")
Rs.MoveNext()

End with
next
End if
End if

%>
</table>
<input type="Submit" name="submitted" value="Next">
</pre><form>
</BODY>
</HEAD>
</HTML>

Thanks,

Aarthy

*** Sent via Developersdex http://www.developersdex.com ***

Oct 17 '05 #2

Bullschmidt

"The contents for display is so long so i want to have a
previous, next link on that page so that some 100 records are displayed
in each page."

Some good paging links:

Database Paging
http://www.asp101.com/samples/db_paging.asp
Uses PageSize method of recordset.

Paging Records with GetRows by Mukul Sabharwal - 7/5/2000
http://www.4guysfromrolla.com/webtech/070500-1.shtml
Uses GetRows.

Displaying a certain # of records on each webpage Paging
http://www.aspfree.com/asp/startpage.asp?id=11
Uses PageSize method of recordset.
Shorter.

Recordset Paging with ADO 2.0 by Michael Qualls
http://www.asp101.com/articles/recor...ging/index.asp
Uses PageSize method of recordset.
Longer with more comments.

Paging Demo provides Count and Navigation at the top of the Page!
http://www.aspfree.com/asp/startpage.asp?id=65

Best regards,
J. Paul Schmidt, Freelance Web and Database Developer
http://www.Bullschmidt.com
Access Database Sample, Web Database Sample, ASP Design Tips

*** Sent via Developersdex http://www.developersdex.com ***

Oct 17 '05 #3

Similar topics

How to split the page from php

by: Tom Szabo | last post by:

Hi All, I need some advice on how to split a page where a top section, something like a banner stays stationery, and the rest can be scrolled. Normally this would be done using framesets, two...

PHP

split question, I guess

by: middletree | last post by:

Not really sure what the problem is, perhaps I am using split wrong. Page should get form fields form previous page and some of them will go into a tabel called Personal. Other items, to resolve...

ASP / Active Server Pages

return contents of url to asp page

by: Eric | last post by:

Hello I'm trying to determine a way to call a url from within an ASP page and have the contents (page source) returned to the calling asp page (the same way iis returns page source to your...

ASP / Active Server Pages

Need to do a "book style" Table of Contents

by: wardellcastles | last post by:

I need to transform from an xml specification to a document with a "book-style" table of contents; one with page numbers, not html hyperlinks (The output of the XSLT is NOT html). For example,...

.NET Framework

Redirecting a Frameset main page from the server side.

by: lozd | last post by:

Would appreciate any solutions people could offer for this. Basically I wan't to use a frameset with an aspx page as the contents rather than a htm page and I'd like to be able to redirect the...

.NET Framework

Report's text box control split by page break

by: pemigh | last post by:

I have a report with pages breaking in the middle of text box controls. And it's not just on a line-by-line basis, but sometimes (in a situation that I can no longer recreate) just the bottom...

Microsoft Access / VBA

Script to build html page with table containing pictures

by: Mariusf | last post by:

I am a novice Perl programmer and need to change a perl script that I use to create web pages with thumbnail images and some text. Currently the script created a web page for each artist / category...

Perl

when click hyperlink the window will split two parts & result will display in secound part

by: nani | last post by:

Hi friends I am creating one web application in that i take one hyperlink control.when i click hyperlink control.how to split the page in two parts and display the result in that secound part If...

ASP.NET

Highlight and scroll to search terms when referring URL is a search results page.

by: Celeste | last post by:

Hello, I'm trying to parse the referring url for google search terms so that when this page loads it will scroll to and highlight the search term(s). Should i be using document.referrer? ...

Javascript

New page in perl

by: JWest46088 | last post by:

Hi. I need to create 3 pages. Page 1 requests the number of elements the user wants to add and average. Page 2 asks the user for the numbers. Page 3 adds and averages the numbers and displays...

Perl

How to turn on java script in a villaon keypad mobile phone

by: Charles Arthur | last post by:

How do i turn on java script on a villaon, callus and itel keypad mobile phone

Java

Merging data from multiple Excel files

by: ryjfgjl | last post by:

In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...

Data Management

Migrating Website to Cloud - Emmanuel Katto

by: emmanuelkatto | last post by:

Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud. Please let me know. Thanks! Emmanuel

General

Navigating the Data Structures and Algorithms (DSA)

by: BarryA | last post by:

What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...

Algorithms / Advanced Math

Is that possible of reading the .csv file in column wise and the column have different lengths ?

by: Sonnysonu | last post by:

This is the data of csv file 1 2 3 1 2 3 1 2 3 1 2 3 2 3 2 3 3 the lengths should be different i have to store the data by column-wise with in the specific length. suppose the i have to...

C / C++

Changing the language in Windows 10

by: Hystou | last post by:

Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...

Windows Server

Problem With Comparison Operator <=> in G++

by: Oralloy | last post by:

Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...

C / C++

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...

Windows Server

AI Job Threat for Devs

by: agi2029 | last post by:

Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...

Career Advice