need your help, please

janise · Sep 21, 2002

I need help with paging, please.
In the below code snippet, I need to give users the ability to click on the "Next" button to view the next record.
Then also allow them to be able to return to previous record with the "Previous" button.
The users want it in this format.
I tried to integrate everything into this code but without success.
I then wrote two additional asps, one MoveNex and one MovePrev such that once you click the "Next" or "Previous" button it calls one of the asps to perform that action.
Problem is none is working.
I have spent a week trying to make it work.
Please help me!

<TR>
<TD bgcolor=khaki COLSPAN=2 BGCOLOR=WHITE ALIGN=CENTER>

<!INPUT TYPE=SUBMIT VALUE="Update"-->
<!INPUT TYPE=RESET VALUE="Reset"-->

<INPUT TYPE=BUTTON VALUE="Next" OnClick="location='co_applicant.asp'">
<INPUT TYPE=BUTTON VALUE="Previous" OnClick="location='co_applicant.asp'">
<INPUT TYPE=BUTTON VALUE="Add Record" OnClick="location='new_applicant.asp'">
<INPUT TYPE=BUTTON VALUE="Delete Record" OnClick="location='del_rec.asp?ssnum=????'">
<INPUT TYPE=BUTTON VALUE="Find" OnClick="location='getRecs.asp'">
<INPUT TYPE=BUTTON VALUE="Main Menu" onClick="location='main_menu.asp'">

</TD>
</TR>

*******************************
This is moveNext, similar to MovePrevious
*******************************
<%@ Language=VBScript%>
<%Option Explicit%>
<%Response.buffer=true%>

Dim RecSet As Object 'Recordset

<%

RecSet.MoveNext 'Move to next record
Response.Redirect "view_recs.asp"

%>

Thanks in advance

GaryC123 · Sep 21, 2002

How are you sorting the records, by name, index or...?

janise · Sep 21, 2002

thanks GaryC123!
I am not sorting it yet!
I jus want the moveNex or movePrev to work.
Do I need to sort it before it works?
If so, I can sort it by ID and Id is numeric.

GaryC123 · Sep 21, 2002

If its just a simple case of sort by index and nothing else and without going into anything more complicated then
on the page you display the record create an hidden field containing the present index retrieved from the database (this would go after the select statement).
On the Next (and Previous page) retrieve the index value from the hidden field and place this in the the select statement either -1 or +1

Hidden field something like this
<input type="hidden" name="index" value="<%=rs("id&quot

%>">

