Microsoft VBScript compilation error '800a03ea'

R

Red_Star20

I am using Front Page with an oracle database and I keep getting a syntax
error, which means that i have a missing character in line 27, but line 27 is
empty.. there is nothing in it...

Error msg:

Microsoft VBScript compilation error '800a03ea'

Syntax error

/sba_home/Students/Undergraduate/international/George/International/CityAbbreviation/CityAdded.asp, line 27

else
^

Here is a part of my code:

<%
TodayDate = date()

'Query the database for city and abbreviation
strSQL = "SELECT * FROM group_travel Order By City_Name"
set rsAddCity = dbConnection.execute(strSQL)

%>
<body>
<table align="center" width="334">
<!--If statement displays values already in the table-->
(THIS IS LINE 27 HERE) THERE IS NOTHING IN IT....
<tr>
<td align="center" colspan="3"><b><font size="6">City Abbreviation
List</font></b></td>
</tr>
<tr><td colspan="2"> </td></tr>
<tr>
<td align="center" width="198"><b><font size="4">Location</font></b></td>
<td align="center" width="126"><b><font
size="4">Abbreviation</font></b></td>
</tr>

<%Do While NOT rsAddCity.EOF%>
<%if rsAddCity("City_Name") <> "" AND rsAddCity("City_Abbreviation") <> ""
then%>
<tr>
<td align="center" width="198"><%=rsAddCity("City_Name")%></td>
<td align="center"><%=rsAddCity("City_Abbreviation")%></td>
</tr>
<%else%>
<%end if%>

<% rsAddCity.moveNext() %>
<%Loop%>
<!--No records found-->

Any ideas ???!
 
R

Ronx

If possible, open the page in Notepad or another text editor, then
check for line 27.
In the FrontPage Code view, any FrontPage include files and shared
borders are rendered as a single comment (or missed totally), whereas
when browsed the include (shared border) is rendered in full - adding
to the line count.

In the code snippet provided, the error could be
<%else%>
<%end if%>
where the else is superfluous - there are no statements following the
else.

Also, you should consider removing the extra <% %> these are not
needed on every line of code - they are needed where HTML mark-up
meets ASP, and where ASP meets HTML mark-up. Removing the delimiters
makes for easier reading.
Compare

</tr>
<%Do While NOT rsAddCity.EOF
if rsAddCity("City_Name") <> "" AND rsAddCity("City_Abbreviation") <>
"" then%>
<tr>

with the original.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top