Spam i gæstebog

Sorter det fra:

If Request.Form("Gem") <> ""  and Session("erskrevet")="gem" Then
    strError = ""
    strNavn = Trim(Request.Form("Navn"))
    strEmail = Trim(Request.Form("Email"))
    strKommentar = Trim(Request.Form("Kommentar"))
        'Filter < from query and if found redirect to other site

    if instr(strKommentar, "<") <> 0 _
    or instr(strKommentar, "http") <> 0 _
    or instr(strKommentar, "[") <> 0 _
    or instr(strKommentar, "Hello") <> 0 _
    or instr(strKommentar, "hey") <> 0 _
    or instr(strKommentar, "site") <> 0 _
    or instr(strKommentar, "like") <> 0 _
    or instr(strKommentar, "design") <> 0 _
    or instr(strKommentar, "your") <> 0 _
    or instr(strEmail, "com") <> 0 _
    then
        response.redirect("antihacks.asp?code="& strKommentar)
    end if

Og så kan du hænge dem ud her:

http://www.solit4u.dk/public/hackerslist.asp

???

Luk agen