How to update records using ASP and ADO

Updating Records to a Database using ADO(ActiveX Data Objects)

All ASP Code is in RED
'This page doesn't use a session variable so for performance reasons I set the two directives.
'By Setting the EnableSessionState you save the asp.dll from making a call to the MTS to check
'for Session variables used by this page
<%@ Language = "VBScript" @ ENABLESESSIONSTATE=False %>
<%
'Declare all local variables
dim conn
dim rs
dim strsql
dim strconn
'Set local variable to the connection string and open the connection
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("adoandsqladd.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
'Set local recordset variable equal to rs
set rs = server.createobject("adodb.recordset")

'Sets the sql query that determine what records get brought back to the asp page.
'This could easily be change to a very specific set of fields or instead of using a ORDER BY statement
'Using a WHERE statement to determine what records get selected IE(WHERE tblUPDATEADO.id=1)

strsql = "SELECT * FROM tblUpdateADO ORDER BY id"
rs.open strsql, conn
%>
<html>
<head>
<title>signon</title>
</head>
<body>
<h3 align="center">Update w/ADO example</h3>
<td width="10%"><form method="post" name="form1" action="updateado2.asp">
<table>
<%
'Writes out the records, again this could just writing out one record just take away the DO While LOOP

x = 1
rs.movefirst
Do While NOT rs.EOF
%>
<tr><td><strong>First Name</strong></td><td>
<input type="text" size="10" name="FirstName<%= x %>" value="<% = rs("FirstName")%>"></td>
<td><strong>Last Name</strong></td><td>
<input type="text" size="10" name="LastName<%= x %>" value="<% = rs("LastName")%>"></td>
</tr>
<%
x = x + 1
'Don't forget to move the recordset to the next record or your going to have an infinate loop
'Trust me this statement I always forget!
rs.movenext
Loop
%>
<td><input type="Submit" value="Submit Update Example" name"b1"> </font>
</form>
</td></tr>
</table>
</center></div>
</body></html>

Page 2 the page actually re-submits the information back to the database Here is the code that is used to update the information on the demo.

'This page doesn't use a session variable so for performance reasons I set the two directives.
'By Setting the EnableSessionState you save the asp.dll from making a call to the MTS to check
'for Session variables used by this page
<%@ Language = "VBScript" @ ENABLESESSIONSTATE=False %>
<%

'Declare all local variables
dim conn
dim rs
dim strID

'Set local variable to the connection string and open the connection
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("adoandsqladd.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
'Set record set object and opens the table that will update the records
set rs = server.createobject("adodb.recordset")
rs.open "tblUpdateADO", conn, 2, 2
rs.movefirst
for x = 1 to 5
rs("FirstName") = request("FirstName" & x)
rs("LastName") = request("LastName" & x)
rs.update
rs.movenext
Next
rs.movefirst
%>
<html>
<head>
<title>Results of the Update ADO Demo</title>
</head><body>

<table BORDER="0">
<% x = 1
rs.movefirst
Do While NOT Rs.EOF
%>
<tr><td><strong>First Name</strong></td><td><% = rs("FirstName")%></td><td>
<strong>Last Name</strong></td><td><% = rs("LastName")%></td></tr>
<%
x = x + 1
rs.movenext
Loop
%>
</table>

<p><a href="updateado.asp">Click here to go back to the start page</a></p>
</body>
</html>
<%
set rs= nothing
set conn = nothing
%>

Good Luck!!

DISCLAIMER: The content provided in this article is not warranted or guaranteed by Developer Shed, Inc. The content provided is intended for entertainment and/or educational purposes in order to introduce to the reader key ideas, concepts, and/or product reviews. As such it is incumbent upon the reader to employ real-world tactics for security and implementation of best practices. We are not liable for any negative consequences that may result from implementing any information covered in our articles or tutorials. If this is a hardware review, it is not recommended to open and/or modify your hardware.

More Database Code Articles
More By aspfree

developerWorks - FREE Tools!

Be the first to hear about i5/OS V6R1!

Hold your calendar on January 30, 2008 for this free webcast on the new i5/OS. Rational's Enterprise Modernization products will be discussed at this webcast as they help to drive the application development environment for this new System i OS. <br />And learn how i5/OS will take you to the next step of efficient, resilient business processing. You will hear about the new i5/OS capabilities as it will be the most significant i5/OS release in years. If you cannot join the webcast on 1/30/08 you can still use this link to listen to the replay.<br />
FREE! Go There Now!

IBM – Taking Web 2.0 to Work

You'll get answers to many questions and more from David Barnes, Lead Evangelist for IBM Emerging Internet Technologies. David will discuss aspects of Web 2.0 that bring value to corporations, academia, and government. He'll also discuss IBM's vision around Web 2.0, including the importance of remixability and consumability. The discussion will culminate with examples of various IBM Software Group solutions you can use to get ahead of the Web 2.0 adoption curve.
FREE! Go There Now!

NEW! Best Practices: The Integrated Project and Portfolio Management Platform.

Hear how IBM Rational Project and Portfolio Management integrated solutions help teams put the right tools and processes in place to maximize the effectiveness and efficiency of project teams and ensure that the business vision is being executed correctly. Learn how to automate and integrate requirements prioritization, top-down project planning, communications and controls, and methodology deployment to keep your scope, costs, and schedules under control. Tackle with an end-to-end approach the management of scope and scope changes, usage of methodology to control and empower project teams, and optimization of resources to align activity costs with the overall project plan.
FREE! Go There Now!

NEW! Did you say mainframe? e-kit

Learn how you can extend modern application lifecycle management to IBM System z through the IBM Rational Software Delivery Platform (SDP). The Did you say mainframe? e-kit includes podcasts, webcasts, tutorials, white and red papers, demos, and articles designed to help ease the challenges of modernizing your enterprise. This complimentary kit for mainframe developers is a practical, how-to guide for making the most of an existing development environment, including the skills and infrastructure already in place at an established enterprise.
FREE! Go There Now!

NEW! Hello World: WebSphere Service Registry and Repository

Manage, govern, and share services across your organization by using WebSphere Service Registry and Repository. Follow the hands-on exercises to learn how to navigate the Web interface to publish, find, reuse, and update services.
FREE! Go There Now!

NEW! Rational 'Talks to You' Teleconference Series

This Fall, IBM Rational talks to you directly through a special teleconference series giving you access to the best minds in IBM Rational - product experts and market thought leaders who will answer your questions during these pre-scheduled telephone conference calls. Register today!
FREE! Go There Now!

NEW! Trial download: IBM Rational Performance Tester V7.0.1

Get a free trial download of the latest version of IBM Rational Performance Tester V7.0.1, a load and performance testing solution for teams concerned about the scalability of their Web-based applications. Combining multiple ease-of-use features with granular detail, Rational Performance Tester simplifies the test-creation, load-generation and data-collection processes that help teams ensure the ability of their applications to accommodate required user loads.
FREE! Go There Now!

NEW! Webcast: Striking the right balance between manual and automated testing

Join this webcast to learn how IBM Rational's Functional Testing solution enables you to implement automation your way, at your pace, with your existing staff. In this webcast, you’ll learn how you can eliminate redundancy of manual test scripts, reduce errors, and increase test coverage through test automation. After this presentation you will understand how IBM Rational Functional Testing solution can streamline your manual testing and make test automation easily attainable.
FREE! Go There Now!

NEW! Webcast: What is new in Viper 2 for developers?

Viper 2 brings a great value to developer communities including SQL, XML, PHP, Ruby, .NET and Java. You probably already know that DB2 Express-C is free for developers to develop, deploy and distribute. Viper 2 provides a variety of means that help move your application from the development stage to deployment more rapidly. This webcast shows how to best utilize the latest tools available for developing DB2 applications.
FREE! Go There Now!

NEW! Whitepaper: Achieving consistency between business process models and operational guides

Explore how Rational and WebSphere software enable enterprise documentation in SOA environments. Specifically, a new integration between IBM WebSphere® Business Modeler and IBM Rational® Method Composer software can help technical writers more easily keep enterprise operations manuals in sync with changes that are made to business processes, resulting in more accurate and timely documentation that benefits the entire enterprise.
FREE! Go There Now!

All FREE IBM® developerWorks Tools!