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"
'Response.Write datapath
Set f = fspenTextFile(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
<%@ Language=VBScript %>
<%
Dim fso,f,datapath,rline,current
Dim aTxt(10)
Dim aTxtA(10)
datapath = Server.MapPath("events.txt"
'Response.Write datapath
Set f = fspenTextFile(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