<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.ConnectionString = "Data Source=" & Server.MapPath ("datab/db1.mdb")
Conn.Open

Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "SELECT * FROM affil", Conn, 1,3

straffillink = request.form("affillink")
straffilimage = request.form("affilimage")

Rs.addnew
Rs("affillink") = straffillink
Rs("affilimage") = straffilimage
Rs.update

set Rs = nothing
set Conn = nothing
%>

I tried this, but it give an error, and says the database or object it read only, and points at 'Rs.addnew'.

how can i fix this?

well, at first sight, did you checked that the mdb file was not read-only for the server process ?

Or maybe the DB is locked. I don't know if access files implements locks though...

You'd be better off with an insert query.

http://www.w3schools.com/sql/sql_insert.asp

You don't need a recordset object to use it. Just create your SQL query and use Conn.Execute (SQL query).

Originally Posted by ADAM Web Design

You'd be better off with an insert query.

http://www.w3schools.com/sql/sql_insert.asp

You don't need a recordset object to use it. Just create your SQL query and use Conn.Execute (SQL query).

Sorry, im kinda new to this.

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.ConnectionString = "Data Source=" & Server.MapPath ("datab/db1.mdb")
Conn.Open

Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "SELECT * FROM affil", Conn, 1,3

straffillink = request.form("affillink")
straffilimage = request.form("affilimage")

INSERT INTO affil (link, image)
VALUES (straffillink, straffilimage)

set Rs = nothing
set Conn = nothing
%>

Now it tells me 'Expected end of statement' and points to 'affil' after INSERT INTO.

Skeddles,

There could be couple of issues

1. Like tripy said

2. Make sure the IUSR_Machiname user has proper rights (Computer Management) to work with the .mdb file. This is internet guest user which is used by the IIS server to execute CGI.

Originally Posted by Skeddles

Sorry, im kinda new to this.

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.ConnectionString = "Data Source=" & Server.MapPath ("datab/db1.mdb")
Conn.Open
 
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "SELECT * FROM affil", Conn, 1,3
 
straffillink = request.form("affillink")
straffilimage = request.form("affilimage")
 
INSERT INTO affil (link, image)
VALUES (straffillink, straffilimage)
 
set Rs = nothing
set Conn = nothing
%>

Now it tells me 'Expected end of statement' and points to 'affil' after INSERT INTO.

Skeddles,

Here is the fixed code.

<%
 
dim sql

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.ConnectionString = "Data Source=" & Server.MapPath ("datab/db1.mdb")
Conn.Open

Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "SELECT * FROM affil", Conn, 1,3

straffillink = request.form("affillink")
straffilimage = request.form("affilimage")

sql="INSERT INTO affil (link, image) VALUES ('" & straffillink & "','" & straffilimage & "')"
 
Conn.execute(sql)


set Rs = nothing
set Conn = nothing
%>

Originally Posted by sri_gan

Skeddles,

Here is the fixed code.

<%
 
dim sql

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.ConnectionString = "Data Source=" & Server.MapPath ("datab/db1.mdb")
Conn.Open

Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "SELECT * FROM affil", Conn, 1,3

straffillink = request.form("affillink")
straffilimage = request.form("affilimage")

sql="INSERT INTO affil (link, image) VALUES ('" & straffillink & "','" & straffilimage & "')"
 
Conn.execute(sql)


set Rs = nothing
set Conn = nothing
%>

Syntax error in INSERT INTO statement.
/addaffil.asp, line 18

Replace

Conn.execute(sql)

with

If Request.IP = Your_IP_Address Then Response.Write("<br />" + sql + "<br />")

 
<%
 
dim sql

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.ConnectionString = "Data Source=" & Server.MapPath ("datab/db1.mdb")
Conn.Open

Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "SELECT * FROM affil", Conn, 1,3

straffillink = request.form("affillink")
straffilimage = request.form("affilimage")

if straffillink <>"" and straffilimage <>"" then
sql="INSERT INTO affil (link, image) VALUES ('" & straffillink & "','" & straffilimage & "')"
 
response.write (sql)
'Conn.execute(sql)
else
 
response.write ("affillink and affilimage are empty")

end if


set Rs = nothing
set Conn = nothing
%>

Does either your link or your image have an apostrophe in it?

If so, you'll have to do something like:

sql="INSERT INTO affil (link, image) VALUES ('" & Replace (straffillink, "'", "''") & "','" & Replace (straffilimage, "'", "''") & "')"

Your query looks fine other than that.

Yeah like ADAM mentioned, single quote could be a reason.

The next code I provided will show the sql statement, play with it and let me know what do you get.

'c:\windows\system32\inetsrv\datab\db1.mdb' is not a valid path. Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides.

That means your database has to be in the c:\windows\system32\inetsrv\datab folder and be named db1.mdb . At least one of those two things isn't true.

Originally Posted by ADAM Web Design

That means your database has to be in the c:\windows\system32\inetsrv\datab folder and be named db1.mdb . At least one of those two things isn't true.

c:\windows\system32\inetsrv\datab\db1.mdb

well that doesnt really seem like a web adress. im not ure if thats the address of my server or not(i am using 1and1.com)

I really need to fix this though, i cant do much with my website untill its done.

It's not a web address, and it's not supposed to be. It's supposed to be the path to your database.

Try using Server.MapPath ("datab/db1.mdb") instead.

First,check your datebase's attribute.You database may be read - only.

If your database is not a read-only one,then you must close your database first! It is important!!!! If you open a database first in a way,and then you open it again,you will not be able to open it.So before you open it again,please close it at first.

finally got it

What was the answer, Skeddles? Just in case someone else has the same problem n all.