Update Record in Single Table in Access:

Code:

update.asp

<%Option Explicit%>

<% 
dim conn, rs, strsql, strconn
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("DATABASE NAME.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
set rs = server.createobject("adodb.recordset")
strsql = "select * from TABLE NAME where"

If Request.Querystring("ID") <> "" Then
strsql = strsql & " ID = " 		&_ 
Request.Querystring("ID")
End If

rs.open strsql, conn
%>

</head>
<body>

<%if request.querystring ("Updated") = "True" then%>
<font color=#ff0000><b class=font>The record has been updated.</b></font>
<%end if%>

<% 
rs.movefirst
Do While NOT rs.EOF 
%>

<table>

<tr>
<td valign=middle class=font><b>Title: </b></td>
<td><input type="text" size="30" name="Title" value="<%=rs("Title")%>"></td>
</tr>

<tr>
<td valign=middle class=font><b>Division: </b></td>
<td><input type="text" size="30" name="Division" value="<%=rs("Division")%>"></td>
</tr>

<tr>
<td valign=middle class=font><b>Phone: </b></td>
<td><input type="text" size="30" name="Phone" value="<%=rs("Phone")%>"></td>
</tr>

</table>

</form>

<% 
rs.movenext
Loop 
%>

</body>
</html>

process.asp