PDA

View Full Version : Server Error Message....


ABC123

Toby Locke
03-20-2007, 07:39 AM
Hi
I am messing around trying to extract info from the server log file and hit this small problem, using this code I receive this server error, is it me or am I missing something?
Toby Locke


dim data(30) as c
dim tbl99 as p
dim cnt as n
tbl99 = table.open("[PathAlias.ADB_Path]\toby_test.dbf")
tbl99.delete_range()
tbl99.close()
file_pointer = file.open("c:\program files\a5v8\a5w_access.log", FILE_RW_SHARED)
while .NOT. file_pointer.eof()
text = file_pointer.read_line()
trace.writeln(text)
for cnt = 1 TO file_pointer.eof()
if substr(text,cnt,17)="/session_folders/"
tbl99 = table.open("[PathAlias.ADB_Path]\toby_test.dbf")
tbl99.enter_begin()
tbl99.Data=text
tbl99.enter_end()
tbl99.close()
end if
next cnt
end while
file_pointer.close

()500 Internal Server Error
"Script Error
Error:Script: /index.a5w line:403
next cnt
Unexpected internal Alpha Five error.
Please send the following information to technical support at Alpha Software.
Source code (not on your machine) C:\dev\a5v8\src\engine\GENERIC\AU_PARSE.cpp at line 4412."

Steve Workings
03-20-2007, 08:14 AM
Well, I did this right in the message box, not in A5's code editor but I think it's right:



dim tbl99 as p
tbl99 = table.open("[PathAlias.ADB_Path]\toby_test.dbf")
tbl99.zap(.t.)

file_pointer = file.open("c:\program files\a5v8\a5w_access.log", FILE_RO_SHARED)
while .NOT. file_pointer.eof()
text = file_pointer.read_line()
if 'session_folders' $ text
tbl99.enter_begin()
tbl99.Data=text
tbl99.enter_end(.t.)
end if
end while
file_pointer.close
tbl99.close()

Toby Locke
03-20-2007, 11:12 AM
Steve

Thanks for reply but it returns


500 Internal Server Error
"Script Error
Error:line:413 Empty expression"

Any Idea's

Toby

Steve Workings
03-20-2007, 11:35 AM
Here. I dropped it into the code editor and found a couple more problems.


dim tbl99 as p
tbl99 = table.open("[PathAlias.ADB_Path]\toby_test.dbf")
tbl99.zap(.t.)

file_pointer = file.open("c:\program files\a5v8\a5w_access.log", FILE_RO_SHARED)
while .NOT. file_pointer.eof()
text = file_pointer.read_line()
if "session_folders" $ text
tbl99.enter_begin()
tbl99.Data=text
tbl99.enter_end(.t.)
end if
end while
file_pointer.close()
tbl99.close()

Toby Locke
03-20-2007, 11:47 AM
Steve


That's Great. Thanks for that

Toby