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]

schase · Mar 10, 2003

This is what happens when you handwrite code while learning to play Ghost Recon.

take 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
%>

and replace with this

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

conn.open MM_cnpublic_STRING

SQLstmt = "Insert into Messages(FOR_ID,MSG_AUTHOR,MSG_SUBJECT,MSG_BODY,MSG_INFORMED)"
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 '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/publicforum/forums/msgAdding.asp, line 62

Line 62:
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]

schase · Mar 10, 2003

ok see the

'response.Write SQLstmt

remove the ' infront of it - run it again and copy what it spits out. "Never underestimate the power of determination"

Stuart

Ladyborg · Mar 10, 2003

Error:

Insert into Messages(FOR_ID,MSG_AUTHOR,MSG_SUBJECT,MSG_BODY,MSG_INFORMED)VALUES(7,'test1','test 3/10 15:22','test','YES')
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/publicforum/forums/msgAdding.asp, line 62
[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 10, 2003

There shouldnt be a date in that - unless you keyed it in manually.

The subject field - did you just type test, or did you do test 3/10 15:22

? "Never underestimate the power of determination"

Stuart

Ladyborg · Mar 10, 2003

subject field: test 3/10 15:22
message: test [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 10, 2003

even typed in that should work

try just putting

test subject

into the subject line and see if it gives the same error "Never underestimate the power of determination"

Stuart

Ladyborg · Mar 10, 2003

Error:

Insert into Messages(FOR_ID,MSG_AUTHOR,MSG_SUBJECT,MSG_BODY,MSG_INFORMED)VALUES(7,'test1','test 3/10 15:53','testing message on public forum','YES')
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/publicforum/forums/msgAdding.asp, line 62
[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 10, 2003

Ok, so somehow a date / time field is being entered as subject line or added to it.

hmmmmm

on the form page, look at the fields, how many show

MSG_Subject

? "Never underestimate the power of determination"

Stuart

Ladyborg · Mar 10, 2003

Only one. Here's the form:

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<% If Request.Cookies("CookieUser&quot

<> "" Then %>
<tr>
<td align="left" valign="top" bgcolor="#000000"><img src="../assets/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td align="left" valign="top" bgcolor="#000000"><img src="../assets/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td align="left" valign="top" bgcolor="#FF0000"><font color="#FFFFFF"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">POST
NEW TOPIC<a name="post"></a></font></b></font></td>
</tr>
<tr>
<form name="POST" method="POST" action="../forums/msgAdding.asp">
<td align="left" valign="top">
<table border="0" cellspacing="5" cellpadding="5">
<tr align="left" valign="middle">
<td align="right" class="generalTextBold">Poster:</td>
<td class="generalTextBold"><%= Request.Cookies("CookieUser&quot

%>
<input type="hidden" name="MSG_AUTHOR" value="<%= Request.Cookies("CookieUser&quot

%>">
</td>
</tr>
<tr align="left" valign="middle">
<td align="right" class="generalTextBold">Forum:</td>
<td class="generalTextBold">
<% If Request.QueryString("t&quot

= "" Then %>
<select name="FOR_ID" class = "fields" >
<%
While (NOT rsForumListing.EOF)
%>
<option value="<%=(rsForumListing.Fields.Item("FOR_ID&quot

.Value)%>" <%if (CStr(rsForumListing.Fields.Item("FOR_ID&quot

.Value) = CStr(rsForumListing.Fields.Item("FOR_NAME&quot

.Value)) then Response.Write("SELECTED&quot

: Response.Write("&quot

%> ><%=(rsForumListing.Fields.Item("FOR_NAME&quot

.Value)%></option>
<%
rsForumListing.MoveNext()
Wend
If (rsForumListing.CursorType > 0) Then
rsForumListing.MoveFirst
Else
rsForumListing.Requery
End If
%>
</select>
<% Else %>
<%= Request.QueryString("t&quot

%>
<input type="hidden" name="FOR_ID" value="<%= Request.QueryString("i&quot

%>">
<input type="hidden" name="FOR_NAME" value="<%= Request.QueryString("t&quot

%>">
<% End If %>
</td>
</tr>
<tr align="left" valign="middle">
<td align="right" class="generalTextBold"> Subject:</td>
<td>
<input type="text" name="MSG_SUBJECT" size="50" class = "fields" maxlength="50">
</td>
</tr>
<tr align="left" valign="middle">
<td align="right" class="generalTextBold" valign="top">Message:</td>
<td>
<textarea name="MSG_BODY" cols="60" rows="10" class = "fields"></textarea>
</td>
</tr>
<tr align="left" valign="middle">
<td align="right" class="generalTextBold">  </td>
<td class="generalTextBold"><span class="generalTextBold">Inform me
when someone replies?</span>
<input type="radio" name="MSG_INFORMED" value="YES" checked >
<span class="generalTextBold">Yes</span>
<input type="radio" name="MSG_INFORMED" value="NO" >
<span class="generalTextBold">No</span></td>
</tr>
<tr align="left" valign="middle">
<td align="right" class="generalTextBold"> </td>
<td>
<input type="submit" name="SUBMIT" value="POST" class = "buttons" onClick="smutEngine(this.form)">
</td>
</tr>
</table>
</td>
<% Else %>
<span class="generalTextred">To post a topic, please login or register.
Thank you.</span>
<% End If %>
</form>
</tr>
<tr>
<td align="left" valign="top" bgcolor="#000000"><img src="../assets/spacer.gif" width="1" height="1"></td>
</tr>
</table>
[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 10, 2003

BTW, where did that test1 come from? I didn't type that in!!!!!!!!

Insert into Messages(FOR_ID,MSG_AUTHOR,MSG_SUBJECT,MSG_BODY,MSG_INFORMED)VALUES(7,'test1','test 3/10 15:53','testing message on public forum','YES')
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/publicforum/forums/msgAdding.asp, line 62

"test 3/10 15:53" was subject and message was "testing message on public forum" [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 10, 2003

Never mind, I see now test1 is the login name.

Oh brother, I'm going batty!!!!!!!!!!! [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 10, 2003

ok, bear with me here.

Please verify that you did not type

test 3/10 15:53
[/color[

into the subject line. "Never underestimate the power of determination"

Stuart

schase · Mar 10, 2003

try this again

ok, bear with me here.

Please verify that you did not type

test 3/10 15:53

into the subject line.
"Never underestimate the power of determination"

Stuart

Ladyborg · Mar 10, 2003

Yes, that WAS the subject line. [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 10, 2003

ok for subject line,

put just

subject test

it shouldnt matter, but its the only thing I can see so far.
Run that and see what happens. "Never underestimate the power of determination"

Stuart

Ladyborg · Mar 10, 2003

OK, here goes. FYI this time I changed my logon name to Ladyborg2 so as to avoid confusion like before:

Insert into Messages(FOR_ID,MSG_AUTHOR,MSG_SUBJECT,MSG_BODY,MSG_INFORMED)VALUES(7,'Ladyborg2','subject test','testing forum','YES')
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/publicforum/forums/msgAdding.asp, line 62
[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 10, 2003

on your earlier screenshot of

can you do the same, but highlight MSG_TIME
so I can see those values. "Never underestimate the power of determination"

Stuart

Ladyborg · Mar 10, 2003

OK here goes. BTW, disreguard the "PUB_" in front of the field names, that was just something I did when I was thinking of putting all forums on one db so as to cut down on the dns's for the site. That's another subject. Here's the screenshot:

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 10, 2003

ok - I take it the PUB_ are removed then.

Going to go off of a hunch here, try this for the code.

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

conn.open MM_cnpublic_STRING

SQLstmt = "Insert into Messages(FOR_ID,MSG_AUTHOR,MSG_SUBJECT,MSG_BODY,MSG_INFORMED)"
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

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

Technical User

Programmer

Technical User

Programmer

Technical User

Programmer

Technical User

Programmer

Technical User

Programmer

Programmer

Programmer

Technical User

Technical User

Programmer

Technical User

Programmer

Technical User

Programmer

Technical User

Similar threads

Log in

Part and Inventory Search

Sponsor