Error on page

message from cubanallstar on 23 Jul 2004
I am getting an error on most, but not all, of my pages. The user logs in
entering his/her username and password which then takes you to an overview
page, this contains a list of customer information drawn from a database. Here
I am getting an "error on page" message.

The message says:

LINE: 36
CHAR: 1
ERROR: OBJECT EXPECTED
CODE: 0
URL: http://e3g-ex/east/tams.asp?USERID=1

Thing is if i add some lines before line 36 the error message doesn't change!
Similarly all the error messages recieved on the other pages seem to be around
lines 30-40. Is there something really obvious missing? Nothing seems to be
affected functionality although some of the navigation between pages is
sometimes slow. Presumably before pages are cached.

I'll post the code in a seperate post below:

Regards.
 
cubanallstar replied to cubanallstar on 23 Jul 2004
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/tams.asp" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="administrator,user,guest"
MM_authFailedURL="notauthorised.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" &
Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" &
Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
<%
Dim rsSubtotal
Dim rsSubtotal_numRows
Dim Bolfound

Set rsSubtotal = Server.CreateObject("ADODB.Recordset")
rsSubtotal.ActiveConnection = MM_tams_STRING
rsSubtotal.Source = "SELECT cust_overview.CUSTID, AVG(product.TONNESPERANNUM)
AS AVGOfTONNESPERANNUM, AVG(product.SELLINGPRICE) AS AVGOfSELLINGPRICE,
(SUM(product.TURNOVERPERANNUM) - SUM(product.ANNUALCONTRIBUTION)) /
SUM(product.TURNOVERPERANNUM) * 100 AS AVGOfRM, AVG(product.ADDEDVALUE) AS
AVGADDEDVALUE, AVG(product.ENQUIRYRECEIVED) AS AVGENQUIRYRECEIVED,
SUM(product.TURNOVERPERANNUM) / 1000 AS SUMOfTURNOVERPERANNUM,
SUM(product.ANNUALCONTRIBUTION) / 1000 AS SUMOfANNUALCONTRIBUTION,
AVG(product.QUOTE) AS AVGOfQUOTE, AVG(product.TRIAL) AS AVGOfTRIAL,
AVG(product.TRIALAPPROVAL) AS AVGOfTRIALAPPROVAL, AVG(product.STEPUPTRIAL) AS
AVGOfSTEPUPTRIAL, AVG(product.STEPUPAPPROVAL) AS AVGOfSTEPUPAPPROVAL,
AVG(product.PRODUCTION) AS AVGOfPRODUCTION, AVG(product.GOLDILOCKS) AS
AVGOfGOLDILOCKS, SUM(product.JAN) AS SUMOfJAN, SUM(product.FEB) AS SUMOfFEB,
SUM(product.MAR) AS SUMOfMAR, SUM(product.APR) AS SUMOfAPR,
SUM(product.MAY) AS SUMOfMAY, SUM(product.JUN) AS SUMOfJUN,
SUM(product.JUL) AS SUMOfJUL, SUM(product.AUG) AS SUMOfAUG,
SUM(product.SEP) AS SUMOfSEP, SUM(product.OCT) AS SUMOfOCT,
SUM(product.NOV) AS SUMOfNOV, SUM(product.DEC) AS SUMOfDEC FROM product,
cust_overview WHERE cust_overview.CUSTID = product.CUSTID GROUP BY
cust_overview.CUSTID;"
rsSubtotal.CursorType = 0
rsSubtotal.CursorLocation = 2
rsSubtotal.LockType = 1
rsSubtotal.Open()

rsSubtotal_numRows = 0
%>
 
darrel replied to cubanallstar on 23 Jul 2004
Which line is 36?

That's a hell of a SQL statement you got there.

-Darrel

"cubanallstar" <webforumsuser@macromedia.com> wrote in message
news:cdr87f$er1$1@forums.macromedia.com...
"?" &
AVG(product.TONNESPERANNUM)
AVG(product.STEPUPTRIAL) AS
 

Archived message: Error on page (Macromedia Dreamweaver Web Design)