select statement something like this
nextindex=request("index&quot

+1 (or -1 on the previous page)
"select * from db where id= '" & nextindex "'"
and another hidden field
<input type="hidden" name="index" value="<%=rs("id&quot

%>">

GaryC123 · Sep 21, 2002

oops like this

"select * from db where id= '%" & nextindex & "%'"

janise · Sep 21, 2002

here is the entire code!
can you please modify.
Sorry to dump on you, this is killing me.

<%@ Language=VBScript%>

<%Response.buffer=true%>

<% Response.Expires = 0%>

<%
Set connectionToDatabase=Server.CreateObject("ADODB.Connection&quot

Set rs=Server.CreateObject("ADODB.Recordset&quot

connectionToDatabase.Open "DSN=sTract;UID=sokeh;PWD=sonn1e"

rs.Open "Select * from Driver where DriverID=" & "'" & Request.QueryString("SS_NUM&quot

& "'" & " OR LName=" & "'" & Request.QueryString("Lname&quot

& "'",connectionToDatabase,1

%>

<HEAD>
<LINK REL=STYLESHEET TYPE="text/css" HREF="af_styles.css">

<SCRIPT LANGUAGE="JavaScript">

</SCRIPT>

<script language="JavaScript">
function verify(doco)
{
var msg = "";
var intSelCount = 0;

//loop though all of form variables
for (var i=0; i < doco.form.length; i++){
var e = doco.form.elements;

if (e.name == "lid&quot
{
for (var s=0; s < e.length; s++)
{
if (e.options.selected == true)
{
intSelCount++;
}
}
}

if (e.name == "PAYMT_OPTION&quot
{
for (var s=0; s < e.length; s++)
{
if (e.options.selected == true)
{
intSelCount++;
}
}
}
}

if (intSelCount > 10)
{
msg = "Please limit your selection.";
alert(msg);
return false;
}

doco.form.submit();
return true;
}
</script>

</HEAD>

<CENTER>
<BODY BGCOLOR="steelBLUE">
<TABLE>
<tr>
<td>
<img src="images/pworks.jpg">
</td>
</tr>
<TR>
<TD>
<font class="ArialNarrow12" COLOR="WHITE"><b>AccidenttTrac - New Driver Screen</b></font>

</TD>
</TR>
</TABLE>

<FORM ACTION="insertRec.asp" METHOD="POST">
<TABLE WIDTH=98% BORDER=0 BGCOLOR="SILVER" CELLPADDING=4 CELLSPACING=0 >
<TR>
<TD ALIGN=CENTER VALIGN=TOP>
<TABLE>
<TD ALIGN=LEFT> <FONT CLASS='Arial10' COLOR=RED><B>
Driver SS#
</TD>
<TD ALIGN=LEFT>
<INPUT TYPE="TEXT" NAME="SS_NUM" VALUE="" >
</TD>
</TR>

<TR>
<TD ALIGN=LEFT> <B><FONT CLASS='Arial10'>
First Name<B>
</TD>
<TD ALIGN=LEFT>
<INPUT TYPE="TEXT" NAME="FIRST_NAME" VALUE="" >
</TD>
</TR>

<TR>
<TD ALIGN=LEFT> <B><FONT CLASS='Arial10'>
Last Name<B>
</TD>
<TD ALIGN=LEFT>
<INPUT TYPE="TEXT" NAME="LAST_NAME" VALUE="" >
</TD>
</TR>

<TR>
<TD><FONT CLASS='Arial10' ><B>
Middle Initial
</TD>
<TD>
<INPUT TYPE="TEXT" NAME="Middle_Initial" VALUE="" >
</TD>
</TR>

<TR>
<TD><FONT CLASS='Arial10' ><B>
Driver's Gender
</TD>
<TD>
<INPUT TYPE="TEXT" NAME="Driver_Sex" VALUE="" >
</TD>
</TR>

<TR>
<TD><FONT CLASS='Arial10' ><B>
First Street Address
</TD>
<TD>
<INPUT TYPE="TEXT" NAME="ADDRESS1" VALUE="" >
</TD>
</TR>

<TR>
<TD><FONT CLASS='Arial10' ><B>
Second Street Address
</TD>
<TD>
<INPUT TYPE="TEXT" NAME="ADDRESS2" VALUE="" >
</TD>
</TR>

<TR>
<TD><FONT CLASS='Arial10' ><B>
City
</TD>
<TD>
<INPUT TYPE="TEXT" NAME="CITY" VALUE="" >
</TD>
</TR>

<TR>
<TD><FONT CLASS='Arial10' ><B>
State
</TD>
<TD>
<INPUT TYPE="TEXT" NAME="STATE" VALUE="" >
</TD>
</TR>

<TR>
<TD><FONT CLASS='Arial10' ><B>
Zip Code
</TD>
<TD>
<INPUT TYPE="TEXT" NAME="ZIP_CODE" VALUE="" >
</TD>
</TR>

<TR>
<TD><FONT CLASS='Arial10' ><B>
Home Phone
</TD>
<TD>
<INPUT TYPE="TEXT" NAME="HOME_PHONE" VALUE="" >
</TD>
</TR>

<TR>
<TD><FONT CLASS='Arial10' ><B>
Work/Cell
</TD>
<TD>
<INPUT TYPE="TEXT" NAME="Work_PHONE" VALUE="" >
</TD>
</TR>

<TR>
<TD><FONT CLASS='Arial10' ><B>
Email
</TD>
<TD>
<INPUT TYPE="TEXT" NAME="EMAIL_Address" VALUE="" >

</TD>
</TR>

<TR>
<TD><FONT CLASS='Arial10' ><B>
Is Our Driver at Fault?
</TD>
<TD>
<INPUT TYPE="TEXT" NAME="Fault" VALUE="" >
</TD>
</TR>
<TR>
<TD><FONT CLASS='Arial10' ><B>
Driving Under What Influence?
</TD>
<TD>
<INPUT TYPE="TEXT" NAME="Influence_Type" VALUE="" >
</TD>
</TR>
<TR>
<TD><FONT CLASS='Arial10' ><B>
What Type Of Injury?
</TD>
<TD>
<INPUT TYPE="TEXT" NAME="Injury_Type" VALUE="" >
</TD>
</TR>

</TABLE>
</TD>

<TD VALIGN="CENTER" ALIGN=CENTER >

<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=4 BORDERCOLOR="YELLOW" >
<TR>
<TD align=left>
<FONT CLASS='Arial10' COLOR='darkred'><B>
Source of referral?</B>
</TD>
<TD>

<SCRIPT LANGUAGE="JavaScript">

</SCRIPT>

</TD>
</TR>

<TR>
<TD><FONT CLASS='Arial10' COLOR='darkred'><B>
Years in IT</B>
</TD>
<TD>
<SELECT NAME='IT_YRS' SIZE=1>
<OPTION VALUE='' SELECTED>---Select one---
<OPTION VALUE='none'>none
<OPTION VALUE='1 - 2'>1 - 2
<OPTION VALUE='over 2'>over 2
<OPTION VALUE='Other'>Other
</SELECT>

</TD>
</TR>

<TR>
<TD><FONT CLASS='Arial10' COLOR='darkred'><B>
How many times in accident</B>
</TD>
<TD>
<SELECT NAME='NoOfAccidents' SIZE=1>
<OPTION VALUE='' SELECTED>---Select one---
<OPTION VALUE='none'>none
<OPTION VALUE='1'>1
<OPTION VALUE='2'>2
<OPTION VALUE='3'>3
<OPTION VALUE='4'>4
<OPTION VALUE='5'>5
<OPTION VALUE='over 5'>Over 5
</SELECT>

</TD>
</TR>

<TR COLSPAN=2>
<TD><FONT CLASS='Arial10' COLOR='darkred'><B>
Current annual salary </B>
</TD>
<TD>
<SELECT NAME='CURR_SAL' SIZE=1>
<OPTION VALUE='none' SELECTED>---Select one---
<OPTION VALUE='under 20,000'>under 20,000
<OPTION VALUE='20,000 - 30,000'>20,000 - 30,000
<OPTION VALUE='31,000 - 40,000'>31,000 - 40,000
<OPTION VALUE='Over 45,000'>Over 45,000
</SELECT>
</TD>
</TR>

<TR COLSPAN=2>
<TD><FONT CLASS='Arial10' COLOR='darkred'><B>
Educational Level </B>
</TD>
<TD>
<SELECT NAME='EDU_LEVEL' SIZE=1>
<OPTION VALUE='-1' SELECTED>---Select one---
<OPTION VALUE='High School'>High School
<OPTION VALUE='College'>College
<OPTION VALUE='Post Graduate'>Post Graduate
<OPTION VALUE='Other'>Other
</SELECT>
</TD>
</TR>

<TR>
<TD ><FONT CLASS='Arial10' COLOR='darkred'>
<B>Payment Option </B>
</TD>
<TD>
<SELECT NAME='PAYMT_OPTION' MULTIPLE SIZE=3>
<OPTION VALUE='-1' SELECTED>---Select one---
<OPTION VALUE='Check'>Check
<OPTION VALUE='Credit Card'>Credit Card
<OPTION VALUE='Loan'>Loan
<OPTION VALUE='Cash'>Cash
<OPTION VALUE='Other'>Other
</SELECT>
</TD>
</TR>

<TR>
<TD>

<FONT CLASS='Arial10' COLOR='darkred'><B>
Intended Program of study? </B></FONT>

<SCRIPT LANGUAGE="JavaScript">

</SCRIPT>

<FONT CLASS='Arial10' COLOR='darkred'>
<B>Co-Applicant? </B></FONT>
<INPUT NAME="CoApp" TYPE=radio VALUE="Yes">Yes
<INPUT NAME="CoApp" TYPE=radio VALUE="No">No
</TD>
<TD VALIGN=TOP>
<FONT CLASS='Arial10' COLOR='darkred'>
<B>Own PC? </B></FONT>
<INPUT NAME="ownpc" TYPE=radio VALUE="Yes">Yes
<INPUT NAME="ownpc" TYPE=radio VALUE="No">No
<HR NOSHADE>

<FONT CLASS='Arial10' COLOR='darkred'>
<B>Reason For Selecting OTS </B></FONT><BR>
<TEXTAREA VALUE="" NAME="reason" rows=4 cols=25></TextArea>

</TD>
</TR>
</TABLE>

</TD>
</TR>

<tr>
<td colspan=2 >
<table border=5 width=100%>
<tr>
<td ALIGN=CENTER>

<table border = 1 BORDERCOLOR=RED CELLSPACING=0 CELLPADDING=2>
<TR>
<TD><FONT CLASS='Arial10' ><B>
Contact Date
</TD>
<TD>
<%
Response.Write("<INPUT TYPE=TEXT NAME='contact_dt' VALUE=" & date() & " >&quot
%>
</TD>
</TR>

<TR>
<TD><FONT CLASS='Arial10' ><B>
Class
</TD>
<TD>
<INPUT TYPE=TEXT NAME='class' VALUE="" >
</TD>
</TR>

<TR>
<TD><FONT CLASS='Arial10' ><B>
Amount Paid
</TD>
<TD>
<INPUT TYPE=TEXT NAME='amount' VALUE="" >
</TD>
</TR>

<TR>
<TD><FONT CLASS='Arial10' ><B>
TPR
</TD>
<TD>
<INPUT TYPE=TEXT NAME='tpr' VALUE="" >
</TD>
</TR>

<TR>
<TD><FONT CLASS='Arial10' ><B>
Accounts Recievable
</TD>
<TD>
<INPUT TYPE=TEXT NAME='accts_recv' VALUE="">
</TD>
</TR>
</table>
</td>

<td VALIGN=TOP >
<table border = 0>
<TR>
<TD>
<FONT CLASS='Arial10' ><B>
Comments/Notes</b></FONT><br>

<TEXTAREA rows=4 cols=30> </textarea>
</TD>
</TR>
</table>

</td>
</tr>
</table>

</td>
</tr>

<TR>
<TD bgcolor=khaki COLSPAN=2 BGCOLOR=WHITE ALIGN=CENTER>

<!INPUT TYPE=SUBMIT VALUE="Update"-->
<!INPUT TYPE=RESET VALUE="Reset"-->

<INPUT TYPE=BUTTON VALUE="Next" OnClick="location='co_applicant.asp'">
<INPUT TYPE=BUTTON VALUE="Previous" OnClick="location='co_applicant.asp'">
<INPUT TYPE=BUTTON VALUE="Add Record" OnClick="location='new_applicant.asp'">
<INPUT TYPE=BUTTON VALUE="Delete Record" OnClick="location='del_rec.asp?ssnum=????'">
<INPUT TYPE=BUTTON VALUE="Find" OnClick="location='getRecs.asp'">
<INPUT TYPE=BUTTON VALUE="Main Menu" onClick="location='main_menu.asp'">

</TD>
</TR>

</TABLE>
</FORM>
</CENTER>

</BODY>

GaryC123 · Sep 21, 2002

This at the beginning

<%Response.buffer=true
Response.Expires = 0
on error resume next
Set connectionToDatabase=Server.CreateObject("ADODB.Connection&quot

Set rs=Server.CreateObject("ADODB.Recordset&quot

connectionToDatabase.Open "DSN=sTract;UID=sokeh;PWD=sonn1e"
if request("value&quot

="next" then
tempid=request("index&quot

+1
elseif request("value&quot

="previous" then
tempid=request("index&quot

-1
else
tempid=request("SS_NUM&quot

end if
rs.Open "Select * from Driver where DriverID=" & "'" & tempid & "'" & " OR LName=" & "'" & Request.QueryString("Lname&quot

& "'",connectionToDatabase,1
tempid=rs("DriverID&quot

%>

and your button values to this

<INPUT TYPE=BUTTON VALUE="Next" OnClick="location=thispagename.asp?value=next&index=<%=tempid%>'">
<INPUT TYPE=BUTTON VALUE="Previous" OnClick="location=thispagename.asp?value=previous&index=<%=tempid%>'">
<INPUT TYPE=BUTTON VALUE="Add Record" OnClick="location='new_applicant.asp'">
<INPUT TYPE=BUTTON VALUE="Delete Record" OnClick="location='del_rec.asp?ssnum=????'">
<INPUT TYPE=BUTTON VALUE="Find" OnClick="location='getRecs.asp'">
<INPUT TYPE=BUTTON VALUE="Main Menu" onClick="location='main_menu.asp'">

should do it I think

GaryC123 · Sep 21, 2002

I deleted the apostrophe from the start of thispagename by mistake!

janise · Sep 21, 2002

GaryC123,
thank you so very much.
Just to be sure one thing.
1, the thispagename applies to the name of this asp.
In this case, the name of this asp page is view_Res.asp.
I know these questions are dumb and I am sorry.
I have struggled with this I just want to get it right now I got help from a good individual like you.
I am leaving this place now.
I will post result of this help on Monday.
Again, thanks a bunch!!

GaryC123 · Sep 21, 2002

Yep thats right, change thispagename to view_Res.asp

) <p><b><font face="Arial" size="2">
<span style="FONT-WEIGHT: bold; FONT-SIZE: 10pt; FONT-FAMILY: Arial">
Saturday......   12:00hrs.....</span></font></b><img src="

http://www.booknowlimited.com/iconimages/image006.gif"><img

height="50" src="

http://www.booknowlimited.com/iconimages/image002.gif"

wi

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

need your help, please

janise

Technical User

GaryC123

Programmer

janise

Technical User

GaryC123

Programmer

GaryC123

Programmer

janise

Technical User

GaryC123

Programmer

GaryC123

Programmer

janise

Technical User

GaryC123

Programmer

Similar threads

Part and Inventory Search

Sponsor