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

Wohoooooooooooo! It Worked!!!!!!!!!!!!!!!!!!!!!!! I could just kiss you!!!!!!!!!!

Now can you PLEASE explain what the HECK was going on?!? Remember I'm a newbie so keep it in simple terms.

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

Well

check box's

It actually was at the end of my guessing.

Normally you insert text with ' on each side of it - denoting text, numeric you do not - well Access wants you to insert/update without ' for Yes/No

Real pain, which is why I never use them - I use text for Yes or No or 0 and 1 (my favorite) "Never underestimate the power of determination"

Stuart

schase · Mar 10, 2003

and since I never use em - it was something that slipped my mind. "Never underestimate the power of determination"

Stuart

Ladyborg · Mar 10, 2003

The message WAS added to the forum, but when I went to see message detail I got error:

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/publicforum/includes/inc_msgDetail.asp, line 30

Line 30 is the "execute" line of code below. I noticed this too is a cmd. What's the glitch and how can I solve if it keeps occurring. Also, why is this happening on THIS forum, when I have another with the same exact files (only connection strings and db are changed)?

<%

set cmdMsg = Server.CreateObject("ADODB.Command&quot

cmdMsg.ActiveConnection = MM_cnpublic_STRING
cmdMsg.CommandText = "UPDATE MESSAGES SET MSG_READ_COUNT = MSG_READ_COUNT + 1 WHERE MSG_ID = varID "
cmdMsg.CommandType = 1
cmdMsg.CommandTimeout = 0
cmdMsg.Prepared = true
cmdMsg.Execute()

%>

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

I need to see more

Like where its getting VarID "Never underestimate the power of determination"

Stuart

Ladyborg · Mar 10, 2003

Lines 33 to 37 read:

<%
Dim rsMsgDetail__varID
rsMsgDetail__varID = "99999999999999"
if (Request.QueryString("i&quot

<> "&quot

then rsMsgDetail__varID = Request.QueryString("i&quot

%>

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

hmm, two different recordsets.

Ok, show all the code "Never underestimate the power of determination"

Stuart

Ladyborg · Mar 10, 2003

Here goes, it's the whole inc_msgdetail.asp code. I hope it's not too large for the forum:

<%
Response.Buffer = "true"
%>


<%

if(Request.QueryString("t&quot

<> "&quot

then cmdForum__varForName = Request.QueryString("t&quot

%>
<%

set cmdForum = Server.CreateObject("ADODB.Command&quot

cmdForum.ActiveConnection = MM_cnpublic_STRING
cmdForum.CommandText = "UPDATE FORUMS SET FOR_READ_COUNT = FOR_READ_COUNT +1 WHERE FOR_NAME = '" + Replace(cmdForum__varForName, "'", "''&quot

+ "' "
cmdForum.CommandType = 1
cmdForum.CommandTimeout = 0
cmdForum.Prepared = true
cmdForum.Execute()

%>
<%

set cmdMsg = Server.CreateObject("ADODB.Command&quot

cmdMsg.ActiveConnection = MM_cnpublic_STRING
cmdMsg.CommandText = "UPDATE MESSAGES SET MSG_READ_COUNT = MSG_READ_COUNT + 1 WHERE MSG_ID = varID "
cmdMsg.CommandType = 1
cmdMsg.CommandTimeout = 0
cmdMsg.Prepared = true
cmdMsg.Execute()

%>
<%
Dim rsMsgDetail__varID
rsMsgDetail__varID = "99999999999999"
if (Request.QueryString("i&quot

<> "&quot

then rsMsgDetail__varID = Request.QueryString("i&quot

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

rsMsgDetail.ActiveConnection = MM_cnpublic_STRING
rsMsgDetail.Source = "SELECT *, (SELECT COUNT(*) FROM MESSAGES WHERE MSG_AUTHOR = U_ID) AS TOPIC_COUNT, (SELECT COUNT(*) FROM REPLIES WHERE REP_AUTHOR = MSG_AUTHOR)AS REPLY_COUNT FROM MESSAGES INNER JOIN FORUMS ON FORUMS.FOR_ID = MESSAGES.FOR_ID, USERS, PROFILES WHERE U_NAME = U_ID AND U_ID = MSG_AUTHOR AND MSG_ID = " + Replace(rsMsgDetail__varID, "'", "''&quot

+ ""
rsMsgDetail.CursorType = 0
rsMsgDetail.CursorLocation = 2
rsMsgDetail.LockType = 3
rsMsgDetail.Open()
rsMsgDetail_numRows = 0
%>
<%
Function TrimBody(str)
Dim Arr
Str = (Replace(str, "<", "<&quot

)
Str = (Replace(str, ">", ">&quot

)
Str = (Replace(str, vbCrlf, "<br>&quot

)
Arr = Array("smileSimple", "

","smileSimple", "

", "smileTongue", "

","smileTongue", "

", "smileSad", "

","smileSad", ":-(", "smileWink", "

", "smileWink", ";-)" )
for i = 0 to UBOUND(Arr)-1 step 2
Str = Replace(Str, Arr(i+1), "<img src=""../assets/" & Arr(i) & ".gif"" border=0>&quot

next
TrimBody = Str
End Function

Function DoSpace(str)
DoSpace = (Replace(str, vbCrlf, "<br>&quot

)
End Function

Function DoLink(byVal strIn)
dim re, sOut

set re = New RegExp
re.global = true
re.ignorecase = true
're.multiline = true

' pattern that parses and finds any Internet URLs:
re.pattern = _
"((mailto\:|(news|(ht|f)tp(s?))\://){1}\S+)"

' replace method of RegExp object uses a remembered
' pattern denoted as $1 to link the found URL(s)
sOut = re.replace( strIn, _
"<A HREF=""$1"" TARGET=""_new"">$1</A>&quot

set re = Nothing
DoLink = sOut
End Function
%>

<link rel="stylesheet" href="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/css/css.css" type="text/css">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" valign="top" bgcolor="#000000" colspan="2"><img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td align="left" valign="middle" height="30" class="generalTextBold">
<div class = "links"><span class="linkColor"> <a href="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/forums/default.asp">FORUMS</a>
> <a href="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/forums/forum.asp?r=forums&t=<%= Request.QueryString("t&quot

%>&i=<%=(rsMsgDetail.Fields.Item("FOR_ID&quot

.Value)%>%20"><%= UCase( Request.QueryString("t&quot

) %></a>
></span><span class="generalTextRed"> TOPIC VIEW</span><span class="linkColor">
</span></div>
</td>
<td align="right" valign="middle" height="30">
<div class = "links"><span class="generalText"><a href="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/forums/default.asp#post">Post
A New Topic</a> | <a href="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/home/search.asp">Search</a></span> </div>
</td>
</tr>
<tr>
<td align="left" valign="top" bgcolor="#000000" colspan="2"><img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td align="left" valign="top" class="bgLoginBlack" height="20" colspan="2"> <img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/checkMark.gif" width="16" height="18" align="absmiddle"> TOPIC
DETAIL</td>
</tr>
<tr>
<td align="left" valign="top" bgcolor="#000000" colspan="2"><img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td align="left" valign="top" colspan="2">
<div class = "links">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="left" valign="top">
<td width="130">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="middle" height="20" class="bgLogin"> AUTHOR</td>
</tr>
<tr>
<td align="center" valign="middle" bgcolor="#000000"><img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td align="left" valign="top">
<table width="100%" border="0" cellspacing="3" cellpadding="2">
<tr align="left" valign="middle">
<td class = "generaltextbold" colspan="2">
<% If rsMsgDetail.Fields.Item("U_ICON&quot

.Value <> "" Then %>
<img src="../assets/<%=(rsMsgDetail.Fields.Item("U_ICON&quot

.Value)%>.gif" align="absmiddle">
<% Else %>
<img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/bullet.gif" align="absmiddle">
<% End If %>  
<a href="mailto:<%=(rsMsgDetail.Fields.Item("U_EMAIL&quot

.Value)%>"><%=(rsMsgDetail.Fields.Item("MSG_AUTHOR&quot

.Value)%></a></td>
</tr>
<tr align="left" valign="middle">
<td width="11" align="center"><img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/dot.gif" width="6" height="6" align="absmiddle"></td>
<td class="generalText"><%=(rsMsgDetail.Fields.Item("U_COUNTRY&quot

.Value)%></td>
</tr>
<tr align="left" valign="middle">
<td width="11" align="center"><img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/dot.gif" width="6" height="6" align="absmiddle"></td>
<td class="generalText"><%=(rsMsgDetail.Fields.Item("TOPIC_COUNT&quot

.Value)%> topics</td>
</tr>
<tr align="left" valign="middle">
<td width="11" align="center"><img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/dot.gif" width="6" height="6" align="absmiddle"></td>
<td class="generalText"><%=(rsMsgDetail.Fields.Item("REPLY_COUNT&quot

.Value)%> replies</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td bgcolor="#000000" width="1"><img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/spacer.gif" width="1" height="1"></td>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" valign="middle" height="20" class="bgLogin"> SUBJECT:
<%=(rsMsgDetail.Fields.Item("MSG_SUBJECT&quot

.Value)%></td>
</tr>
<tr>
<td align="center" valign="middle" bgcolor="#000000"><img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td align="center" valign="top">
<table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr align="left" valign="top">
<td valign="middle" height="18"><span class="generalTextGrey">Posted
on <%=(rsMsgDetail.Fields.Item("MSG_DATED&quot

.Value)%> with <%=(rsMsgDetail.Fields.Item("MSG_REPLY_COUNT&quot

.Value)%> replies</span></td>
<td align="right" valign="middle"><% If rsMsgDetail.Fields.Item("U_HOMEPAGE&quot

.Value <> "" Then %> <a href="<%=(rsMsgDetail.Fields.Item("U_HOMEPAGE&quot

.Value)%>" target = "_black"><img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/iconWebpage.gif" alt="Website" align="absmiddle" border="0"></a>
<% End If %>
<% If ( Request.Cookies("CookieUser&quot

= rsMsgDetail.Fields.Item("MSG_AUTHOR&quot

.Value ) OR ( Request.Cookies("CookieUser&quot

= myUserName ) Then %>
<a href="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/includes/editMsg.asp?r=forums&t=<%=(rsMsgDetail.Fields.Item("FOR_NAME&quot

.Value)%>&i=<%=(rsMsgDetail.Fields.Item("MSG_ID&quot

.Value)%>">
<img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/iconEdit.gif" alt="Edit This Topic" align="absmiddle" border="0"></a><% End If %><% If Request.Cookies("CookieUser&quot

= myUserName Then %> <a href="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/includes/deleteMsg.asp?r=forums&t=<%=(rsMsgDetail.Fields.Item("FOR_NAME&quot

.Value)%>&i=<%=(rsMsgDetail.Fields.Item("FOR_ID&quot

.Value)%>&id=<%=(rsMsgDetail.Fields.Item("MSG_ID&quot

.Value)%>"><img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/iconDelete.gif" alt="Delete This Topic" align="absmiddle" border="0"></a>
<% End If %>
<a href="mailto:<%=(rsMsgDetail.Fields.Item("U_EMAIL&quot

.Value)%>"><img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/iconMail.gif" alt="Email Poster" align="absmiddle" border="0"></a>
</td>
</tr>
<tr align="left" valign="top" bgcolor="#000000">
<td colspan="2"><img src="file:///C|/Documents%20and%20Settings/Lucy/Local%20Settings/Temp/Temporary%20Directory%2013%20for%20DUforumPro.zip/DUforum/assets/spacer.gif" width="1" height="1"></td>
</tr>
<tr align="left" valign="top">
<td colspan="2">
<table width="100%" border="0" cellspacing="3" cellpadding="3">
<tr align="left" valign="top">
<td class="generalText"><%=DoLink(TrimBody(rsMsgDetail.Fields.Item("MSG_BODY&quot

.Value))%><br><BR><%=DoSpace(rsMsgDetail.Fields.Item("U_SIGNATURE&quot

.Value)%></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</td>
</tr>

</table>
<%
rsMsgDetail.Close()
%>

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 after you insert - than it takes you to this page.

On the bottom of the insert page, they should be a response.redirect line

can you find that?

"Never underestimate the power of determination"

Stuart

Ladyborg · Mar 10, 2003

No such line. I did a search for it in the code and came up empty. I also searched the actual page (this is an "includes" page) and also found nothing.

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

was I correct in the order of the pages?

try a search for source code of page msgAdding.asp

look for

inc_msgDetail.asp "Never underestimate the power of determination"

Stuart

Ladyborg · Mar 10, 2003

Searched for inc_msgdetail.asp, nothing. However, there are 2 response.redirect lines in msgadding.asp:

Line 77:
<% Response.Redirect "forum.asp?r=forums&t=" & cmdPost__for_name & "&i=" & cmdPost__for_id %>

Line 132:
<% Response.Redirect "../forums/message.asp?r=forums&t=" & cmdReply__for_name & "&i=" & cmdReply__msg_id %>

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

ugggh

is this up on the web I can take a look at? "Never underestimate the power of determination"

Stuart

Ladyborg · Mar 10, 2003

LOL. How can you look at asp pages online? Can I send it to you in an e-mail?

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

wanted to see the front end of it.

know what - lets try this.

on the first page - make a backup copy of that.

then your top code where you see the code we did of:

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

replace that with:

<% 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 cmdPost = Conn.Execute(SQLstmt)
%>

and at the bottom of the page put this (below the body close tags)

set cmdPost=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

Ladyborg

Programmer

Ladyborg

Programmer

schase

Technical User

schase

Technical User

Ladyborg

Programmer

schase

Technical User

Ladyborg

Programmer

schase

Technical User

Ladyborg

Programmer

schase

Technical User

Ladyborg

Programmer

schase

Technical User

Ladyborg

Programmer

schase

Technical User

Ladyborg

Programmer

schase

Technical User

Similar threads

Part and Inventory Search

Sponsor