Forum Error - NO REASON! Help!!!! 1

Ladyborg · Mar 5, 2003

I'm using DUForum Pro on a web site. One forum is working fine with the same exact code as you see below, only the connection string changed as it is a different database. I get an error on line 56 which is the last line of code below [cmdPost.Execute()] - the error I get is at the end of this posting.



<% If Request.Form("SUBMIT&quot

= "POST" then 'submit = post ----> codes for posting a new message %>
<%

if(Request.Form("FOR_ID&quot

<> "&quot

then cmdPost__for_id = Request.Form("FOR_ID&quot

if(Request.Form("MSG_INFORMED&quot

<> "&quot

then cmdPost__msg_informed = Request.Form("MSG_INFORMED&quot

if(Request.Cookies("CookieUser&quot

<> "&quot

then cmdPost__msg_author = Request.Cookies("CookieUser&quot

if(Request.Form("MSG_SUBJECT&quot

<> "&quot

then cmdPost__msg_subject = Request.Form("MSG_SUBJECT&quot

if(Request.Form("MSG_BODY&quot

<> "&quot

then cmdPost__msg_body = Request.Form("MSG_BODY&quot

%>
<%
Dim rsMailed__MMColParam
rsMailed__MMColParam = "True"
if (Request("MM_EmptyValue&quot

<> "&quot

then rsMailed__MMColParam = Request("MM_EmptyValue&quot

%>
<%
set rsMailed = Server.CreateObject("ADODB.Recordset&quot

rsMailed.ActiveConnection = MM_cnpublic_STRING
rsMailed.Source = "SELECT U_EMAIL, U_FIRST FROM USERS, PROFILES WHERE U_NAME = U_ID AND U_MAILED = " + Replace(rsMailed__MMColParam, "'", "''&quot

+ ""
rsMailed.CursorType = 0
rsMailed.CursorLocation = 2
rsMailed.LockType = 3
rsMailed.Open()
rsMailed_numRows = 0
%>
<%
Do While NOT rsMailed.EOF
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail&quot

objCDO.From = Request.Form("FOR_NAME&quot

& "Forum@" & myDomain
objCDO.To = rsMailed.Fields.Item("U_EMAIL&quot

.Value
objCDO.Subject = "New message posted"
objCDO.Body = "Hello " & rsMailed.Fields.Item("U_FIRST&quot

.Value & "! A new message has been posted in the " & Request.Form("FOR_NAME&quot

& " forum. Please click below to go read it: " & vbnewline & myURL & "/forums/messages.asp?r=forums&t=" & Request.Form("FOR_NAME&quot

& "&i=" & Request.Form("FOR_ID&quot

objCDO.Send()
Set objCDO = Nothing
rsMailed.MoveNext
loop
%>
<%
rsMailed.Close()
%>
<% 'codes to insert a new topic into MESSAGES table
set cmdPost = Server.CreateObject("ADODB.Command&quot

cmdPost.ActiveConnection = MM_cnpublic_STRING
cmdPost.CommandText = "INSERT INTO MESSAGES (" + Replace(cmdPost__for_id, "'", "''&quot

+ ", " + Replace(cmdPost__msg_informed, "'", "''&quot

+ ", " + Replace(cmdPost__msg_author, "'", "''&quot

+ ", " + Replace(cmdPost__msg_subject, "'", "''&quot

+ ", " + Replace(cmdPost__msg_body, "'", "''&quot

+ &quot

VALUES (" + Replace(cmdPost__for_id, "'", "''&quot

+ ", " + Replace(cmdPost__msg_informed, "'", "''&quot

+ ", '" + Replace(cmdPost__msg_author, "'", "''&quot

+ "', '" + Replace(cmdPost__msg_subject, "'", "''&quot

+ "', '" + Replace(cmdPost__msg_body, "'", "''&quot

+ "') "
cmdPost.CommandType = 1
cmdPost.CommandTimeout = 0
cmdPost.Prepared = true
cmdPost.Execute()
%>

ERROR:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

CAN ANYONE SHED LIGHT ON THIS?!?!!!!!
I'VE RACKED MY BRAIN ON IT!%-) [gorgeous]

Ladyborg
"Many of life's failures are people who did not realize how close they were to success when they gave up." [Thomas A. Edison]

Ladyborg · Mar 5, 2003

P.S.: This happens when I try to add a message to the forum. The connection seems to be fine, I can see the forum when I log onto the default page, it's adding a message that's the problem. [gorgeous]

Ladyborg
"Many of life's failures are people who did not realize how close they were to success when they gave up." [Thomas A. Edison]

martiros · Mar 5, 2003

could be a missing or mis-typed field in DB.
try comparing both DBs

cmdPost__for_id - is it autonumber?
autonumbers should not be in the INSERT

Ladyborg · Mar 5, 2003

The fields are ok, no typos anywhere on code or db.

for_id is not an autonumber. [gorgeous]

Ladyborg
"Many of life's failures are people who did not realize how close they were to success when they gave up." [Thomas A. Edison]

martiros · Mar 5, 2003

if you connect to your first DB is everything working?

Ladyborg · Mar 5, 2003

ABSOLUTELY! That's what has me baffled. Not only that, but the 2nd one connects, that is, I can see the forum and any messages that I insert into the db manually. It's upon INSERTING into it via the forum that I get this nasty error.

Any ideas? Thanks for the help! [gorgeous]

Ladyborg
"Many of life's failures are people who did not realize how close they were to success when they gave up." [Thomas A. Edison]

martiros · Mar 5, 2003

confused,
so the 1st forum with 1st DB allows Inserts
and
2nd forum with 2nd DB or 1DB doesn't

???

Ladyborg · Mar 5, 2003

Forum1 has db1 allowing inserts
Forum2 has db2 NOT allowing inserts

Instead I get a syntax error on my insert into statement that's driving me up the wall!
[gorgeous]

Ladyborg
"Many of life's failures are people who did not realize how close they were to success when they gave up." [Thomas A. Edison]

martiros · Mar 5, 2003

if you connect Forum2 to db1 does it work?

Ladyborg · Mar 5, 2003

I haven't actually tried that BUT (to make things more infuriating) some of the test messages I was trying to post to forum2 ended up on forum1 instead!!!!! Totally different dsn's, so go figure! [gorgeous]

Ladyborg
"Many of life's failures are people who did not realize how close they were to success when they gave up." [Thomas A. Edison]

schase · Mar 8, 2003

One step at a time, isolate things, narrow it all down.
Expanding your search for an answer by including the first database table is only confusing the issue.

Debug, debug, debug. And before you go and do it and run it - keep reading.

Where you have this

cmdPost.Prepared = true
cmdPost.Execute()

Replace with this

cmdPost.Prepared = true
response.write cmdPost
'cmdPost.Execute()

this will NOT insert anything into the database, it is a troubleshooting step.

it WILL write to the screen exactly how it is trying to insert it into the database - and thereby giving you clues.
unless of course you have a response.redirect somewhere - if so you need to place a ' infront of that too to stop the browser from shooting forward thinking all is well in the world.

Chances are you are trying to insert a wrong character. a text item into a numeric only field for example.

So, take a look at what it displays on the browser when you run it. Paste it back here if you cannot decipher it. "Never underestimate the power of determination"

Stuart

Ladyborg · Mar 8, 2003

Done. Here's the error I received:
Response object error 'ASP 0185 : 8002000e'

Missing Default Property

/publicforum/forums/msgAdding.asp, line 0

A default property was not found for the object.

BTW, I REALLLLLLLY appreciate the help! You're an angel!
[gorgeous]

Ladyborg
"Many of life's failures are people who did not realize how close they were to success when they gave up." [Thomas A. Edison]

schase · Mar 8, 2003

ok, remove the ' infront of 'cmdPost.Execute()

I'm still thinking it is an incorrect character.

Do this, open the database, switch to design view
list the fields and note if it is text, memo, numeric, etc.
and down below you will see a few options to select, such as required field - allow zero length.

It will look like this

"Never underestimate the power of determination"

Stuart

Ladyborg · Mar 8, 2003

I removed the ' and get the same error:

Response object error 'ASP 0185 : 8002000e'

Missing Default Property

/publicforum/forums/msgAdding.asp, line 0

A default property was not found for the object.

Regarding the db properties in design view: The table being inserted to is called MESSAGES here are fields and properties:

Do you want all properties for all fields?

[gorgeous]

Ladyborg
"Many of life's failures are people who did not realize how close they were to success when they gave up." [Thomas A. Edison]

Ladyborg · Mar 8, 2003

Here's full listing of FOR_ID properties. I have gotten errors referring to an error with it, but there was no syntax error:

Is "default value" set to 0 correct? [gorgeous]

Ladyborg
"Many of life's failures are people who did not realize how close they were to success when they gave up." [Thomas A. Edison]

Ladyborg · Mar 9, 2003

I noticed the error was at "line 0", how can that be? [gorgeous]

Ladyborg
"Many of life's failures are people who did not realize how close they were to success when they gave up." [Thomas A. Edison]

schase · Mar 9, 2003

This whole code

<% 'codes to insert a new topic into MESSAGES table
set cmdPost = Server.CreateObject("ADODB.Command&quot

cmdPost.ActiveConnection = MM_cnpublic_STRING
cmdPost.CommandText = "INSERT INTO MESSAGES (" + Replace(cmdPost__for_id, "'", "''&quot

+ ", " + Replace(cmdPost__msg_informed, "'", "''&quot

+ ", " + Replace(cmdPost__msg_author, "'", "''&quot

+ ", " + Replace(cmdPost__msg_subject, "'", "''&quot

+ ", " + Replace(cmdPost__msg_body, "'", "''&quot

+ &quot

VALUES (" + Replace(cmdPost__for_id, "'", "''&quot

+ ", " + Replace(cmdPost__msg_informed, "'", "''&quot

+ ", '" + Replace(cmdPost__msg_author, "'", "''&quot

+ "', '" + Replace(cmdPost__msg_subject, "'", "''&quot

+ "', '" + Replace(cmdPost__msg_body, "'", "''&quot

+ "') "
cmdPost.CommandType = 1
cmdPost.CommandTimeout = 0
cmdPost.Prepared = true
cmdPost.Execute()
%>

replace with this

<% Dim rs
Set Conn = Server.CreateObject("ADODB.Connection&quot

conn.open MM_cnpublic_STRING

SQLstmt = "Insert into Messages(FOR_ID,MSG_DATED,MSG_AUTHOR,MSG_SUBJECT,MSG_BODY,MSG_INFORMED,MSG_TIME,MSG_EMAIL)"
SQLstmt = SQLstmt & "VALUES(" & cmdPost__for_id
SQLstmt = SQLstmt & ",'" & Replace(cmdPost__msg_author,"'","''&quot

& "'"
SQLstmt = SQLstmt & ",'" & Replace(cmdPost__msg_subject, "'", "''&quot

& "'"
SQLstmt = SQLstmt & ",'" & Replace(cmdPost__msg_body, "'", "''&quot

& "'"
SQLstmt = SQLstmt & ",'" & cmdPost__msg_informed & "'"
SQLstmt = SQLstmt & &quot

"
'response.Write SQLstmt
Set RS = Conn.Execute(SQLstmt)
End IF
set rs=nothing
Conn.Close
set conn=nothing
%>

"Never underestimate the power of determination"

Stuart

Ladyborg · Mar 9, 2003

Error:

Microsoft VBScript compilation error '800a0400'

Expected statement

/publicforum/forums/msgAdding.asp, line 79

End If 'submit = post ----> codes for posting a new message
^

Line 79 reads:
<% End If 'submit = post ----> codes for posting a new message %>

Lines just above & below it:
%>
<% Response.Redirect "forum.asp?r=forums&t=" & cmdPost__for_name & "&i=" & cmdPost__for_id %>
<% End If 'submit = post ----> codes for posting a new message %>
<% If Request.Form("SUBMIT&quot

= "REPLY" then 'submit = post ----> codes for posting a new message %>
<%

[gorgeous]

Ladyborg
"Many of life's failures are people who did not realize how close they were to success when they gave up." [Thomas A. Edison]

schase · Mar 9, 2003

ooops
replace this

<% Dim rs
Set Conn = Server.CreateObject("ADODB.Connection&quot

conn.open MM_cnpublic_STRING

SQLstmt = "Insert into Messages(FOR_ID,MSG_DATED,MSG_AUTHOR,MSG_SUBJECT,MSG_BODY,MSG_INFORMED,MSG_TIME,MSG_EMAIL)"
SQLstmt = SQLstmt & "VALUES(" & cmdPost__for_id
SQLstmt = SQLstmt & ",'" & Replace(cmdPost__msg_author,"'","''&quot

& "'"
SQLstmt = SQLstmt & ",'" & Replace(cmdPost__msg_subject, "'", "''&quot

& "'"
SQLstmt = SQLstmt & ",'" & Replace(cmdPost__msg_body, "'", "''&quot

& "'"
SQLstmt = SQLstmt & ",'" & cmdPost__msg_informed & "'"
SQLstmt = SQLstmt & &quot

"
'response.Write SQLstmt
Set RS = Conn.Execute(SQLstmt)
End IF
set rs=nothing
Conn.Close
set conn=nothing
%>

with this

<% Dim rs
Set Conn = Server.CreateObject("ADODB.Connection&quot

conn.open MM_cnpublic_STRING

SQLstmt = "Insert into Messages(FOR_ID,MSG_DATED,MSG_AUTHOR,MSG_SUBJECT,MSG_BODY,MSG_INFORMED,MSG_TIME,MSG_EMAIL)"
SQLstmt = SQLstmt & "VALUES(" & cmdPost__for_id
SQLstmt = SQLstmt & ",'" & Replace(cmdPost__msg_author,"'","''&quot

& "'"
SQLstmt = SQLstmt & ",'" & Replace(cmdPost__msg_subject, "'", "''&quot

& "'"
SQLstmt = SQLstmt & ",'" & Replace(cmdPost__msg_body, "'", "''&quot

& "'"
SQLstmt = SQLstmt & ",'" & cmdPost__msg_informed & "'"
SQLstmt = SQLstmt & &quot

"
'response.Write SQLstmt
Set RS = Conn.Execute(SQLstmt)
set rs=nothing
Conn.Close
set conn=nothing
%>
"Never underestimate the power of determination"

Stuart

Ladyborg · Mar 10, 2003

Error:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Number of query values and destination fields are not the same.

/publicforum/forums/msgAdding.asp, line 62

Line 62 reads:
Set RS = Conn.Execute(SQLstmt) [gorgeous]

Ladyborg
"Many of life's failures are people who did not realize how close they were to success when they gave up." [Thomas A. Edison]

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Forum Error - NO REASON! Help!!!! 1

Programmer

Programmer

Technical User

Programmer

Technical User

Programmer

Technical User

Programmer

Technical User

Programmer

Technical User

Programmer

Technical User

Programmer

Programmer

Programmer

Technical User

Programmer

Technical User

Programmer

Similar threads

Log in

Part and Inventory Search

Sponsor