Welcome !

After experiencing a lot of down time, We decided to move this site to CrystalTech.com. CrystalTech.com is powered by only the finest Windows servers providing the best performance, reliability, and value anywhere.

Expected End Error

Author	Message

mcgibbon

Total Posts : 7
Scores: 0
Reward points : 0
Joined: 12/3/2009
Status: offline

Expected End Error Monday, December 21, 2009 6:20 AM (permalink)

I am getting an expected end error on this page:

http://www.jalc.org/RR/index.asp

I am NOT, however getting the same error on any of the other asp pages where I have placed this code. Any assistance would be most appreciated.

http://jalc.org/RR/about_programfaq.asp

Here is the code in the HEAD tag:

<%
set cn =server.CreateObject("adodb.connection")
cn.open = MM_connRRCountriesJET_STRING
set rs = cn.execute("select count(*) from countries")

countOfRec = rs(0)
randomize
random_number = int(rnd * countOfRec)+1

rs.close
set rs = nothing
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.CursorLocation = 3
rs.Open "select * from countries", cn, 3,1
if not rs.eof then
rs.PageSize = 1
rs.AbsolutePage = random_number
%>

Here is the code in the BODY tag:

<%
response.write "Country: "& rs("Country")&" "
response.write "Capital: "& rs("Capital")&" "
response.write "Currency: "& rs("Currency")&" "
response.write "Population: "& rs("Population")&" "
response.write "Language: "& rs("Language")&" "
response.write "Religion: "& rs("Religion")&" "
end if

rs.Close
set rs = Nothing

cn.Close
set cn = Nothing
%>