Gøre søgeord fed...
Hej Eksperter.Jeg spurgte for nogen tid siden, hvordan man gør søgeordet fed. Da jeg ikke helt fik svar nok den gang, prøver jeg nu igen:
Jeg har en søgeformular. Den er ganske normal med <INPUT… osv. Så har jeg filen, der tager imod formularen:
------------------------------------------------------------------------------------
søg.asp
------------------------------------------------------------------------------------
<%
' Henter værdien fra index.asp
strKeyword = Trim(Request.Form("Keyword"))
if strKeyword = "" then
strKeyword = Trim(Request.QueryString("Keyword"))
end if
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
' Skaber DSNLess forbindelse til DBen
strSQL = "SELECT ID, navn, beskrivelse, dato, url, klik, stor FROM download WHERE"
strSQL = strSQL & " (Navn LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Beskrivelse LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (URL LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Stor LIKE '%" & strKeyword & "%')"
Set rs = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("download.mdb")
rs.Open strSQL, strDSN, 1
------------------------------------------------------------------------------------
søg.asp
------------------------------------------------------------------------------------
Nu er spørgsmålet så bare, hvordan jeg får ”strKeyword” fed. Jeg har prøvet med
strKeyword = Replace(strKeyword,"strKeyword"," <B>strKeyword </B>") , men det virkede ikke…
Håber på et godt svar…
