here is the code to the asp page that adds data to the access database!
Expand|Select|Wrap|Line Numbers
- <html>
- <body>
- <%
- Dim recordsaffected
- set conn=Server.CreateObject("ADODB.Connection")
- conn.Provider="Microsoft.Jet.OLEDB.4.0"
- conn.Open "C:\Inetpub\wwwroot\final\database.mdb"
- set recordsaffected=Server.CreateObject("ADODB.Recordset")
- location=Request.Form("location")
- module=Request.Form("module")
- submodule=Request.Form("submodule")
- problemday=Request.Form("problemday")
- problemmonth=Request.Form("problemmonth")
- problemyear=Request.Form("problemyear")
- name=Request.Form("name")
- problemdescription=Request.Form("problemdescription")
- on error resume next
- sql=" SELECT * FROM probdatabase"
- conn.Execute sql,recordsaffected
- recordsaffected.AddNew
- recordsaffected.fields("location")=location
- recordsaffected.fields("module")=module
- recordsaffected.fields("submodule")=submodule
- recordsaffected.fields("problemday")=problemday
- recordsaffected.fields("problemmonth")=problemmonth
- recordsaffected.fields("problemyear")=problemyear
- recordsaffected.fields("name")=name
- recordsaffected.fields("problemdescription")=problemdescription
- recordsaffected.update
- if err<>0 then
- Response.Write(Err.Description)
- else
- Response.Write("Record Added")
- end if
- conn.close
- recordsaffected.close
- Set recordsaffected = Nothing
- %>
- </body>
- </html>
Expand|Select|Wrap|Line Numbers
- 'recordsaffected.AddNew
- 'recordsaffected.fields("location")=location
- 'recordsaffected.fields("module")=module
- 'recordsaffected.fields("submodule")=submodule
- 'recordsaffected.fields("problemday")=problemday
- 'recordsaffected.fields("problemmonth")=problemmonth
- 'recordsaffected.fields("problemyear")=problemyear
- 'recordsaffected.fields("name")=name
- 'recordsaffected.fields("problemdescription")=problemdescription
- 'recordsaffected.update
PLZ HELP!!! gotta complete this task in 2 days...