# Update entry from database
**URL:** https://forum.kirupa.com/t/update-entry-from-database/192105
**Category:** programming
**Created:** [June 26, 2006, 4:55am UTC](https://forum.kirupa.com/t/update-entry-from-database/192105 "2006-06-26T04:55:46Z")
**Posts on this page:** 1
**Page:** 1
### Author:  [@SquishyB](https://forum.kirupa.com/u/SquishyB)
#### Post date: [June 26, 2006, 4:55am UTC](https://forum.kirupa.com/t/update-entry-from-database/192105/1 "2006-06-26T04:55:46Z")
Hi all,
I have a page, that displays all the records and then has a modify or delete button. When they click modify, this page comes up.
```auto
<%@ LANGUAGE="VBSCRIPT" %>
<%
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("form.mdb")
' Creating Recordset Object and opening the database
sql = "SELECT * FROM users"
sql = sql & " WHERE id=" & Request("id")
Set rsForm = Server.CreateObject("ADODB.Recordset")
rsForm.Open sql, data_source
If Request("action") = "Update" then
vPSQL = "Select * From users Where id = " & Request("id")
Set rsForm = Server.CreateObject("ADODB.Recordset")
rsForm.Open vPSQL, data_source
vSQL = "Update Event Details"
vSQL = vSQL & " Country = '" & FormatSingleQuotes(Request("country")) & "',"
vSQL = vSQL & " State = '" & FormatSingleQuotes(Request("state")) & "',"
vSQL = vSQL & " Details = '" & FormatSingleQuotes(Request("details")) & "',"
vSQL = vSQL & " Event Date = '" & FormatSingleQuotes(Request("eventdate")) & "',"
vSQL = vSQL & " Event Time = '" & FormatSingleQuotes(Request("eventtime")) & "',"
vSQL = vSQL & " Website = '" & FormatSingleQuotes(Request("website")) & "',"
vSQL = vSQL & " Name = '" & FormatSingleQuotes(Request("name")) & "',"
vSQL = vSQL & " Phone = '" & FormatSingleQuotes(Request("phone")) & "',"
vSQL = vSQL & " Email = '" & FormatSingleQuotes(Request("email")) & "'"
vSQL = vSQL & " Where ID = " & Request("id")
data_source.Execute(vSQL)
Response.Redirect "showall.asp"
End If
%>
Update Record
```
The page displays all the information correctly, but when i click submit, it comes up with
Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: ‘data\_source’
**/asp/update.asp, line 31**
Why is this…sorry if its a n00bie question, I only learnt ASP today:-/
Thanks!