Bad words filter og send ip til db

Hej. Jeg har før fået hjælp fra nogle eksperter om et "bad words filter" og ip ban system, og det virkede også fint, men nu prøver jeg at tilpasse de samme koder til en anden gæstebog men det virker ikke helt....

Bad words filter kode:
<%
str = gaestebog.Fields.Item("besked").Value

ulovligeord = "fuck|pis|fucker"
Set regEx = New RegExp
regEx.Global = true
regEx.IgnoreCase = True

regEx.Pattern = "(^|[^a-z])" & ulovligeord & "([^a-z]|$)"
str = regEx.Replace (str, "$1xxx$2")
Set regEx = Nothing

Response.Write str
%>

Kode hvor ip bliver sendt til db når personen skriver besked:
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ", Ip) values (" & MM_dbValues & ",'"&Request.ServerVariables("REMOTE_ADDR")&"')"

Kode i den nye gæstebogen:
<%

if Request.QueryString("islem") <> "ekle" then
%>

     
     
<script language="javascript">
function yolla(){
var isim=document.misafir.isim.value;
var mail=document.misafir.mail.value;
var yer=document.misafir.yer.value;
var notu=document.misafir.notu.value;

if (isim=="")
{
alert("Lütfen adinizi ekleyin")
document.misafir.isim.focus()
return false
        }

if (mail==""){
        alert("Lütfen E-Mail ekleyin.");
        document.misafir.mail.focus()
        return false }
       
if (mail.indexOf('@', 0) == -1 || mail.indexOf('.', 0) == -1){
        alert("E-Mail gecersiz.");
document.misafir.mail.focus()
return false
            }       

if (yer=="")
{
alert("Hangi ülkeden yazdiginizi belirtin.")
document.misafir.yer.focus()
return false
        }
       
if (notu=="")
{
alert("Mesajinizi ekleyin")
document.misafir.notu.focus()
return false
        }
}
</script>

<table width="100%" border="0" cellspacing="1" cellpadding="1" bgcolor=Gainsboro height="400">

<form action="default.asp?modul=defter&islem=ekle"  name="misafir" onsubmit="return yolla()" method=post>

<tr height=100 align=center>
<td align=center colspan=2 bgcolor=#ffcc99>

  <table width="100%" border="0" cellspacing="0" cellpadding="4" bgcolor=Gainsboro>
    <tr>
      <td align=right>
      <font size=2> isim :</font>&nbsp;
      <INPUT type="text" name="isim" maxlength=30 size=20 style="border-style: solid; border-width: 1; font-size :

9pt"><br>
      <font size=2>E-Mail :</font>&nbsp;
      <INPUT type="text" name="mail"  maxlength=40 size=20 style="border-style: solid; border-width: 1; font-size :

9pt"><br>
      <font size=2>Yer :</font>&nbsp;
      <INPUT type="text" name="yer" maxlength=30 size=20 style="border-style: solid; border-width: 1; font-size :

9pt"><br><br>
      <INPUT type="submit" value="Deftere Ekle" id=submit1 name=submit1 style="border-style: solid; border-width: 1;

font-size : 9pt">
      </td>
      <td>
      <TEXTAREA rows=8 cols=45 name="notu" style="border-style: solid; border-width: 1; font-size : 9pt">Mesaj</TEXTAREA>
      </td>
    </tr>
  </table>
   
  </td>
</tr>

</form>


<%
end if




Dim sayfaIci, mconn, mrs, msql, sayac, Sayfalar, gastNot

sayfaIci = 12
if request("seite")="" then
    sayfa = 1
else
    sayfa = cint(request.querystring("seite"))
end if

Set mConn = Server.CreateObject("ADODB.Connection")
Set mRs = Server.CreateObject("ADODB.Recordset")
   
mConn.Open myDb
   
mSQL = "select * from gast order by id desc"
   
mRs.Open msql, mconn, 1, 3


if Request.QueryString("islem") = "ekle" then

    gastNot = left(Request.Form("notu"), 600)
    gastNot = replace(gastNot, "<", "x")
    gastNot = replace(gastNot, ">", "x")
    gastNot = replace(gastNot, vbcrlf, "<br>")
   
   
    mRs.AddNew
    mrs.Fields("name") = left(Request.Form("isim"), 20)
    mrs.Fields("email") = left(Request.Form("mail"), 30)
    mrs.Fields("ort") = left(Request.Form("yer"), 20)
    mrs.Fields("text") = gastNot
    mrs.Update
   
    Response.Redirect "default.asp?modul=defter"
   

else

    mRS.PageSize = sayfaIci
    mRS.CacheSize = SayfaIci
    mRS.AbsolutePage = sayfa

    Sayfalar = mRS.PageCount

    sayac = 0



Do While sayac < SayfaIci And Not mRS.EOF
%>
<tr bgcolor=#fffff9><td  valign=top width="100"><img src='img/right.gif' border=0 align=middle> <b><font size=2 

color=DarkViolet><a href="mailto:<%=mrs("email")%>"><%=mrs("name")%></a></font></b><br><font

size=1><%=mrs("datum")%></font><br><font size=1><%=mrs("ort")%></font>
</td>
<td width="80%"><font size=2><%=mrs("text")%>
</font></td></tr>
     
<%
Sayac = Sayac + 1
mRs.MoveNext
loop

response.write "<tr><td colspan=2 Align='center'  height='100%' width='100%' valign=bottom bgcolor='#ffffff'><font size=1

color=black><b>[Toplam: " & mrs.recordcount & "]</b> " & " .. Sayfalar :"
for i=1 to Sayfalar step 1
  if sayfa = i then
        Response.Write "<font size=1><b> "&i&", </b></font>"
  else
    response.write "<a href='default.asp?modul=defter&seite="&i&"'><font size=1><b>" & i & "</b></font></a>,&nbsp;"
  end if
next


%>   
</font></td></tr>     
       
      </table>

<%

mrs.Close
Set mrs = nothing
mconn.Close
set mconn = nothing

end if
%>

Kan nogle få de koder til at passe til den nye gæstebog