Re: export data from asp to .mdb?

Tech-Archive recommends: Speed Up your PC by fixing your registry




Mr Pen wrote:
Hi

I am currently trying to get a simple data submission asp form to export
data to an access database, this is the code for the contact_insert page

<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta name="Company" content="Kalptaru Infotech Ltd. [www.a2zhelp.com]">
<title>This page was generated using ASP Helper [www.a2zhelp.com]</title>
<style>
<!--
td { font-family: Tahoma; font-size: 8pt; background-color:
#E6F2FF;
border-style: solid; border-width: 1 }
th { font-family: Tahoma; font-size: 8pt; font-weight: bold;
background-color:
#E6E6E6; border: 1px outset #FF9900; }
input { font-family: Tahoma; font-size: 8pt; border: 1px inset
#E6E6E6; }
table { }
-->
</style>
</head>
<body>
<table border="0" cellpadding="2" width="100%">
<tr>
<td colspan="3" width="100%">Adding data to the database</td>
</tr>
<tr>
<td width="10%"></td>
<td width="80%">
<%const DATABASE_NAME="bigbrother.mdb"
dim Con
set Con=server.createobject("ADODB.Connection")
Con.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&
server.mappath(DATABASE_NAME) & ";User Id=Admin;Password="
%>

<%'-------Getting Name
dim Name
Name=Request("Name")
Name=Replace(Name,"'","''")%>
<%if trim(Name)="" then
bHasError=true
sErrMessage=sErrMessage & "<LI> Name cannot be empty."
end if%>
<%'-------Getting Email
dim Email
Email=Request("Email")
Email=Replace(Email,"'","''")%>
<%if trim(Email)="" then
bHasError=true
sErrMessage=sErrMessage & "<LI> Email cannot be empty."
end if%>
<%'-------Getting Query
dim Query
Query=Request("Query")
Query=Replace(Query,"'","''")%>
<%if trim(Query)="" then
bHasError=true
sErrMessage=sErrMessage & "<LI> Query cannot be empty."
end if%>
<%if bHasError then%>
<table><tr><td colspan="2" align="center"
width=100%><%Response.Write("Sorry we cannot proceed because of the following
errors") %></td></tr>
<tr><td colspan=2 width=100%><%response.write
sErrMessage%></td></tr></table>
<%else%>
<%Dim sSQL
sSQL ="insert into [Contact]([Name],[Email],[Query]) values( " & "'" & Name
& "','"&Email&"','"&Query&"')"
con.Execute sSQL
%>
Congratulations!!! Database was successfully updated.
<%End if
%></td>
<td width="10%"></td>
</tr>
<tr>
<td colspan="3" width="100%" bgcolor="#FF9900">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td bgcolor="#E6E6E6">
<p align="center"><font face="Tahoma" size="1"
color="#0000FF"><br>
This
page was automatically generated using Kalptaru Infotech Ltd's ASP
Helper, <br>
the automatic ASP Code generation software.<br>
For more information on how to improve the efficiency and speed of
your ASP Programming and to know more about ASP Helper visit <a
href="http://www.a2zhelp.com";>www.a2zhelp.com</a>
or send an email to <a
href="mailto:asphelper@xxxxxxxxxxx";>asphelper@xxxxxxxxxxx<br>
</a>
</font></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>

and this is the error message i get:

Technical Information (for support personnel)

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable
query.
/contact_insert.asp, line 65


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)

Page:
POST 81 bytes to /contact_insert.asp

POST Data:
Name=paul&Email=pen@xxxxxxxxxxx&Query=how+much+is+that+record+in+the+window%3F...

Time:
07 March 2006, 15:11:00

any help would be gratefully appreciated

paul

Where to start....

The error message you are receiving is usually to do with permissions
on the database. The IUSR_machinename account needs read and write
permission on the directory holding the database file.

Second - you are using the obselete ODBC driver. You should be using
the native Jet OLEDB driver instead.

Third - you should be using parameter markers instead of dynamic sql
http://groups-beta.google.com/group/microsoft.public.inetserver.asp.db/msg/72e36562fee7804e

Or better still saved parameter queries:
http://groups.google.com/group/microsoft.public.inetserver.asp.db/msg/b3d322b882a604bd

(Those last two links courtesy of Bob Barrows.)

Fourth, your use of the variable Name could cause problems in certain
circumstances. It is a VBScript native keyword.

Frankly, if "ASPHelper" came up with this code, I'd ditch it and learn
ASP properly.

--
Mike Brind

.



Relevant Pages

  • Re: export data from asp to .mdb?
    ... I am currently trying to get a simple data submission asp form to export ... dim Name ... Database was successfully updated. ... Dim sMSG ...
    (microsoft.public.inetserver.asp.db)
  • RE: Questions about asp 3.0 and aspnets differences
    ... mostly regarding the use of forms and database use. ... I have some pages on asp 3.0 that are like this: ... Dim dbconn = New ... i have used the new controls that you just drag and drop ...
    (microsoft.public.dotnet.framework.aspnet)
  • Re: Problem: DLL VB6 / ASP / Database / Windows 2003
    ... Since the code run in ASP/IIS needs to access other resources (database here) in your second case, the user account configured in IIS for the ASP must have permission to access the said database. ... Dim rs As Recordset ...
    (microsoft.public.vb.general.discussion)
  • Re: Validate logins with ASP, MS Access and Cookies error
    ... If you plan to do much more ASP, I would advise looking for tutorials ... return another column from the database that stores the users 1st ... 'create connection and recordset objects ... Set cnStr = Server.CreateObject ...
    (microsoft.public.inetserver.asp.db)
  • Re: Validate logins with ASP, MS Access and Cookies error
    ... If you plan to do much more ASP, I would advise looking for tutorials ... return another column from the database that stores the users 1st name ... 'create connection and recordset objects ... Set cnStr = Server.CreateObject ...
    (microsoft.public.inetserver.asp.db)