Type mismatch i regex replace?
Jeg formin søgemaskine type mismatch i Regex.Replace når jeg søger i mit databasefelt "Hvor" - der står f.eks Ørestad - her er koden for siden:<!-- #include file=utils.asp -->
<% Response.Buffer = True %>
<html><head>
<!--<LINK REL=Stylesheet HREF="intranettet.css" TYPE="text/css">-->
<title>Søgeresultat</title>
<meta http-equiv="Content-Type" content="text/html; chaDBSetet=iso-8859-1"></head><body background="baggrund.jpg">
<body>
<style type="text/css">
.count {
position: absolute;
top:10px;
left:10px;
}
.resultat {
position: absolute;
top:40px;
left:10px;
}
.retur {
position: absolute;
top:9px;
left:200px;
}
.Highlight{background-color:#bce2f4;}
</style>
</body>
<%
Function Highlight(vFind, vSearch)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = vFind
RegEx.IgnoreCase = True
RegEx.Global = True
Highlight = RegEx.Replace(vSearch, "<span class=""Highlight"">" & vFind &"</span>")
Set RegEx = Nothing
End Function
' Henter værdien fra soeg.asp
strKeyword = Trim(Request.Form("Keyword"))
If Len(strKeyword) = 0 Then
' Hvis der ikke er skrevet i feltet
Response.Clear
Response.Redirect("frisoeg.asp")
Else
' Hvis der er skrevet i feltet
'strKeyword = Replace(strKeyword,"'","''")
End If
openconnection
'response.write strkeyword
'response.end
' Opbygger en dynamisk SQL streng
strsql = "SELECT * FROM til WHERE"
'sqlstr = sqlstr & " (datof LIKE '%" & strKeyword & "%')"
'StrSql = StrSql & " OR (besaetning LIKE '%" & strKeyword & "%')"
strsql = strsql & " (hvor LIKE '%" & replace(strkeyword,"'","''") & "%')"
StrSql = strsql & " OR (bem LIKE '%" & strKeyword & "%')"
'StrSql = StrSql & " OR (overskrift LIKE '%" & strKeyword & "%')"
'StrSql = StrSql & " OR (melding LIKE '%" & strKeyword & "%')"
sqlstr = Sqlstr & " OR (bem LIKE '%" & replace(strkeyword,"'","''") & "%') order by dfra desc"
getdata strsql
'response.write Sqlstr
'response.end
strNavn = DBset("FILNAVN")
' Skaber et recordset udfra SQL strengen
'Set DBSet = DBSet.execute(StrSql)
If Not (DBSet.BOF Or DBSet.EOF) Then
' Hvis der er fundet poster på søgningen
'Response.Write "<p><b>Søgeresultat</b></p>"
Response.Write "<table border=1 width=850 cellspacing=0 cellpadding=0 class=resultat>"
Response.Write "<tr><td><font color='#0000FF'>Journalnummer</font></td><td><font color='#0000FF'>Dato</font></td><td><font color='#0000FF'>Filnavn</font></td><td><font color='#0000FF'>Arrangement</font></td><td><font color='#0000FF'>Hvor</font></td><td><font color='#0000FF'>Bemærkninger</font></td><td> </td></tr>"
count = 0
Do While Not DBSet.EOF
'<a href=""../tilladelser/tilladelser/" & strNavn & """ target=_blank>se</a>
Response.Write "<tr>"
response.write "<tr><td width=170 valign='top'><strong>" & DBSet("jour") &" </strong></td><td width=70 valign='top'><strong>" & DBSet("dfra") &" </strong></td><td width=65 ><strong> " & DBSet("filnavn") &"</strong></td><td ><strong> " & DBSet("hvad") &"</strong></td><td ><strong>Pkr. " & highlight(strkeyword, DBSet("hvor")) &"</strong></td><td ><strong>Pkr. " & highlight(strkeyword, DBSet("bem")) &"</strong></td><td width=20> <a href=""../tilladelser/tilladelser/" & strNavn & """ target=_blank>se</a></td></tr>"
'response.write "<td width=90>" & DBSet("datof") & "</td>"
'Response.Write "<td>" & DBSet("datof") & "</td>"
'Response.Write "<td>" & DBSet("besaetning") & "</td>"
'Response.Write "<td>" & DBSet("meldingFra") & "</td>"
'Response.Write "<td>" & DBSet("sted") & "</td>"
'Response.Write "<td>" & DBSet("implicerede") & "</td>"
'Response.Write "<td colspan=4><strong>" & highlight(strkeyword, DBSet("hvor")) & "</strong></td>"
'response.write "<tr><td colspan=4 >" & highlight(strkeyword, DBSet("bem")) & "</td></tr><tr><td colspan=4 bgcolor='#808080' height=7></td></tr>"
count = count + 1
DBSet.MoveNext
Loop
Response.Write "</table>"
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "<p></p>"
End If
' Rydder op efter os
closeconnection
Response.Write "<table border=0 cellspacing=0 cellpadding=0 width=200 class=count>"
response.write "<tr><td>"
response.write "Der blev fundet <b> " & count & "</b> resultater"
response.write "</td></tr>"
response.write "</table>"
%>
<table width="150" border="0" cellspacing="1" class=retur>
<tr>
<td><a href="frisoeg.asp">Retur til søg</a></td>
</tr>
</table>
</body></html>
