Wrox Programmer Forums
|
Classic ASP Databases Discuss using ASP 3 to work with data in databases, including ASP Database Setup issues from the old P2P forum on this specific subtopic. See also the book forum Beginning ASP.NET Databases for questions specific to that book. NOT for ASP.NET 1.0, 1.1, or 2.0.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Classic ASP Databases section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
 
Old December 7th, 2004, 10:29 AM
Authorized User
  
Join Date: Nov 2004
Posts: 26
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via MSN to don baroo Send a message via Yahoo to don baroo
Default Navigating records in a database
Hi,

I am able to retrieve data from a database into text fields on a form, but i will like to have a button which will scroll through the database and be displaying the records in the textfields.

Can anyone be of help?

Thank you.

don baroo
 
Old December 8th, 2004, 05:27 AM
Friend of Wrox
  
Join Date: Jul 2003
Posts: 683
Thanks: 0
Thanked 1 Time in 1 Post
Default
Hi Don,

Can you post the code that displays the first record please?

Thanks,

Chris
 
Old December 8th, 2004, 06:40 AM
Authorized User
  
Join Date: Nov 2004
Posts: 26
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via MSN to don baroo Send a message via Yahoo to don baroo
Default
Hi Chris,

Here is the code that displays the first record


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<style type="text/css">
<!--
.style1 {font-weight: bold}
.style2 {
    color: #CC0033;
    font-weight: bold;
}
.style3 {font-size: large}
.style4 {color: #CC0033; font-weight: bold; font-size: large; }
-->
</style>
<script language="JavaScript">
<!--
function mmLoadMenus() {
  if (window.mm_menu_1130101356_0) return;
  window.mm_menu_1130101356_0 = new Menu("root",59,20,"Verdana, Arial, Helvetica, sans-serif",14,"#cc0033","#ffffff","#ffffff","#cc0033", "left","middle",3,0,1000,-5,7,true,true,true,0,true,true);
  mm_menu_1130101356_0.addMenuItem("Add","window.ope n('http://localhost/add_asset.htm', '_self');");
  mm_menu_1130101356_0.addMenuItem("Modify");
  mm_menu_1130101356_0.addMenuItem("Delete");
  mm_menu_1130101356_0.addMenuItem("Search");
   mm_menu_1130101356_0.hideOnMouseOut=true;
   mm_menu_1130101356_0.menuBorder=1;
   mm_menu_1130101356_0.menuLiteBgColor='#ffffff';
   mm_menu_1130101356_0.menuBorderBgColor='#555555';
   mm_menu_1130101356_0.bgColor='#555555';
  window.mm_menu_1130101444_1 = new Menu("root",59,20,"Verdana, Arial, Helvetica, sans-serif",14,"#cc0033","#ffffff","#ffffff","#cc0033", "left","middle",3,0,1000,-5,7,true,true,true,0,true,true);
  mm_menu_1130101444_1.addMenuItem("Add");
  mm_menu_1130101444_1.addMenuItem("Modify");
  mm_menu_1130101444_1.addMenuItem("Delete");
  mm_menu_1130101444_1.addMenuItem("Search");
   mm_menu_1130101444_1.hideOnMouseOut=true;
   mm_menu_1130101444_1.menuBorder=1;
   mm_menu_1130101444_1.menuLiteBgColor='#ffffff';
   mm_menu_1130101444_1.menuBorderBgColor='#555555';
   mm_menu_1130101444_1.bgColor='#555555';
  window.mm_menu_1130101513_2 = new Menu("root",59,20,"Verdana, Arial, Helvetica, sans-serif",14,"#cc0033","#ffffff","#ffffff","#cc0033", "left","middle",3,0,1000,-5,7,true,true,true,0,true,true);
  mm_menu_1130101513_2.addMenuItem("Add");
  mm_menu_1130101513_2.addMenuItem("Modify");
  mm_menu_1130101513_2.addMenuItem("Delete");
  mm_menu_1130101513_2.addMenuItem("Search");
   mm_menu_1130101513_2.hideOnMouseOut=true;
   mm_menu_1130101513_2.menuBorder=1;
   mm_menu_1130101513_2.menuLiteBgColor='#ffffff';
   mm_menu_1130101513_2.menuBorderBgColor='#555555';
   mm_menu_1130101513_2.bgColor='#555555';
  window.mm_menu_1130102006_3 = new Menu("root",59,20,"Verdana, Arial, Helvetica, sans-serif",14,"#cc0033","#ffffff","#ffffff","#cc0033", "left","middle",3,0,1000,-5,7,true,true,true,0,true,true);
  mm_menu_1130102006_3.addMenuItem("Add");
  mm_menu_1130102006_3.addMenuItem("Modify");
  mm_menu_1130102006_3.addMenuItem("Delete");
  mm_menu_1130102006_3.addMenuItem("Search");
   mm_menu_1130102006_3.hideOnMouseOut=true;
   mm_menu_1130102006_3.menuBorder=1;
   mm_menu_1130102006_3.menuLiteBgColor='#ffffff';
   mm_menu_1130102006_3.menuBorderBgColor='#555555';
   mm_menu_1130102006_3.bgColor='#555555';
  window.mm_menu_1130102159_4 = new Menu("root",103,20,"Verdana, Arial, Helvetica, sans-serif",14,"#cc0033","#ffffff","#ffffff","#cc0033", "left","middle",3,0,1000,-5,7,true,true,true,0,true,true);
  mm_menu_1130102159_4.addMenuItem("Asset");
  mm_menu_1130102159_4.addMenuItem("Support");
  mm_menu_1130102159_4.addMenuItem("Vendor");
  mm_menu_1130102159_4.addMenuItem("Manufacturer");
   mm_menu_1130102159_4.hideOnMouseOut=true;
   mm_menu_1130102159_4.menuBorder=1;
   mm_menu_1130102159_4.menuLiteBgColor='#ffffff';
   mm_menu_1130102159_4.menuBorderBgColor='#555555';
   mm_menu_1130102159_4.bgColor='#555555';

  mm_menu_1130102159_4.writeMenus();
} // mmLoadMenus()

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_findObj(n, d) { //v4.01
  var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<script language="JavaScript1.2" src="mm_menu.js"></script>
</head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Modify &amp; Update Asset</title>
<script language="JavaScript">
<!--



function mmLoadMenus() {
  if (window.mm_menu_1130101356_0) return;
  window.mm_menu_1130101356_0 = new Menu("root",59,20,"Verdana, Arial, Helvetica, sans-serif",14,"#cc0033","#ffffff","#ffffff","#cc0033", "left","middle",3,0,1000,-5,7,true,true,true,0,true,true);
  mm_menu_1130101356_0.addMenuItem("Add","window.ope n('http://localhost/add_asset.htm', '_self');");
  mm_menu_1130101356_0.addMenuItem("Modify","window. open('http://localhost/modify _asset.htm', '_self');");
  mm_menu_1130101356_0.addMenuItem("Delete");
  mm_menu_1130101356_0.addMenuItem("Search");
   mm_menu_1130101356_0.hideOnMouseOut=true;
   mm_menu_1130101356_0.menuBorder=1;
   mm_menu_1130101356_0.menuLiteBgColor='#ffffff';
   mm_menu_1130101356_0.menuBorderBgColor='#555555';
   mm_menu_1130101356_0.bgColor='#555555';
  window.mm_menu_1130101444_1 = new Menu("root",59,20,"Verdana, Arial, Helvetica, sans-serif",14,"#cc0033","#ffffff","#ffffff","#cc0033", "left","middle",3,0,1000,-5,7,true,true,true,0,true,true);
  mm_menu_1130101444_1.addMenuItem("Add");
  mm_menu_1130101444_1.addMenuItem("Modify");
  mm_menu_1130101444_1.addMenuItem("Delete");
  mm_menu_1130101444_1.addMenuItem("Search");
   mm_menu_1130101444_1.hideOnMouseOut=true;
   mm_menu_1130101444_1.menuBorder=1;
   mm_menu_1130101444_1.menuLiteBgColor='#ffffff';
   mm_menu_1130101444_1.menuBorderBgColor='#555555';
   mm_menu_1130101444_1.bgColor='#555555';
  window.mm_menu_1130101513_2 = new Menu("root",59,20,"Verdana, Arial, Helvetica, sans-serif",14,"#cc0033","#ffffff","#ffffff","#cc0033", "left","middle",3,0,1000,-5,7,true,true,true,0,true,true);
  mm_menu_1130101513_2.addMenuItem("Add");
  mm_menu_1130101513_2.addMenuItem("Modify");
  mm_menu_1130101513_2.addMenuItem("Delete");
  mm_menu_1130101513_2.addMenuItem("Search");
   mm_menu_1130101513_2.hideOnMouseOut=true;
   mm_menu_1130101513_2.menuBorder=1;
   mm_menu_1130101513_2.menuLiteBgColor='#ffffff';
   mm_menu_1130101513_2.menuBorderBgColor='#555555';
   mm_menu_1130101513_2.bgColor='#555555';
  window.mm_menu_1130102006_3 = new Menu("root",59,20,"Verdana, Arial, Helvetica, sans-serif",14,"#cc0033","#ffffff","#ffffff","#cc0033", "left","middle",3,0,1000,-5,7,true,true,true,0,true,true);
  mm_menu_1130102006_3.addMenuItem("Add");
  mm_menu_1130102006_3.addMenuItem("Modify");
  mm_menu_1130102006_3.addMenuItem("Delete");
  mm_menu_1130102006_3.addMenuItem("Search");
   mm_menu_1130102006_3.hideOnMouseOut=true;
   mm_menu_1130102006_3.menuBorder=1;
   mm_menu_1130102006_3.menuLiteBgColor='#ffffff';
   mm_menu_1130102006_3.menuBorderBgColor='#555555';
   mm_menu_1130102006_3.bgColor='#555555';
  window.mm_menu_1130102159_4 = new Menu("root",103,20,"Verdana, Arial, Helvetica, sans-serif",14,"#cc0033","#ffffff","#ffffff","#cc0033", "left","middle",3,0,1000,-5,7,true,true,true,0,true,true);
  mm_menu_1130102159_4.addMenuItem("Asset");
  mm_menu_1130102159_4.addMenuItem("Support");
  mm_menu_1130102159_4.addMenuItem("Vendor");
  mm_menu_1130102159_4.addMenuItem("Manufacturer");
   mm_menu_1130102159_4.hideOnMouseOut=true;
   mm_menu_1130102159_4.menuBorder=1;
   mm_menu_1130102159_4.menuLiteBgColor='#ffffff';
   mm_menu_1130102159_4.menuBorderBgColor='#555555';
   mm_menu_1130102159_4.bgColor='#555555';

  mm_menu_1130102159_4.writeMenus();
} // mmLoadMenus()

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<%

Dim DB
Set DB = Server.CreateObject ("ADODB.Connection")
DB.Mode = adModeReadWrite
DB.Open "driver={MySQL ODBC 3.51 Driver};server=localhost;uid=root;pwd=;database=as setdb"
Dim RS

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

RS.Open "SELECT * FROM asset , branch, location, type, cost", DB
%>
  <%
If RS.EOF And RS.BOF Then
Response.Write "There are 0 records."

End If

%>
<script language="JavaScript1.2" src="mm_menu.js"></script>
<body onLoad="MM_preloadImages('images/menu_r2_c2_f2.jpg','images/menu_r2_c4_f2.jpg','images/menu_r2_c6_f2.jpg','images/menu_r2_c8_f2.jpg','images/menu_r2_c10_f2.jpg','images/menu_r2_c12_f2.jpg','images/menu_r2_c14_f2.jpg')">
<p><img src="logo.png" width="800" height="76"></p>
<table border="0" cellpadding="0" cellspacing="0" width="517">

  <tr>
    <td><img src="images/spacer.gif" alt="" name="undefined_2" width="23" height="1" border="0"></td>
    <td><img src="images/spacer.gif" alt="" name="undefined_2" width="42" height="1" border="0"></td>
    <td><img src="images/spacer.gif" alt="" name="undefined_2" width="14" height="1" border="0"></td>
    <td><img src="images/spacer.gif" alt="" name="undefined_2" width="58" height="1" border="0"></td>
    <td><img src="images/spacer.gif" alt="" name="undefined_2" width="13" height="1" border="0"></td>
    <td><img src="images/spacer.gif" alt="" name="undefined_2" width="52" height="1" border="0"></td>
    <td><img src="images/spacer.gif" alt="" name="undefined_2" width="13" height="1" border="0"></td>
    <td><img src="images/spacer.gif" alt="" name="undefined_2" width="96" height="1" border="0"></td>
    <td><img src="images/spacer.gif" alt="" name="undefined_2" width="11" height="1" border="0"></td>
    <td><img src="images/spacer.gif" alt="" name="undefined_2" width="50" height="1" border="0"></td>
    <td><img src="images/spacer.gif" alt="" name="undefined_2" width="13" height="1" border="0"></td>
    <td><img src="images/spacer.gif" alt="" name="undefined_2" width="51" height="1" border="0"></td>
    <td><img src="images/spacer.gif" alt="" name="undefined_2" width="13" height="1" border="0"></td>
    <td><img src="images/spacer.gif" alt="" name="undefined_2" width="42" height="1" border="0"></td>
    <td><img src="images/spacer.gif" alt="" name="undefined_2" width="26" height="1" border="0"></td>
    <td><img src="images/spacer.gif" alt="" name="undefined_2" width="1" height="1" border="0"></td>
  </tr>
  <tr>
    <td colspan="15"><img name="menu_r1_c1" src="images/menu_r1_c1.jpg" width="517" height="13" border="0" alt=""></td>
    <td><img src="images/spacer.gif" alt="" name="undefined_2" width="1" height="13" border="0"></td>
  </tr>
  <tr>
    <td rowspan="3"><img name="menu_r2_c1" src="images/menu_r2_c1.jpg" width="23" height="28" border="0" alt=""></td>
    <td><a href="#" onMouseOut="MM_swapImgRestore();MM_startTimeout()" onMouseOver="MM_showMenu(window.mm_menu_1130101356 _0,0,25,null,'menu_r2_c2');MM_swapImage('menu_r2_c 2','','images/menu_r2_c2_f2.jpg',1);"><img name="menu_r2_c2" src="images/menu_r2_c2.jpg" width="42" height="14" border="0" alt=""></a></td>
    <td rowspan="3"><img name="menu_r2_c3" src="images/menu_r2_c3.jpg" width="14" height="28" border="0" alt=""></td>
    <td rowspan="2"><a href="#" onMouseOut="MM_swapImgRestore();MM_startTimeout()" onMouseOver="MM_showMenu(window.mm_menu_1130101444 _1,0,25,null,'menu_r2_c4');MM_swapImage('menu_r2_c 4','','images/menu_r2_c4_f2.jpg',1);"><img name="menu_r2_c4" src="images/menu_r2_c4.jpg" width="58" height="15" border="0" alt=""></a></td>
    <td rowspan="3"><img name="menu_r2_c5" src="images/menu_r2_c5.jpg" width="13" height="28" border="0" alt=""></td>
    <td><a href="#" onMouseOut="MM_swapImgRestore();MM_startTimeout()" onMouseOver="MM_showMenu(window.mm_menu_1130101513 _2,0,25,null,'menu_r2_c6');MM_swapImage('menu_r2_c 6','','images/menu_r2_c6_f2.jpg',1);"><img name="menu_r2_c6" src="images/menu_r2_c6.jpg" width="52" height="14" border="0" alt=""></a></td>
    <td rowspan="3"><img name="menu_r2_c7" src="images/menu_r2_c7.jpg" width="13" height="28" border="0" alt=""></td>
    <td><a href="#" onMouseOut="MM_swapImgRestore();MM_startTimeout()" onMouseOver="MM_showMenu(window.mm_menu_1130102006 _3,0,25,null,'menu_r2_c8');MM_swapImage('menu_r2_c 8','','images/menu_r2_c8_f2.jpg',1);"><img name="menu_r2_c8" src="images/menu_r2_c8.jpg" width="96" height="14" border="0" alt=""></a></td>
    <td rowspan="3"><img name="menu_r2_c9" src="images/menu_r2_c9.jpg" width="11" height="28" border="0" alt=""></td>
    <td><a href="#" onMouseOut="MM_swapImgRestore();MM_startTimeout()" onMouseOver="MM_showMenu(window.mm_menu_1130102159 _4,0,25,null,'menu_r2_c10');MM_swapImage('menu_r2_ c10','','images/menu_r2_c10_f2.jpg',1);"><img name="menu_r2_c10" src="images/menu_r2_c10.jpg" width="50" height="14" border="0" alt=""></a></td>
    <td rowspan="3"><img name="menu_r2_c11" src="images/menu_r2_c11.jpg" width="13" height="28" border="0" alt=""></td>
    <td rowspan="2"><a href="#" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('menu_r2_c12','','images/menu_r2_c12_f2.jpg',1);"><img name="menu_r2_c12" src="images/menu_r2_c12.jpg" width="51" height="15" border="0" alt=""></a></td>
    <td rowspan="3"><img name="menu_r2_c13" src="images/menu_r2_c13.jpg" width="13" height="28" border="0" alt=""></td>
    <td><a href="http://localhost/home.html" target="_self" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('menu_r2_c14','','images/menu_r2_c14_f2.jpg',1);"><img name="menu_r2_c14" src="images/menu_r2_c14.jpg" width="42" height="14" border="0" alt=""></a></td>
    <td rowspan="3"><img name="menu_r2_c15" src="images/menu_r2_c15.jpg" width="26" height="28" border="0" alt=""></td>
    <td><img src="images/spacer.gif" alt="" name="undefined_2" width="1" height="14" border="0"></td>
  </tr>
  <tr>
    <td rowspan="2"><img name="menu_r3_c2" src="images/menu_r3_c2.jpg" width="42" height="14" border="0" alt=""></td>
    <td rowspan="2"><img name="menu_r3_c6" src="images/menu_r3_c6.jpg" width="52" height="14" border="0" alt=""></td>
    <td rowspan="2"><img name="menu_r3_c8" src="images/menu_r3_c8.jpg" width="96" height="14" border="0" alt=""></td>
    <td rowspan="2"><img name="menu_r3_c10" src="images/menu_r3_c10.jpg" width="50" height="14" border="0" alt=""></td>
    <td rowspan="2"><img name="menu_r3_c14" src="images/menu_r3_c14.jpg" width="42" height="14" border="0" alt=""></td>
    <td><img src="images/spacer.gif" alt="" name="undefined_2" width="1" height="1" border="0"></td>
  </tr>
  <tr>
    <td><img name="menu_r4_c4" src="images/menu_r4_c4.jpg" width="58" height="13" border="0" alt=""></td>
    <td><img name="menu_r4_c12" src="images/menu_r4_c12.jpg" width="51" height="13" border="0" alt=""></td>
    <td><img src="images/spacer.gif" alt="" name="undefined_2" width="1" height="13" border="0"></td>
  </tr>
</table>
<p><script language="JavaScript1.2">mmLoadMenus();</script></p>
<p> .................................................. ..............................<span class="style2"><span class="style3">MODIFY FIXED ASSET</span>.</span>............................................. ..........................</p>
<form name="form1" method="post" action="modify_asset.asp">
  <p><span class="style4">Search</span>
    <input name="txtsearchasset" type="text" id="txtsearchasset">
    <input type="submit" name="Submit" value="Search">
</p>
  <table width="763" border="0" cellspacing="2" cellpadding="2">
    <tr>
      <td width="129"><span class="style1">Asset No</span>: </td>
      <td width="244"><input type="text" name="txtassetnumber" value="<%=Server.HTMLEncode(RS.Fields("asset_numbe r").Value)%>" ></td>
      <td width="109" class="style1">Location:</td>
      <td width="224"><select name="txtlocation" value="<%=Server.HTMLEncode(RS.Fields("location_na me").Value)%>" >
          <option>Administration (ADM)</option>
          <option>Banking Hall (BH)</option>
          <option>Data Center (DC)</option>
          <option>Networking (NWK)</option>
          <option>Retail/Commercial Banking (RCB)</option>
          <option>Domestic Operations (DOPS)</option>
          <option>Treasury (TRY)</option>
          <option>E-Business (EB)</option>
          <option>Strategy (STR)</option>
          <option>Corporate Banking (CB)</option>
          <option>Corporate Services ( CS)</option>
          <option>Executive Lunge (EL)</option>
          <option>Internal Control (IC)</option>
          <option>Financial Control (FC)</option>
      </select></td>
    </tr>
    <tr>
      <td><span class="style1">Description:</span></td>
      <td><input type="text" textarea name="txtdescription" value="<%=Server.HTMLEncode(RS.Fields("asset_descr iption").Value)%>" />
      <td class="style1">Branch:</td>
      <td><select name="txtbranch"value="<%=Server.HTMLEncode(RS.Fie lds("branch_name").Value)%>" >
          <option>Head Office (001)</option>
          <option>Kumasi (002)</option>
      </select></td>
    </tr>
    <tr>
      <td class="style1">Type:</td>
      <td><select name="txttype" value="<%=Server.HTMLEncode(RS.Fields("type_name") .Value)%>" >
          <option>Building (BUD)</option>
          <option>Computer (COM)</option>
          <option>Equipment (EQP)</option>
          <option>Furniture &amp; Fittings (FF)</option>
          <option>Motor Vehicle (MV)</option>
          <option>Plant &amp; Machinery (PLM)</option>
          <option>None</option>
      </select></td>
      <td class="style1">Category:</td>
      <td><select name="txtcategory" value="<%=Server.HTMLEncode(RS.Fields("asset_categ ory").Value)%>" >
          <option>Short Term (ST)</option>
          <option>Long Term (LT)</option>
          <option>None</option>
      </select></td>
    </tr>
    <tr>
      <td class="style1">Cost Center: </td>
      <td><select name="txtcostcenter" value="<%=Server.HTMLEncode(RS.Fields("cost_bearer ").Value)%>" >
          <option>Administration (ADM)</option>
          <option>Marketing (MKT)</option>
          <option selected>Operations (OPS)</option>
          <option>Internal Control (IC)</option>
          <option>Financial Control (FC)</option>
          <option>Treasury (TRY)</option>
          <option>Human Resource Mgt. (HR)</option>
          <option>Technology Services (IT)</option>
      </select></td>
      <td class="style1">Serial No: </td>
      <td><input type="text" name="txtserial" value="<%=Server.HTMLEncode(RS.Fields("asset_seria l").Value)%>"></td>
    </tr>
    <tr>
      <td class="style1">Model:</td>
      <td><input type="text" name="txtmodel" value="<%=Server.HTMLEncode(RS.Fields("asset_model ").Value)%>" ></td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
  </table>
  <p>&nbsp;</p>
  <table width="394" border="1" align="left" cellpadding="2" cellspacing="2">
    <tr>
      <td width="130">Purchase Date: </td>
      <td width="222"><input name="txtpurchasedate" type="text" id="txtpurchasedate" value="<%=Server.HTMLEncode(RS.Fields("asset_purch ase_date").Value)%>"></td>
    </tr>
    <tr>
      <td>Quantity:</td>
      <td><input name="txtquantity" type="text" id="txtquantity" value="<%=Server.HTMLEncode(RS.Fields("quantity"). Value)%>"></td>
    </tr>
    <tr>
      <td>Purchase Price: &cent;</td>
      <td><input name="txtpurchaseprice" type="text" id="txtpurchaseprice" value="<%=Server.HTMLEncode(RS.Fields("purchase_pr ice").Value)%>"></td>
    </tr>
  </table>
  <table width="369" border="1" align="left" cellpadding="2" cellspacing="2">
    <tr>
      <td width="126">Tax Value: &cent;</td>
      <td width="178"><input name="txttaxvalue" type="text" id="txttaxvalue" value="<%=Server.HTMLEncode(RS.Fields("asset_tax_v alue").Value)%>"></td>
    </tr>
    <tr>
      <td>Insured Value: &cent;</td>
      <td><input name="txtinsuredvalue" type="text" id="txtinsuredvalue" value="<%=Server.HTMLEncode(RS.Fields("asset_insur ed_value").Value)%>"></td>
    </tr>
    <tr>
      <td>Scrap Value: &cent;</td>
      <td><input name="txtscrapvalue" type="text" id="txtscrapvalue" value="<%=Server.HTMLEncode(RS.Fields("asset_scrap _value").Value)%>"></td>
    </tr>
  </table>

  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <p>&nbsp; </p>
  <p>&nbsp;</p>
  <p>
    <input type="submit" name="Submit" value="Update">
    <input name="Next" type="submit" id="" value="Next">
</p>
</form>
<p>&nbsp;</p>
<p>&nbsp;</p>
</body>
</html>
 
Old December 8th, 2004, 07:09 AM
Friend of Wrox
  
Join Date: Jul 2003
Posts: 683
Thanks: 0
Thanked 1 Time in 1 Post
Default
Hi Don,

The easiest way to set up the paging action you want would be to create an offset variable in your page, maintain it in a hidden field in your form and as you are using MySQL, use it with the LIMIT clause in your query.

At the top of your page:
Code:
Dim gOffset: gOffset = Trim(Request.Form("Offset"))
If Not IsNumeric(gOffset) Or gOffset = "" Then
    gOffset = 0
    If Request.Form("Next") = "Next" Then
        gOffset = gOffset + 1
    End If
End If
Your query (sets offset and limits to one record)
Code:
"SELECT * FROM asset , branch, location, type, cost LIMIT " & gOffset & ", 1;"
hidden field in your form
Code:
<input type="hidden" name="Offset" value="<%=gOffset%>" />
HTH,

Chris





Similar Threads
Thread Thread Starter Forum Replies Last Post
insertion of records in database MunishBhatia SQL Server 2005 1 December 12th, 2006 09:25 PM
arranging records from database moushumi Classic ASP Databases 2 June 5th, 2004 12:56 AM
arranging records from database moushumi Classic ASP Basics 3 March 15th, 2004 12:15 AM
random records from database HammR PHP Databases 1 December 11th, 2003 02:03 PM
Navigating Records in Subforms Thomas Access VBA 0 June 17th, 2003 10:38 AM




Contact Us - Wrox - Privacy Statement - Top

Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright (c) 2020 John Wiley & Sons, Inc.