<% ' Property of and written by Adam Ford --> dim CIID CIID = request.querystring("ciid") ' Make sure a number was passed correctly if isNumeric(CIID) then CIID = clng(CIID) else CIID = 0 end if ' Create the SQL statement strSQL = "UPDATE Cities SET name='" & request.form("name") & "' WHERE CIID=" & CIID & ";" ' Open a recordset objDBConn.execute strSQL on error resume next if err.number <> 0 then dim strPage strPage = "act_updatecity.asp" %> <% else strphone = empty HID = empty %> <% response.redirect ("dsp_main.asp") end if %>