Hej Jørn
det var forkert af mig at sige, at koden giver fejlmelding. Det gør den
ikke. Men den finder heller ikke de filer, hvor det indtastede søgeord er i
deres metatags. Her ser du den samlede kode (minus formfilen). Den første
(udkommenterede) søgestreng virker fint, men den finder kun filer med ét ord
i metatags, nemlig det som kommer først. Men hvis der er 5 ord i metatags,
skal søgemaskinen naturligvis også kunne finde de andre. Hvis
FileSystemObject ville accepterer % som wildcard for et antal uspecificerede
karakterer, ville nedenstående kode virker. Men, som sagt, den finder intet.
Her er koden:
<HTML><BODY>
<B>Search Results for <%=Request("SearchText")%></B><BR>
<%
Const fsoForReading = 1
Dim strSearchText
' søgestreng der søger på første ord i metatags:
'strSearchText = "content" & """" & Request("SearchText")
' søgestreng der ikke finder noget:
strSearchText = "content=" & "%" & Request("SearchText") & "%" & "</HEAD>"
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Dim objFolder
'Set objFolder = objFSO.GetFolder(Server.MapPath("/"))
Set objFolder = objFSO.GetFolder(Server.MapPath("/soegemaskine_metatags/"))
Dim objFile, objTextStream, strFileContents, bolFileFound
bolFileFound = False
For Each objFile in objFolder.Files
If Response.IsClientConnected then
Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading)
strFileContents = objTextStream.ReadAll
If InStr(1,strFileContents,strSearchText,1) then
Response.Write "<LI><A HREF=""/" & objFile.Name & _
""">" & objFile.Name & "</A><BR>"
bolFileFound = True
End If
objTextStream.Close
End If
Next
if Not bolFileFound then Response.Write "No matches found..."
Set objTextStream = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>
</BODY></HTML>
Gode råd modtages med stor glæde.
v.h.
Jakob Munck