tag in campo db

[DarioMarco]

Salve a tutti,
ho un db access, che in un campo "descrizione" ho un testo, e alla fine ho scritto questo:

clicca qui per andare alla prossima pagina.

il probelma sta nel fatto che se faccio una ricerca, impostando una query del tipo:
Select * from mio database where descrizione like %pagina%
mi esce stampata la pagina con tutto il codice per il link, e se faccio una ricerca per il termine "href" mi esce stampato il codice.

come potrei fare per far impedire ad allo script di interpretare si i tag html scritti in un record, ma di non farli figurare come testo

Grazie, ciao.

[Mems]

Leggi i dati dal db passandoli dalla funzione server.HTMLEncode()

[DarioMarco]

thnx ora ci provo

[DarioMarco]

grazie mems per la tua risposta, ma purtroppo non mi funziona:
se metto htmlencode, mi riporta tutto il testo coi tags inclusi;
se metto urlencode, alcune cose me le omette.

penso che non ci sia una grande alternativa, a meno che non trovo un sistema per disabilitare almeno il codice dei links, vorrei fare qualcosa del tipo

descrizione= repalce(descrizione,"<a href="," ")
descrizione= repalce(descizione,"</a>"," ")

ma purtroppo il contenuto nel tag dei links è variabile e mi riporta il percorso dei tags,
che ne pensi?

grazie, ciao.

[Mems]

puoi fare una seplice replace del < con l'equivalente codificato e stesso discorso per il carattere >

[DarioMarco]

puoi fare una seplice replace del < con l'equivalente codificato e stesso discorso per il carattere >

Il problema è che poi mi esce scritto tutto il link così com'è.

Non esiste qualche funzione che mi disabilita i tag e tutto quello che c'è dentro i tag nei file di testo???

es.:
vai alla pagina2

mi farebbe uscire solo "vai alla pagina2" senza il codice html

chiedo troppo??

grazie, ciao.

[Mems]

Cerca
function cleanHTML
sul forum e su google
Su google magari ci aggiungi la parola ASP

[DarioMarco]

eccola qua:

Function cleanHTML(ByVal pStrHTML)
    	
    	Dim lObjRegExp
    	If VarType(pStrHTML) = vbNull Then Exit Function
    	If pStrHTML = "" Then Exit Function
    	Set lObjRegExp = New RegExp
    	lObjRegExp.Global = True
    	lObjRegExp.IgnoreCase = True
    	lObjRegExp.Pattern = "<(/)?SCRIPT|META|STYLE([^>]*)>"
    	pStrHTML = lObjRegExp.Replace(pStrHTML, "")
    	lObjRegExp.Pattern = "<(/)?(LINK|IFRAME|FRAMESET|FRAME|APPLET|OBJECT)([^>]*)>"
    	pStrHTML = lObjRegExp.Replace(pStrHTML, "")
    	lObjRegExp.Pattern = "(<A[^>]+href\s?=\s?""?javascript:)[^""]*(""[^>]+>)"
    	pStrHTML = lObjRegExp.Replace(pStrHTML, "")
    	lObjRegExp.Pattern = "(<IMG[^>]+src\s?=\s?""?javascript:)[^""]*(""[^>]+>)"
    	pStrHTML = lObjRegExp.Replace(pStrHTML, "")
    	lObjRegExp.Pattern = "<([^>]*) on[^=\s]+\s?=\s?([^>]*)>"
    	pStrHTML = lObjRegExp.Replace(pStrHTML, "")
    	Set lObjRegExp = Nothing
    	
    	cleanHTML = pStrHTML
    	
    End Function

La metto a disposizione di tutti coloro che hanno il mio stesso problema.

penso che il funzionamento dovrebbe essere questo:
1) prendi la stringa contenuta nel db, es: recordset("descrizione"), chiami la funzione passandola es: call cleanHtml(ByVal, recordset("descrizione"))
2) dove vuoi che ti stampa il risultato metti: response.write pStrHTML sarebbe la stringa pulita.
p.s. byVal che cos'è ???

ciao.