Objekt krävs.: 'objRegExp'

Får följande felmedelande:

Körningsfel i Microsoft VBScript fel '800a01a8'
Objekt krävs.: 'objRegExp'
/asp/gastbok.asp, rad 51

När jag använder nedstående funktion!

Function radbryt(strText)
strText = Server.HTMLEncode(strText)
objRegExp.Pattern = "\<(HR)\>"       [b]<----- detta är rad 51[/b]
strText = objRegExp.Replace(strText,"<hr>") 
smiley = strText

anropas av nedstående kod:

text = radbryt(rs("text"))

Det jag försöker göra är en funktion som rensar bort all skadlig kod, men tillåter <hr> taggen. Hur gör jag??

Du har inte skapat ditt RegExp-objekt.

Set objRegExp = new RegExp

Mvh,

Function radbryt(strText)
strText = Server.HTMLEncode(strText)
set objRegExp = new regexp '<--
objRegExp.Pattern = "\<(HR)\>"

Trevligt med snabba svar. Synd bara att det inte blir som jag vill. Koden funkar inte. Även <hr> taggen "HTMLEncodas" dvs. den skrivs ut som text i webbläsarfönstret!
Mer hjälp tack! :l

Löste det själv! :p

Function radbryt(strText)
strText = Server.HTMLEncode(strText)
strText = Replace(strText,"<hr>","<hr>")
radbryt = strText

Kan förklara om någon nu vill veta det:
När HTMLEncode startar så översätter alla < > taggar till just ,"< och &gt

Därför fungede det inte.