Hi all,

I am new in VBscript, do need help with these :-


Microsoft VBScript runtime error '800a004c'
Path not found /script/script.asp, line 113


Script.asp

sub load_sticky(n)
set fso = createobject("scripting.filesystemobject")
folderName = "announcement\sticky.asp"
'filename = "f:\nisweb\nisv2\" & folderName
filename = "f:\nis_dev\" & folderName

set myfile = fso.opentextfile(filename, 1) ' ---------------> line 113
i = 0

do while myfile.atendofstream <> true
textline = myfile.readline

if (i < n) then
if InStr(TextLine,"<h5") <> 0 then
response.write "<a class='sticky' href='/announcement/?announce=sticky#"
spot = InStr(TextLine, "'>") - 28
response.write Mid(TextLine, 28, spot)
response.write "'>"
response.write TextLine
response.write "</a>"
elseif InStr(TextLine,"<h6") <> 0 then
response.write TextLine
i = i + 1
end if
end if
loop
myfile.close
end sub


Thanks...