<html>
<head>
<title>Bad Word</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<% Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db.mdb")
Conn.Open DSN
If request("step") = 1 Then %>
<form action="?step=2" method="post" name="formen">
<input name="tekst" type="text"><br>
<input name="submit" type="submit" value="Tilføj">
</form>
<% End if %>
<% If request("step") = 2 Then %>
<%
strSQL = "select * from badword order by searchword"
set rsbadword = Conn.Execute(strSQL)
If not rsbadword.EOF Then
Do Until rsbadword.EOF
tekst = Server.HTMLencode("" & request.form("tekst") & "")
badword = Server.HTMLencode("" & rsbadword("searchword") & "")
If( InStr( ucase("" & tekst & "") , ucase(badword) ) > 0 ) Then
response.redirect("?error=level1&id=" & rsbadword("id") & "")
End if
rsbadword.Movenext
loop
response.redirect("
http://freeporn.com")
End if
%>
<% End if %>
<% If request("error") = "level1" Then
strSQL = "select * from badword where id = " & request("id")
set badworderroe = Conn.Execute(strSQL)
%>
Du tekst indeholder et dårliget ord "<strong><%=badworderroe("searchword")%></strong>"
<% End if %>
</body>
</html>
mit problem er så at jeg har bøsse inde i min database men når jeg skrivet det hopper jeg ind på freepron "ikke for jeg ik kan li det he he" men jeg kan godt skrive TSR som også står inde i min database
