Datacheck Solutions :: ASP

Tutorials
Back

Database - Update Record

This page demonstrates the capabilities to update an existing record in a database with a SQL statement.

It is called like this:
   filename=dbupdate.asp

<TITLE>dbupdate.asp</TITLE>
<body bgcolor="#FFFFFF">
<HTML>
<%
on error resume next
auname=request.querystring("name")
auyear=request.querystring("year")
auID=request.querystring("ID")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.open "DSN=Student;uid=student;pwd=magic"
SQLstmt = "UPDATE authors "
SQLStmt = SQLstmt & "SET Author='" & auname & "',"
SQLstmt = SQLstmt & "year_born=" & auyear 
SQLStmt = SQLStmt & " WHERE AU_ID=" & auid 
Set RS = Conn.Execute(SQLStmt)
If err.number>0 then
 response.write "VBScript Errors Occured:" & ""
 response.write "Error Number=" & err.number & ""
 response.write "Error Descr.=" & err.description & ""
 response.write "Help Context=" & err.helpcontext & "" 
 response.write "Help Path=" & err.helppath & ""
 response.write "Native Error=" & err.nativeerror & ""
 response.write "Source=" & err.source & ""
 response.write "SQLState=" & err.sqlstate & ""
else
 response.write "No problems occured!" & ""
end if
IF conn.errors.count> 0 then
 response.write "Database Errors Occured" & ""
for counter= 0 to conn.errors.count
 response.write "Error #" & conn.errors(counter).number & ""
 response.write "Error desc. -> " & conn.errors(counter).description & ""
next
else
 response.write SQLstmt
 response.write "Everything Went Fine. Author is updated now!" & ""
end if
set rstemp=nothing
Conn.Close
set conntemp=nothing
%>
</BODY>
</HTML>

To double check it is in the database try:
   filename=db1parm.asp

Now try:
   filename=dbupdate.asp

to change the "NewPerson" Birthday to 1964 again and
   filename=dbupdate.asp

The script is:
   filename=dbupdate.asp