Read a text file

rondavid · May 2, 2003

Hello everyone. Im a newbie. Can anyone tell me whats wrong with this code:
<%@ Language=VBScript %>
<%
Dim fso,f,datapath,rline,current
Dim aTxt(10)
Dim aTxtA(10)
datapath = Server.MapPath("events.txt&quot

'Response.Write datapath
Set f = fs

penTextFile(datapath,1)
Do While f.AtEndOfStream <> True
rline= f.ReadLine
if IsNumeric(rline) then
current = cint(rline)
else
if IsDate(rline) then
aTxt(Current) = rline
else
aTxtA(Current) = rline
end if
end if
loop
f.Close
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>

<P><IMG alt=""
src="file://C:\SourceCodeTechnologies\Projects\AVM Technologies\Web stuff\images\eventsguy.jpg"></P>

</BODY>
</HTML>

I keeping it simple so I can learn, but this keeps giving me HTTP 500 Internal Server Error. Thanks

adroit · May 2, 2003

Nothing Much Wrong with the Code except you have not created the fso object before opening the text file .

'Copy/paste this line OF code written below
'above "Set f=Set f = fs

penTextFile(datapath,1)"

Set fso=server.CreateObject("Scripting.FileSystemObject&quot

'---YOUR CODE SHOULD BE LIKE THIS
<%
Dim fso,f,datapath,rline,current
Dim aTxt(10)
Dim aTxtA(10)
datapath = Server.MapPath("events.txt&quot

Set fso=server.CreateObject("Scripting.FileSystemObject&quot

Set f = fs

penTextFile(datapath,1)
Do While f.AtEndOfStream <> True
rline= f.ReadLine

if IsNumeric(rline) then
current = cint(rline)
else
if IsDate(rline) then
aTxt(Current) = rline
else
aTxtA(Current) = rline
end if
end if
loop
f.Close

%>
'---END CODE

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Read a text file

rondavid

Programmer

adroit

Programmer

Similar threads

Part and Inventory Search

Sponsor