ADODB error from JS

A

Adrian

Hi,
I have an ASP page on an intranet IIS server that posts data via a
System DSN to an Access DB, normally it works fine however sometimes it
returns 0 for success but no data is added to the DB!?

Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DSN=testmain"
sql="Insert Into testtable (Survey_1,Survey_2)
VALUES ("
sql=sql & "'" & Request.Form("Survey_1") & "',"
sql=sql & "'" & Request.Form("Survey_2") & "')"
on error resume next
conn.Execute sql,recaffected
if err<>0 then
Response.Write(" Survey NOT Added! ")
else
Response.Write("<h3>" & recaffected & " Survey Added </h3>")
end if
conn.close
Set conn = Nothing
%>


The above is cut down version as there are a lot of fields!

Anyone know why it would return 0 sometimes but not add the data?

thanks

Adrian
 
L

Laurent Bugnion, GalaSoft

Hi,
Hi,
I have an ASP page on an intranet IIS server that posts data via a
System DSN to an Access DB, normally it works fine however sometimes it
returns 0 for success but no data is added to the DB!?

Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DSN=testmain"
sql="Insert Into testtable (Survey_1,Survey_2)
VALUES ("
sql=sql & "'" & Request.Form("Survey_1") & "',"
sql=sql & "'" & Request.Form("Survey_2") & "')"
on error resume next
conn.Execute sql,recaffected
if err<>0 then
Response.Write(" Survey NOT Added! ")
else
Response.Write("<h3>" & recaffected & " Survey Added </h3>")
end if
conn.close
Set conn = Nothing
%>


The above is cut down version as there are a lot of fields!

Anyone know why it would return 0 sometimes but not add the data?

thanks

Adrian

You're very much off-topic here. Your code is VBScript on ASP. Ask a VB
newsgroup, or an ASP newsgroup, or both.

Laurent
 
K

kaeli

Hi,
I have an ASP page on an intranet IIS server that posts data via a
System DSN to an Access DB, normally it works fine however sometimes it
returns 0 for success but no data is added to the DB!?

Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DSN=testmain"
sql="Insert Into testtable (Survey_1,Survey_2)
VALUES ("
sql=sql & "'" & Request.Form("Survey_1") & "',"
sql=sql & "'" & Request.Form("Survey_2") & "')"

You aren't testing to be sure the values are there.
Blanks count as values. And if it isn't filled in at all, it gets the
empty string. Are you sure it isn't inserting blanks/null?

Dim s1
s1 = Request.Form("Survey_1")
s1 = s1.Trim()
If s1.Len < 1 Then
Error
End If

--
-------------------------------------------------
~kaeli~
Black holes were created when God divided by 0.
Not one shred of evidence supports the notion
that life is serious.
http://www.ipwebdesign.net/wildAtHeart
http://www.ipwebdesign.net/kaelisSpace
-------------------------------------------------
 
A

Adrian

Hi Kaeli
Thanks for your reply, good point, but alas not the case as no record is
added not even a blank one! in fact some of the fields are Drop downs so I
would and do get records with just the defaults. but the problem I have it
comes back 0 so no error is generated and the user thinks they have
completed the form OK!!!

thanks

Adrian
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Members online

No members online now.

Forum statistics

Threads
473,744
Messages
2,569,484
Members
44,903
Latest member
orderPeak8CBDGummies

Latest Threads

Top