|
Database Full Cycle #3 --
Display Table, Edit Record, Update Record
Here is the script that updates one record after the submit
button is pushed on the previous script.
filename=/learn/test/authoreditrespond.asp
<HTML><HEAD>
<TITLE>authoreditrespond.asp</TITLE>
<body bgcolor="#FFFFFF"></HEAD>
<%
on error resume next
form_name=request.form("name")
form_year=request.form("year")
form_ID=request.form("ID")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.open "DSN=Student;uid=student;pwd=magic"
' change apostrophe to double apostrophe
form_name=Replace(form_name, "'", "''")
IF instr(lcase(form_name),"<img")>0 THEN
form_name=""
END IF
SQLstmt = "UPDATE authors SET "
SQLStmt = SQLstmt & "Author='" & form_name & "',"
SQLstmt = SQLstmt & "year_born=" & form_year
SQLStmt = SQLStmt & " WHERE AU_ID=" & form_id
Set RS = Conn.Execute(SQLStmt)
If err.number>0 then
response.write "VBScript Errors Occured:" & "<P>"
response.write "Error Number=" & err.number & "<P>"
response.write "Error Descr.=" & err.description & "<P>"
response.write "Help Context=" & err.helpcontext & "<P>"
response.write "Help Path=" & err.helppath & "<P>"
response.write "Native Error=" & err.nativeerror & "<P>"
response.write "Source=" & err.source & "<P>"
response.write "SQLState=" & err.sqlstate & "<P>"
end if
IF conn.errors.count> 0 then
response.write "Database Errors Occured" & "<P>"
response.write SQLstmt & "<P>"
for counter= 0 to conn.errors.count
response.write "Error #" & conn.errors(counter).number & "<P>"
response.write "Error desc. -> " & conn.errors(counter).description & "<P>"
next
else
response.write "<B>Everything Went Fine. Record is updated now!</b>"
response.write "<br>" & SQLstmt
end if
rs.close
set rs=nothing
Conn.Close
set conn=nothing
%>
</BODY>
</HTML>
|