Find en fejl! Søgning
Jeg fik dette script på Eksperten:<HTML>
<%
if request.querystring(\"action\") = \"go\" then %>
<BODY background=\"..\\..\\tapetbg.gif\">
<% if request.querystring(\"search\") = \"\" then %>
Der er ikke indtastet noget søgeord.
<%else
search = request.querystring(\"search\")
Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
Set dir = fso.GetFolder(server.mappath(\".\"))
Set foldercollection = dir.Files
For Each file in foldercollection
if file.name <> \"search.asp\" then
if instr(file.name, search) then
nogetfundet = \"1\"
position = instr(file.name, \".\")
navn = left(file.name, (1-position))%>
Her skrives en tekst til de fundne html-sider
<A HREF=\"<%=file.name%>\"><%=navn%></A>
<% end if
end if
next
if nogetfundet <> \"1\" then %>
Der blev ikke fundet noget.
<%end if
set foldercollection = nothing
set fso = nothing
set dir = nothing
end if
else
%>
<BODY background=\"..\\..\\tapetbg.gif\" ONLOAD=\"doument.theform.search.focus();\">
Her skrives en tekst til indtastningsfeltet<br></br>
<FORM ACTION=\"search.asp\" METHOD=\"GET\" NAME=\"theform\">
<INPUT TYPE=\"hidden\" NAME=\"action\" VALUE=\"go\">
<INPUT TYPE=\"text\" NAME=\"search\" NAME=\"search\">
<INPUT TYPE=\"submit\" VALUE=\"Søg\">
</FORM>
<%end if%>
</BODY>
</HTML>
Søgningen foretages blandt en samling html-dokumenter i samme biblotek, og når et korrekt søgeord indtastes, skal filnavnet (minus \".html\") vises som et link til siden. Men i stedet kommer denne fejlmeddelelse:
Microsoft VBScript runtime error \'800a0005\'
Invalid procedure call or argument: \'left\'
/galleri/infosider/search.asp, line 19
Kan nogen rette denne/de fejl i scriptet, der forårsager dette?
/Lasse
