Kolla om besökaren skriver fula ord..

Du kan ju göra så här med ASP:

strFult = "fan,jävlar,skit"
arrFult = Split(strFult, ",")

For i = 0 To UBound(arrFult)
  If InStr(Request.Form("inlagg"), arrFult(i)) > 0 Then
    Response.Redirect("gastbok.asp?fult=" & arrFult(i))
  End If
Next

verkar bra men hur och var lägger jag detta i gboken?

jlee skrev:

verkar bra men hur och var lägger jag detta i gboken?

förmodligen innan information läggs in i databasen, men iofs, finns ett fult ord med i inläggt så skickas de till ex en sida där det står:

Du får inte använda fula ord!

Skrev så här i sidan som skickar till db´n:

<%
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("guestbook.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strDSN
%>

<%

strFult = "fan,jävlar,skit"
arrFult = Split(strFult, ",")

For i = 0 To UBound(arrFult)
If InStr(Request.Form("kommentar"), arrFult(i)) > 0 Then
Response.Redirect("inte.asp?fult=" & arrFult(i))
End If
Next

sql = "Insert Into Guestbook (Namn,Email,Datum,Kommentar) Values('"
sql = sql & Request.Form("Namn") & "','"
sql = sql & Request.Form("Email") & "','"
sql = sql & Request.Form("Datum") & "','"
sql = sql & Request.Form("Kommentar") & "')"

Conn.Execute(sql)
Conn.Close
%>

<% response.redirect ("Guest.asp")%>

men detta funkade inte..ska jag ändra på fler ställen?

He he....tog fel, det funkade visst det....tackar!!

jlee skrev:

He he....tog fel, det funkade visst det....tackar!!

Vad bra! :)

Förenklingsförslag:

strFult = "fan,jävlar,skit"
arrFult = Split(strFult, ",")

kan bytas mot

arrFult = Array("fan", "jävlar", "skit")

Mvh