|
| |
|
|
Dealer58
Posts: 174
From: New York (was in Germany)
Status: offline
 |
Update DB message error - 2/24/2003 13:50:41
Hi
I believe that somewhere between downloading and uploading a site from one server to another with FP some files got corrupted.
Im getting this message on an update db file.
Microsoft OLE DB Provider for ODBC Drivers error ' 80040e21'
Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.
/pages/scripts/listconu.asp, line 248
line 248 of the script reads: <!--#include file=" ../../_fpclass/fpdbrgn1.inc" -->
I looked at the original script and the script on the server and they are the same. Seems like everything that should be there is there. Actually the file on the server has 1 kb more. I don' t know why!
Whats up?
CC
< Message edited by dealer58 -- 2/24/2003 2:49 PM >
|
|
|
|
ksb
Posts: 11
Joined: 1/22/2003
Status: offline
|
RE: Update DB message error - 2/24/2003 21:01:40
I recently changed servers and had a similar problem
Here is the reply I got from the host:
A: I see the following error:
Active Server Pages error ' ASP 0131'
Disallowed Parent Path
/recleague/banks.asp, line 63
The Include file ' ../_fpclass/fpdblib.inc' cannot contain ' ..' to indicate the parent directory.
Try using the following syntax for your include:
<!--#include virtual=" /_fpclass/fpdblib.inc" -->
The .. notation is disallowed by default on the newer Microsoft platforms and they recommended that this be disabled on all shared hosting servers. Please reply back if you have any questions.
| |
|
|
|
Dealer58
Posts: 174
From: New York (was in Germany)
Status: offline
|
RE: Update DB message error - 2/24/2003 21:51:33
I really don' t see how this could be a registry problem!?! Isn' t it a problem with the script itself? I have other similar pages on the site that are working just fine. I' m almost sure that there are also some pages with mutliple DB updates that are working fine.
I am starting to think that it might have something to do with the fact that these are DRWs that have been put on diets. I' m not too sure as I wrote them over a year ago.
Spooky???
CC[:j]
| |
|
|
|
Dealer58
Posts: 174
From: New York (was in Germany)
Status: offline
|
RE: Update DB message error - 2/24/2003 22:39:54
Hi Spooky,
You might want to look at the entire script. I don' t know how to make it smaller in the page so here is the cut & paste version!!
There a a few connection stings here. I also remember you teaching not to use the DRW more than once in a page. Didn' t you? Could that be the problem here?
<%
Response.buffer=True
If Session(" UserID77" )=" " Then
Response.redirect " /pages/scripts/message.asp?Redirect=" &Request.Servervariables(" URL" )
End if
%>
<%
Set Conn = Server.CreateObject(" ADODB.Connection" )
' Next, we open the connection object by calling the connection string
' that FrontPage created and stored in the global.asa file when the " store"
' connection was created
Conn.Open Application(" fleamarketweb3_ConnectionString" )
' Then we create a record set object and a SQL statement
Set RS = Conn.Execute (" SELECT userID From Account WHERE UserID = ' " & Request.Form(" Seller" ) & " ' " )
' Loop through the database to check for the users information
Do until RS.EOF
UserID = RS(" UserID" )
RS.MoveNext
loop
' Close the recordset and database connection
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
' If the password given is not in the database then we don' t do anything.
' Otherwise, we create the session objects
IF UserID = " " Then
Response.redirect(" /pages/htmpages/msgacc.htm" )
Else
End IF
%>
<%
Set Conn = Server.CreateObject(" ADODB.Connection" )
' Next, we open the connection object by calling the connection string
' that FrontPage created and stored in the global.asa file when the " store"
' connection was created
Conn.Open Application(" fleamarketweb3_ConnectionString" )
' Then we create a record set object and a SQL statement
Set RS = Conn.Execute (" SELECT balance From Account WHERE UserID = ' " & Request.Form(" Seller" ) & " ' " )
' Loop through the database to check for the users information
Do until RS.EOF
balance = RS(" balance" )
RS.MoveNext
loop
' Close the recordset and database connection
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
' If the password given is not in the database then we don' t do anything.
' Otherwise, we create the session objects
IF balance < cInt(Request.Form(" bpayment" )) Then
Response.redirect(" /pages/htmpages/msglist.htm" )
Else
End IF
%>
<html>
<head>
<meta http-equiv=" Content-Type" content=" text/html; charset=windows-1252" >
<meta name=" Microsoft Border" content=" tb" >
</head>
<body>
<!-- #include file=" adovbs.inc" -->
<%
' //////////////////////////////////////////////////////////
' // The ParseBody function is used to replace Chr(13)
' // with HTML so that it will display correctly on the
' // confirmation page.
' //////////////////////////////////////////////////////////
Function ParseBody(strText)
strText = Replace(strText, Chr(13), " <br>" )
ParseBody = strText
End Function
' //////////////////////////////////////////////////////////
' // Send results to the database
' // This portion of the page sends the information
' // from the form to the Northwind database.
' //////////////////////////////////////////////////////////
Set Conn = Server.CreateObject(" ADODB.Connection" )
' Next, we open the connection object by calling the connection string
' that FrontPage created and stored in the global.asa file when the " store"
' connection was created
Conn.Open Application(" spookylogin2000.mdb_ConnectionString" )
Set RS = Conn.Execute (" SELECT x_email FROM Users WHERE Username=' " & Request.Form(" Seller" ) & " ' " )
' Loop through the database to check for the users information
Do until RS.EOF
x_email= Rs(" x_email" )
RS.MoveNext
loop
' Close the recordset and database connection
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
Set Conn = Server.CreateObject(" ADODB.Connection" )
' Next, we open the connection object by calling the connection string
' that FrontPage created and stored in the global.asa file when the " store"
' connection was created
Conn.Open Application(" fleamarketweb3_ConnectionString" )
Set RS = Server.CreateObject(" ADODB.RecordSet" )
RS.Open " Listform" , Conn, adOpenKeySet, adLockOptimistic, adCmdTable
RS.AddNew
RS(" Category" ) = Request.form(" Category" )
RS(" CategoryNumber" ) = Request.form(" CategoryNumber" )
RS(" CC" ) = Request.form(" CC" )
RS(" Check" ) = Request.form(" Check" )
RS(" COD" ) = Request.form(" COD" )
RS(" Country" ) = Request.form(" Country" )
RS(" ItemLocation" ) = Request.form(" ItemLocation" )
RS(" LongDescription" ) = Request.form(" LongDescription" )
RS(" MoneyOrder" ) = Request.form(" MoneyOrder" )
RS(" Price" ) = Request.form(" Price" )
RS(" Quantity" ) = Request.form(" Quantity" )
RS(" SeeDescr" ) = Request.form(" SeeDescr" )
RS(" ShipTo" ) = Request.form(" ShipTo" )
RS(" ShortDescription" ) = Request.form(" ShortDescription" )
RS(" Yahoo" ) = Request.form(" Yahoo" )
RS(" YahooID" ) = Request.form(" YahooID" )
RS(" URL" ) = Request.form(" URL" )
RS(" Seller" ) = Request.form(" Seller" )
RS.Update
idOfAddedRecord = RS(" ItemNumber" )
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
' ////////////////////////////////////////////////////////////////////
' // Send the results to e-mail
' // We use CDONTS to create and send an e-mail based upon what was
' // entered into the form. The following lines compose and send
' // the e-mail.
' ////////////////////////////////////////////////////////////////////
' Set up the variables
Dim myCDONTSMail
Dim strFrom
Dim strTo
Dim strSubject
Dim strBody
strFrom=" admin@fleamarketweb.com"
strTo=x_email
strSubject = " Listing Notice Item#" & idOfAddedRecord & " "
strBody = " PLEASE DO NOT REPLY TO THIS EMAIL!"
strBody = strBody & Chr(13) & " It is for notification purposes only" & Chr(13)
strBody = strBody & Chr(13)
strBody = strBody & Chr(13) & " Hello!" & Chr(13)
strBody = strBody & Chr(13) & " This is a receipt of the listing you made at Fleamarketweb.com"
strBody = strBody & Chr(13) & " Here are the main details of the listing that you made"
strBody = strBody & Chr(13) & " Your User ID for this listing is " & Request.Form(" Seller" )
strBody = strBody & Chr(13)
strBody = strBody & Chr(13) & " Item Number " & idOfAddedRecord
strBody = strBody & Chr(13) & " Category " & Request.Form(" Category" )
strBody = strBody & Chr(13) & " Short Description " & Request.Form(" ShortDescription" )
strBody = strBody & Chr(13) & " Item Location " & Request.Form(" ItemLocation" )
strBody = strBody & Chr(13) & " Purchase Price $" & Request.Form(" Price" )
strBody = strBody & Chr(13) & " Your Fleamarketweb.com Account has been debited $" & Request.Form(" payment" )&" for this Listing"
strBody = strBody & Chr(13) & " The Item Page can be seen for thirty days past the Ending Date at"
strBody = strBody & Chr(13) & " http://tn391649xxjhy.co.uk/pages/scripts/Itemview3.asp?Itemnumber=" & idOfAddedRecord & Chr(13)
strBody = StrBody & Chr(13) & " Once your item is sold don' t forget to post feedback to the buyer at the Feedback Section of Fleamarketweb.com"
strBody = strBody & Chr(13) & " You can also view potential Buyers Feedback Rating there"
strBody = strBody & Chr(13) & " http://tn391649xxjhy.co.uk/pages/htmpages/feedback.htm" & Chr(13)
strBody = strBody & Chr(13) & " Thank you from the Staff at Fleamarketweb.com"
' Create a new mail message object
Set myCDONTSMail = CreateObject(" CDONTS.NewMail" )
' Sent the new mail message object by passing the parameters
' defined above
myCDONTSMail.Send strFrom,strTo,strSubject,strBody
' Set the new mail message object to Nothing to free resources
Set myCDONTSMail = Nothing
%>
<table>
<tbody>
<!--webbot bot=" DatabaseRegionStart" startspan s-columnnames s-columntypes
s-dataconnection=" fleamarketweb3" b-tableformat=" TRUE" b-menuformat=" FALSE"
s-menuchoice s-menuvalue b-tableborder=" FALSE" b-tableexpand=" FALSE"
b-tableheader=" FALSE" b-listlabels=" TRUE" b-listseparator=" TRUE"
i-ListFormat=" 0" b-makeform=" FALSE" s-recordsource s-displaycolumns
s-criteria s-order
s-sql=" UPDATE DISTINCTROW<br>Account<br>SET balance=balance+::payment::<br>WHERE UserID=' ::Seller::' "
b-procedure=" FALSE" clientside SuggestedExt=" asp"
s-DefaultFields=" payment=&Seller=" s-NoRecordsFound i-MaxRecords=" 256"
i-GroupSize=" 0" BOTID=" 0" u-dblib=" ../../_fpclass/fpdblib.inc"
u-dbrgn1=" ../../_fpclass/fpdbrgn1.inc"
u-dbrgn2=" ../../_fpclass/fpdbrgn2.inc" tag=" TBODY"
local_preview=" <tr><td colspan=64 bgcolor=" #FFFF00" align=" left" width=" 100%" ><font color=" #000000" >Database Results regions will not preview unless this page is fetched from a Web server with a web browser. The following table row will repeat once for every record returned by the query.</font></td></tr>"
preview=" <tr><td colspan=64 bgcolor=" #FFFF00" align=" left" width=" 100%" ><font color=" #000000" >This is the start of a Database Results region.</font></td></tr>" b-WasTableFormat=" TRUE" --><!--#include file=" ../../_fpclass/fpdblib.inc" -->
<%
fp_sQry=" UPDATE DISTINCTROW Account SET balance=balance+::payment:: WHERE UserID=' ::Seller::' "
fp_sDefault=" payment=&Seller="
fp_sNoRecords=" <tr><td colspan=16 align=left width=" " 100%" " ></td></tr>"
fp_sDataConn=" fleamarketweb3"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice=" "
fp_sMenuValue=" "
fp_iDisplayCols=16
fp_fCustomQuery=True
BOTID=0
fp_iRegion=BOTID
%>
<!--#include file=" ../../_fpclass/fpdbrgn1.inc" -->
<!--webbot bot=" DatabaseRegionStart" i-CheckSum=" 21169" endspan -->
<!--webbot bot=" DatabaseRegionEnd" startspan b-tableformat=" TRUE"
b-menuformat=" FALSE" u-dbrgn2=" ../../_fpclass/fpdbrgn2.inc" i-groupsize=" 0"
clientside tag=" TBODY"
local_preview=" <tr><td colspan=64 bgcolor=" #FFFF00" align=" left" width=" 100%" ><font color=" #000000" >This is the end of a Database Results region.</font></td></tr>"
preview=" <tr><td colspan=64 bgcolor=" #FFFF00" align=" left" width=" 100%" ><font color=" #000000" >This is the end of a Database Results region.</font></td></tr>" --><!--#include file=" ../../_fpclass/fpdbrgn2.inc" -->
<!--webbot bot=" DatabaseRegionEnd" i-CheckSum=" 65064" endspan -->
</tbody>
</table>
<table>
<tbody>
<!--#include file=" ../../_fpclass/fpdblib.inc" -->
<%
fp_sQry=" INSERT INTO AddFunds (ItemNumber, payment, ShortDescription, UserID, description) VALUES (" &idOfAddedRecord&" , ::payment::, ' ::ShortDescription::' , ' ::Seller::' , " &idofaddedrecord&" )"
fp_sDefault=" idOfAddedRecord=&payment=&ShortDescription=&Seller="
fp_sNoRecords=" <tr><td colspan=16 align=left width=" " 100%" " ></td></tr>"
fp_sDataConn=" fleamarketweb3"
fp_iMaxRecords=1
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice=" "
fp_sMenuValue=" "
fp_iDisplayCols=16
fp_fCustomQuery=True
BOTID=1
fp_iRegion=BOTID
%>
<!--#include file=" ../../_fpclass/fpdbrgn1.inc" -->
<!--#include file=" ../../_fpclass/fpdbrgn2.inc" -->
</tbody>
</table>
<p> </p>
<p><font face=" Verdana" color=" #FF0000" ><b>Thank you for submitting your
Listing at Fleamarketweb.com!<br>
</b></font><font face=" Verdana" size=" 2" >You will receive an e-mail shortly.
Your Account has been updated. </font></p>
<p><b><font face=" Verdana" size=" 2" >Sent To: <%=x_email%>
<br>
From : admin@fleamarketweb.come</font></b></p>
<p><b><font face=" Verdana" size=" 2" >Subject: Listing Notification Item Number <%=idOfAddedRecord%></font></b></p>
<p>
<b>
<font face=" Verdana" size=" 2" >
<p><font color=" #0000FF" face=" Comic Sans MS" >Where would you like to go now?</font></p>
<p><a href=" Listform3.asp" >Submit Another Listing</a></font></b>
<b><font face=" Verdana" size=" 2" ><a href=" myflea2.asp" >My Fleamrketweb</a></font></b>
<font face=" Verdana" size=" 2" ><b><a href=" ItemView3.asp?ItemNumber=<%=idOfAddedRecord%>" >View the Item Page</a>
<a href=" vwacc.asp" >View My Account</a></b></font></p>
<hr noshade size=" 1" style=" color: #000000" >
</body>
</html>
<%Session(" UserID77" ) = null %>
| |
|
|
|
rdouglass
Posts: 9228
From: Biddeford, ME USA
Status: offline
|
RE: Update DB message error - 2/25/2003 8:15:18
quote:
somewhere between downloading and uploading a site
Just a quick guess; did you copy the files (FTP) or did you Publish to the new server?
| |
|
|
|
Dealer58
Posts: 174
From: New York (was in Germany)
Status: offline
|
RE: Update DB message error - 2/25/2003 12:54:15
I published, OF COURSE!! I know better than that!!!
Do you think I should try to publish the page again along with the includes?
CC
| |
|
|
|
ASPPlayground
Posts: 122
Joined: 6/25/2002
From: Toronto, Canada
Status: offline
|
RE: Update DB message error - 2/25/2003 19:14:25
ok, let me try one more time:
Add this clause to your ASP script right below
Set RS = Server.CreateObject(" ADODB.RecordSet" ) :
RS.CursorLocation = adUseClient
I think this should do the trick.
_____________________________
Samuel Chou
ASPPlayground.NET Developer
| |
|
|
|
Dealer58
Posts: 174
From: New York (was in Germany)
Status: offline
|
RE: Update DB message error - 2/25/2003 22:17:08
Hi Sam,
I appreciate the efforts but Nope!
Here' s what I get now:
Microsoft Cursor Engine error ' 80040e21'
Multiple-step operation generated errors. Check each status value.
/pages/scripts/listconu.asp, line 249
CC
| |
|
|
|
Dealer58
Posts: 174
From: New York (was in Germany)
Status: offline
|
RE: Update DB message error - 2/26/2003 22:16:02
Spooky,
I tried to make the changes right on the server using FP (No FTPing). I can get the UPDATE DISTINCTROW to change to UPDATE only using the DRW, but the
response.write fp_sQry
Response.end
part (which I really don' t know where to put to begin with) gets kicked out when I save the file. It says a FP component will be overwritten etc.
I removed the line suggested by Samuel: RS.CursorLocation = adUseClient
or should I have left it in.
Do I have to make the changes in the original web on my PC and then publish?
To sum things up I' m really confused now and furthermore I know that this file worked fine before. What changed since I wrote this thing?
Please Advise
CC
| |
|
|
|
Spooky
Posts: 26599
Joined: 11/11/1998
From: Middle Earth
Status: offline
|
RE: Update DB message error - 2/26/2003 22:56:38
Unfortunately, thats the joy of troubleshooting.....
You can only step through each line and ensure that the correct datatypes are being sent to the correctly named fields.
With the DRW, that does make it hard.
Ive tried to modify it here, but without testing, Im not sure if itll work.
Give it a try?
<%
Response.buffer=True
If Session(" UserID77" )=" " Then
Response.redirect " /pages/scripts/message.asp?Redirect=" &Request.Servervariables(" URL" )
End if
%>
<%
Set Conn = Server.CreateObject(" ADODB.Connection" )
' Next, we open the connection object by calling the connection string
' that FrontPage created and stored in the global.asa file when the " store"
' connection was created
Conn.Open Application(" fleamarketweb3_ConnectionString" )
' Then we create a record set object and a SQL statement
Set RS = Conn.Execute (" SELECT userID From Account WHERE UserID = ' " & Request.Form(" Seller" ) & " ' " )
' Loop through the database to check for the users information
UserID = RS(" UserID" )
' Close the recordset and database connection
RS.Close
Set RS = Nothing
' If the password given is not in the database then we don' t do anything.
' Otherwise, we create the session objects
IF UserID = " " Then
Response.redirect(" /pages/htmpages/msgacc.htm" )
Else
End IF
%>
<%
' Then we create a record set object and a SQL statement
Set RS = Conn.Execute (" SELECT balance From Account WHERE UserID = ' " & Request.Form(" Seller" ) & " ' " )
balance = RS(" balance" )
RS.Close
Set RS = Nothing
' If the password given is not in the database then we don' t do anything.
' Otherwise, we create the session objects
IF balance < cInt(Request.Form(" bpayment" )) Then
Response.redirect(" /pages/htmpages/msglist.htm" )
Else
End IF
Conn.Close
Set Conn = Nothing
%>
<html>
<head>
<meta http-equiv=" Content-Type" content=" text/html; charset=windows-1252" >
<meta name=" Microsoft Border" content=" tb" >
</head>
<body>
<!-- #include file=" adovbs.inc" -->
<%
' //////////////////////////////////////////////////////////
' // The ParseBody function is used to replace Chr(13)
' // with HTML so that it will display correctly on the
' // confirmation page.
' //////////////////////////////////////////////////////////
Function ParseBody(strText)
strText = Replace(strText, Chr(13), " <br>" )
ParseBody = strText
End Function
' //////////////////////////////////////////////////////////
' // Send results to the database
' // This portion of the page sends the information
' // from the form to the Northwind database.
' //////////////////////////////////////////////////////////
Set Conn = Server.CreateObject(" ADODB.Connection" )
' Next, we open the connection object by calling the connection string
' that FrontPage created and stored in the global.asa file when the " store"
' connection was created
Conn.Open Application(" spookylogin2000.mdb_ConnectionString" )
Set RS = Conn.Execute (" SELECT x_email FROM Users WHERE Username=' " & Request.Form(" Seller" ) & " ' " )
' Loop through the database to check for the users information
x_email= Rs(" x_email" )
' Close the recordset and database connection
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
Set Conn = Server.CreateObject(" ADODB.Connection" )
' Next, we open the connection object by calling the connection string
' that FrontPage created and stored in the global.asa file when the " store"
' connection was created
Conn.Open Application(" fleamarketweb3_ConnectionString" )
Set RS = Server.CreateObject(" ADODB.RecordSet" )
RS.Open " Listform" , Conn, adOpenKeySet, adLockOptimistic, adCmdTable
RS.AddNew
RS(" Category" ) = Request.form(" Category" )
RS(" CategoryNumber" ) = Request.form(" CategoryNumber" )
RS(" CC" ) = Request.form(" CC" )
RS(" Check" ) = Request.form(" Check" )
RS(" COD" ) = Request.form(" COD" )
RS(" Country" ) = Request.form(" Country" )
RS(" ItemLocation" ) = Request.form(" ItemLocation" )
RS(" LongDescription" ) = Request.form(" LongDescription" )
RS(" MoneyOrder" ) = Request.form(" MoneyOrder" )
RS(" Price" ) = Request.form(" Price" )
RS(" Quantity" ) = Request.form(" Quantity" )
RS(" SeeDescr" ) = Request.form(" SeeDescr" )
RS(" ShipTo" ) = Request.form(" ShipTo" )
RS(" ShortDescription" ) = Request.form(" ShortDescription" )
RS(" Yahoo" ) = Request.form(" Yahoo" )
RS(" YahooID" ) = Request.form(" YahooID" )
RS(" URL" ) = Request.form(" URL" )
RS(" Seller" ) = Request.form(" Seller" )
RS.Update
idOfAddedRecord = RS(" ItemNumber" )
RS.Close
Set RS = Nothing
' ////////////////////////////////////////////////////////////////////
' // Send the results to e-mail
' // We use CDONTS to create and send an e-mail based upon what was
' // entered into the form. The following lines compose and send
' // the e-mail.
' ////////////////////////////////////////////////////////////////////
' Set up the variables
Dim myCDONTSMail
Dim strFrom
Dim strTo
Dim strSubject
Dim strBody
strFrom=" admin@fleamarketweb.com"
strTo=x_email
strSubject = " Listing Notice Item#" & idOfAddedRecord & " "
strBody = " PLEASE DO NOT REPLY TO THIS EMAIL!"
strBody = strBody & Chr(13) & " It is for notification purposes only" & Chr(13)
strBody = strBody & Chr(13)
strBody = strBody & Chr(13) & " Hello!" & Chr(13)
strBody = strBody & Chr(13) & " This is a receipt of the listing you made at Fleamarketweb.com"
strBody = strBody & Chr(13) & " Here are the main details of the listing that you made"
strBody = strBody & Chr(13) & " Your User ID for this listing is " & Request.Form(" Seller" )
strBody = strBody & Chr(13)
strBody = strBody & Chr(13) & " Item Number " & idOfAddedRecord
strBody = strBody & Chr(13) & " Category " & Request.Form(" Category" )
strBody = strBody & Chr(13) & " Short Description " & Request.Form(" ShortDescription" )
strBody = strBody & Chr(13) & " Item Location " & Request.Form(" ItemLocation" )
strBody = strBody & Chr(13) & " Purchase Price $" & Request.Form(" Price" )
strBody = strBody & Chr(13) & " Your Fleamarketweb.com Account has been debited $" & Request.Form(" payment" )&" for this Listing"
strBody = strBody & Chr(13) & " The Item Page can be seen for thirty days past the Ending Date at"
strBody = strBody & Chr(13) & " http://tn391649xxjhy.co.uk/pages/scripts/Itemview3.asp?Itemnumber=" & idOfAddedRecord & Chr(13)
strBody = StrBody & Chr(13) & " Once your item is sold don' t forget to post feedback to the buyer at the Feedback Section of Fleamarketweb.com"
strBody = strBody & Chr(13) & " You can also view potential Buyers Feedback Rating there"
strBody = strBody & Chr(13) & " http://tn391649xxjhy.co.uk/pages/htmpages/feedback.htm" & Chr(13)
strBody = strBody & Chr(13) & " Thank you from the Staff at Fleamarketweb.com"
' Create a new mail message object
Set myCDONTSMail = CreateObject(" CDONTS.NewMail" )
' Sent the new mail message object by passing the parameters
' defined above
myCDONTSMail.Send strFrom,strTo,strSubject,strBody
' Set the new mail message object to Nothing to free resources
Set myCDONTSMail = Nothing
Conn.Execute(" UPDATE DISTINCTROW Account SET balance=balance+" &cCur(request.form(" payment" ))&" WHERE UserID=' " &Request.form(" Seller" )&" ' " )
Conn.Execute(" INSERT INTO AddFunds (ItemNumber, payment, ShortDescription, UserID, description) VALUES (" &idOfAddedRecord&" ," &cCur(request.form(" payment" ))&" , ' " &(request.form(" ShortDescription" ))&" ' , ' " &Request.form(" Seller" )&" ' , " &idofaddedrecord&" )"
Conn.Close
Set Conn = Nothing
<p><font face=" Verdana" color=" #FF0000" ><b>Thank you for submitting your
Listing at Fleamarketweb.com!<br>
</b></font><font face=" Verdana" size=" 2" >You will receive an e-mail shortly.
Your Account has been updated. </font></p>
<p><b><font face=" Verdana" size=" 2" >Sent To: <%=x_email%>
<br>
From : admin@fleamarketweb.come</font></b></p>
<p><b><font face=" Verdana" size=" 2" >Subject: Listing Notification Item Number <%=idOfAddedRecord%></font></b></p>
<p>
<b>
<font face=" Verdana" size=" 2" >
<p><font color=" #0000FF" face=" Comic Sans MS" >Where would you like to go now?</font></p>
<p><a href=" Listform3.asp" >Submit Another Listing</a></font></b>
<b><font face=" Verdana" size=" 2" ><a href=" myflea2.asp" >My Fleamrketweb</a></font></b>
<font face=" Verdana" size=" 2" ><b><a href=" ItemView3.asp?ItemNumber=<%=idOfAddedRecord%>" >View the Item Page</a>
<a href=" vwacc.asp" >View My Account</a></b></font></p>
<hr noshade size=" 1" style=" color: #000000" >
</body>
</html>
<%Session(" UserID77" ) = null %>
_____________________________
If you arent part of the solution, then there is good money to be made prolonging the problem
§þ k¥
| |
|
|
|
Dealer58
Posts: 174
From: New York (was in Germany)
Status: offline
|
RE: Update DB message error - 3/3/2003 22:58:15
Spooky
I pasted it exactly as you wrote it and there were errors.
Here' s how yours was:
Conn.Execute(" UPDATE DISTINCTROW Account SET balance=balance+" &cCur(request.form(" payment" ))&" WHERE UserID=' " &Request.form(" Seller" )&" ' " )
Conn.Execute(" INSERT INTO AddFunds (ItemNumber, payment, ShortDescription, UserID, description) VALUES (" &idOfAddedRecord&" ," &cCur(request.form(" payment" ))&" , ' " &(request.form(" ShortDescription" ))&" ' , ' " &Request.form(" Seller" )&" ' , " &idofaddedrecord&" )"
Conn.Close
Set Conn = Nothing
I changed it to the following to get rid of the errors I was getting which was first:
Expecting ' )'
at the end of
Conn.Execute(" INSERT INTO AddFunds (ItemNumber, payment, ShortDescription, UserID, description) VALUES (" &idOfAddedRecord&" ," &cCur(request.form(" payment" ))&" , ' " &(request.form(" ShortDescription" ))&" ' , ' " &Request.form(" Seller" )&" ' , " &idofaddedrecord&" )"
and then I added %> after Ser Conn=Nothing
So I ended up with:
Conn.Execute(" UPDATE DISTINCTROW Account SET balance=balance+" &cCur(request.form(" payment" ))&" WHERE UserID=' " &Request.form(" Seller" )&" ' " )
Conn.Execute(" INSERT INTO AddFunds (ItemNumber, payment, ShortDescription, UserID, description) VALUES (" &idOfAddedRecord&" ," &cCur(request.form(" payment" ))&" , ' " &(request.form(" ShortDescription" ))&" ' , ' " &Request.form(" Seller" )&" ' , " &idofaddedrecord&" )" )
Conn.Close
Set Conn = Nothing
%>
Then I got the same message as in the beginning:
Microsoft OLE DB Provider for ODBC Drivers error ' 80040e21'
Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.
/pages/scripts/listconu.asp, line 226
Please Advise
Thanks
CC
| |
|
|
|
Dealer58
Posts: 174
From: New York (was in Germany)
Status: offline
|
RE: Update DB message error - 3/3/2003 23:16:01
That' s a good question.
When I look at the page with FP in HTML view there are only 215 lines!?!
What gives?
CC
| |
|
|
|
Dealer58
Posts: 174
From: New York (was in Germany)
Status: offline
|
RE: Update DB message error - 3/4/2003 21:29:16
Same Thing
Microsoft OLE DB Provider for ODBC Drivers error ' 80040e21'
Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.
/pages/scripts/listconu.asp, line 226
| |
|
|
|
Dealer58
Posts: 174
From: New York (was in Germany)
Status: offline
|
RE: Update DB message error - 3/5/2003 20:07:43
quote:
Absolutely sure
| |
|
|
|
Dealer58
Posts: 174
From: New York (was in Germany)
Status: offline
|
RE: Update DB message error - 3/5/2003 22:49:12
Spooky,
I found the same file in another web that I saved some time ago. I copied the page into the current web that is on the server. Here is what I got:
Microsoft OLE DB Provider for ODBC Drivers error ' 80040e21'
Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.
/pages/scripts/listconu.asp, line 248
line 248 (which actually exists this time!!!) is:
<!--#include file=" ../../_fpclass/fpdbrgn1.inc" -->
I' m pasting lines 217 to 281. Here they are:
quote:
<!--webbot bot=" DatabaseRegionStart" startspan s-columnnames s-columntypes
s-dataconnection=" fleamarketweb3" b-tableformat=" TRUE" b-menuformat=" FALSE"
s-menuchoice s-menuvalue b-tableborder=" FALSE" b-tableexpand=" FALSE"
b-tableheader=" FALSE" b-listlabels=" TRUE" b-listseparator=" TRUE"
i-ListFormat=" 0" b-makeform=" FALSE" s-recordsource s-displaycolumns
s-criteria s-order
s-sql=" UPDATE DISTINCTROW<br>Account<br>SET balance=balance+::payment::<br>WHERE UserID=' ::Seller::' "
b-procedure=" FALSE" clientside SuggestedExt=" asp"
s-DefaultFields=" payment=&Seller=" s-NoRecordsFound=" No records returned." i-MaxRecords=" 256"
i-GroupSize=" 0" BOTID=" 0" u-dblib=" ../../_fpclass/fpdblib.inc"
u-dbrgn1=" ../../_fpclass/fpdbrgn1.inc"
u-dbrgn2=" ../../_fpclass/fpdbrgn2.inc" tag=" TBODY"
local_preview=" <tr><td colspan=64 bgcolor=" #FFFF00" align=" left" width=" 100%" ><font color=" #000000" >Database Results regions will not preview unless this page is fetched from a Web server with a web browser. The following table row will repeat once for every record returned by the query.</font></td></tr>"
preview=" <tr><td colspan=64 bgcolor=" #FFFF00" align=" left" width=" 100%" ><font color=" #000000" >This is the start of a Database Results region. The page must be fetched from a web server with a web browser to display correctly; the current web is stored on your local disk or network.</font></td></tr>" b-WasTableFormat=" TRUE" --><!--#include file=" ../../_fpclass/fpdblib.inc" -->
<%
fp_sQry=" UPDATE DISTINCTROW Account SET balance=balance+::payment:: WHERE UserID=' ::Seller::' "
fp_sDefault=" payment=&Seller="
fp_sNoRecords=" <tr><td colspan=16 align=left width=" " 100%" " >No records returned.</td></tr>"
fp_sDataConn=" fleamarketweb3"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice=" "
fp_sMenuValue=" "
fp_iDisplayCols=16
fp_fCustomQuery=True
BOTID=0
fp_iRegion=BOTID
%>
<!--#include file=" ../../_fpclass/fpdbrgn1.inc" -->
<!--webbot bot=" DatabaseRegionStart" i-CheckSum=" 34347" endspan -->
<!--webbot bot=" DatabaseRegionEnd" startspan b-tableformat=" TRUE"
b-menuformat=" FALSE" u-dbrgn2=" ../../_fpclass/fpdbrgn2.inc" i-groupsize=" 0"
clientside tag=" TBODY"
local_preview=" <tr><td colspan=64 bgcolor=" #FFFF00" align=" left" width=" 100%" ><font color=" #000000" >This is the end of a Database Results region.</font></td></tr>"
preview=" <tr><td colspan=64 bgcolor=" #FFFF00" align=" left" width=" 100%" ><font color=" #000000" >This is the end of a Database Results region.</font></td></tr>" --><!--#include file=" ../../_fpclass/fpdbrgn2.inc" -->
<!--webbot bot=" DatabaseRegionEnd" i-CheckSum=" 65064" endspan -->
</tbody>
</table>
<table>
<tbody>
<!--#include file=" ../../_fpclass/fpdblib.inc" -->
<%
fp_sQry=" INSERT INTO AddFunds (ItemNumber, payment, ShortDescription, UserID, description) VALUES (" &idOfAddedRecord&" , ::payment::, ' ::ShortDescription::' , ' ::Seller::' , " &idofaddedrecord&" )"
fp_sDefault=" idOfAddedRecord=&payment=&ShortDescription=&Seller="
fp_sNoRecords=" <tr><td colspan=16 align=left width=" " 100%" " ></td></tr>"
fp_sDataConn=" fleamarketweb3"
fp_iMaxRecords=1
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice=" "
fp_sMenuValue=" "
fp_iDisplayCols=16
fp_fCustomQuery=True
BOTID=1
fp_iRegion=BOTID
%>
<!--#include file=" ../../_fpclass/fpdbrgn1.inc" -->
<!--#include file=" ../../_fpclass/fpdbrgn2.inc" -->
Hope this worked
CC
| |
|
|
|
Doug G
Posts: 1189
Joined: 12/29/2001
From: SoCal
Status: offline
|
RE: Update DB message error - 3/5/2003 23:29:25
I don' t know if there' s anything new here
http://www.dougscode.com/forum4/topic.asp?TOPIC_ID=17
A couple more things, if there is a blob field in your db, you should select blob fields last in the select statement, and if more than one blob field select the fields in the order they are present in the db. Copy blob dat out of the the recordset object to a local variable.
_____________________________
======
Doug G
======
| |
|
|
|
Dealer58
Posts: 174
From: New York (was in Germany)
Status: offline
|
RE: Update DB message error - 3/5/2003 23:53:30
Doug,
Thanks for the info. I don' t think that this is a problem with the registry. I' m no expert but I do understand what is going on in my script because it did work before and it is working on another server that is in Germany that I don' t have the password to yet. (because I wrote it down and put in a safe place!!) I' ll find it.
In the meantime I' m guessing that the problem is in the second attempt to access the database. I am looking at the include file that gave me the error and the second database in the script. I believe that the error is being generated from one of those 2 places or between the 2.
Thanks again
CC
| |
|
 New Messages |
 No New Messages |
 Hot Topic w/ New Messages |
 Hot Topic w/o New Messages |
 Locked w/ New Messages |
 Locked w/o New Messages |
|
Post New Thread
Reply to Message
Post New Poll
Submit Vote
Delete My Own Post
Delete My Own Thread
Rate Posts
|
|
|
Printable Version 
