Har fundet fejlen tror jeg, men nu er der ingen tekst ... hmmm.
Jeg poster lige hele koden her :O) - det er den nederste del som er mest interessant!
<% Response.Buffer = True %>
<html><head>
<title>Søgeresultat</title>
<link rel="stylesheet" type="text/css" href="default.css">
</head>
<body>
<%
' Henter værdien fra soeg.htm
dim strKeyword
strKeyword = Trim(Request.Form("Keyword"))
If Len(strKeyword) = 0 Then
' Hvis der ikke er skrevet i feltet
Response.Clear
Response.Redirect("index.asp")
Else
' Hvis der er skrevet i feltet
strKeyword = Replace(strKeyword,"'","''")
End If
' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, Title, Article FROM Articles WHERE"
strSQL = strSQL & " (Title LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Article LIKE '%" & strKeyword & "%')"
' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("CMS.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
Function RegReplace(inStr)
Dim regEx
Set regEx = New RegExp
regEx.Global = True
regEx.IgnoreCase = True
regEx.Pattern = "<[^>]+>"
inStr=regEx.Replace(inStr, "")
RegReplace=inStr
End Function
Function Highlight(strText, strFind, strBefore, strAfter)
' Parameters:
' strText - string to search in
' strFind - string to look for
' strBefore - string to insert before the strFind
' strAfter - string to insert after the strFind
Dim nPos
Dim nLen
Dim nLenAll
nLen = Len(strFind)
nLenAll = nLen + Len(strBefore) + Len(strAfter) + 1
Highlight = strText
If nLen > 0 And Len(Highlight) > 0 Then
nPos = InStr(1, Highlight, strFind, 1)
Do While nPos > 0
Highlight = Left(Highlight, nPos - 1) & _
strBefore & Mid(Highlight, nPos, nLen) & strAfter & _
Mid(Highlight, nPos + nLen)
nPos = InStr(nPos + nLenAll, Highlight, strFind, 1)
Loop
End If
End Function
If Not (rs.BOF Or rs.EOF) Then
' Hvis der er fundet poster på søgningen
Response.Write "<p>Søgeresultat</p>"
Response.Write "<table border=0>"
Do While Not rs.EOF
databasetekst = RegReplace(rs("article"))
FindStrKeyword = instr(databasetekst, strKeyword)
hvorersoegeord = (FindStrKeyword-10)
if hvorersoegeord < 1 Then
hvorersoegeord = 1
End If
strOutput = mid(rs("article"),hvorersoegeord ,(Len(strKeyword)+20))
' Gammel strOutput = Regreplace(LEFT(rs("article"), 250))
'formaterer strengen med highlight af søgeord + ... ved slut
VarWord = strKeyword
strOutput = strOutput + "<b>...</b>"
HighlightText = Highlight(strOutput, VarWord, "<Span style='\background-color:#FFFF00;\'>", "</Span>")
'Her udskriver vi vores søgeresultat
Response.Write "<tr><td style='\border-bottom: 1 dotted #000000'\><b>" & rs("Title") & "</b></td></tr>"
Response.Write "<tr><td>" & HighlightText & "</td></tr>"
Response.Write "<tr><td><a href=""index.asp?id=" & rs("id") & """( target=""_parent"">Link til siden</a></td></tr>"
rs.MoveNext
Loop
Response.Write "</table>"
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If
' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>
</body>
