Condizione if

[tutte88]

In un file ASP che controlla i dati inseriti in una form ho messo:

if Description = "offesa" then
Response.Write ("carattere/termine inserito nel campo non valido")
else

Ora se nel campo "Description" inserisco la parola "offesa" giustamente mi dice che il termine non è valido e mi blocca l'inserimento, ma se inserisco una qualsiasi frase con la parola "offesa" oppure attaccata ad altra tipo "123offesa" nel mezzo mi fa procedere e il termine si inserisce nel database.

In poche parole come si fa a dire alla funzione ASP di bloccare quella parola anche se è nel bel mezzo di una frase oppure è attaccata ad altra parola?

Ho provato con "*offesa*" ma non funziona....

Grazie.

Giovanni

[optime]

con la funzione INSTR

[tutte88]

Grazie della prontissima risposta.

Scusa, ma per me è arabo; in pratica cosa devo fare/mettere?

Giovanni

[optime]

Originariamente inviato da tutte88
Scusa, ma per me è arabo...

si può rimediare studiando

http://msdn.microsoft.com/library/de...be0c58d7d1.asp

[tutte88]

Ho visto grazie, ma non riesco a tradurre in codice quanto letto (ebbene si, sono un asino...).

Ti posto il mio codice, se mi puoi dare uan mano mi fai un piacere.

Grazie

Giovanni

<%

Function ChkString(str)

str = replace(str, "<", "&lt;", 1, -1, 1)
str = replace(str, ">", "&gt;", 1, -1, 1)

ChkString = str
End Function

ConnString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\dati\db\database.mdb"


cat = Request.Form("cat")
name = ChkString(Request.Form("name"))
URL = Request.Form("url")
key = ChkString(Request.Form("key"))
Description = ChkString(Request.Form("des"))
Email = Request.Form("mail")
List = Request.Form("list")
today = now()
parent = Request.Form("parentid")
if name = "" then
Response.Write ("scrivi il nome del sito")
else

if URL = "http://" then
Response.Write ("scrivi l'URL")
else
if cat = "--Please select one--" then
Response.Write ("seleziona la tua giusta categoria")
else
if key = "" then
Response.Write ("scrivi le keywords")
else
if key = "parolaccia" then
Response.Write ("Hai scritto un carattere non valido nel campo parole chiave")
else
if key = "parolaccia2" then
Response.Write ("Hai scritto un carattere non valido nel campo parole chiave")
else
if Description = "parolaccia" then
Response.Write ("Hai scritto un carattere non valido nel campo descrizione")
else
if Description = "" then
Response.Write ("descrizione del sito")
else

set my_conn= Server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.RecordSet")
my_Conn.Open ConnString
set rscheck = my_conn.Execute ("Select URL from link2 where URL='" & URL & "'")

if rscheck.eof then

been_here_before="No"
end if
RScheck.close

if been_here_before="No" then


sql ="select * from link2"

RS.open Sql,my_conn,1,3
RS.AddNew
RS("Name")=name
RS("url")=url
RS("keyword")=key
RS("category")=cat
RS("description")=description
RS("postdate")= now()
RS("email")= Email
RS("parentid")= parent
RS("list")= list

RS.update

%>

%
else
Response.Write "già stato inserito nel database"
end if


my_conn.Close
set my_conn = nothing
set rs = nothing

end if
end if
end if
end if
end if
end if
end if
end if
%>

[tutte88]

Dovrei aver risolto mettendo:

If InStr(Description, "parolaccia") Then

che dici?

Grazie

[optime]

funziona? allora è giusto

[elesis]

Originariamente inviato da tutte88
Dovrei aver risolto mettendo:

If InStr(Description, "parolaccia") Then

che dici?

Grazie

yes...

[Stefco]

posso inserire una variabile al posto di "parolaccia".. ?
ho un problema di ricerca in una tabella dove i campi sono separati da una virgola (11111,22222)
e vorrei fare una query di ricerca utilizzando la funzione InStr..

tipo

select (campo) from (tabella) where (Instr(campo.tabella),[variabile])>0;

si può???

[optime]

usa la LIKE se non vuoi ammazzare il server