Ecco, ho cercato di togliere le parti inutili..
--------------
codice:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<%response.buffer=true%>
<%
idmsg = cint(Request.QueryString("idmsg"))
if len(idmsg) > 0 and IsNumeric(idmsg) then
Dim cn,rs,nome,data,titolo,link,testo,id,sql1,rs1,pippo,bloccorisp
session.lcid=1040
Set cn=Server.CreateObject("ADODB.Connection")
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("discussioni.mdb") & ";Persist Security Info=False"
cn.Open
dim sql
Set rs=Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection=cn
SQL = "SELECT * FROM messaggi WHERE idmsg=" &idmsg
Set Rs = cn.Execute(SQL)
Do while NOT RS.EOF
set nickname=rs("nickname")
set email=rs("email")
set oggetto=rs("oggetto")
set data=rs("data")
set msg=rs("msg")
set idmsg=rs("idmsg")
set rif=rs("rif")
set bloccorisp=rs("bloccorisp")
Function badWords(sText)
'alcune parole poco consone, potete aggiungerne quante ne volete
words = Array("cretino","stupido","imbecille","porcapaletta")
stringa = sText
For k = LBound(words) To UBound(words)
stringa = Replace(stringa, words(k), String(Len(words(k)),"*"))
Next
badWords = stringa
End Function
%>
<td width="18%" bgcolor="#FFFFFF" height="20">
<div align="left" class="messaggio"><%=badWords(msg)%><//td>
<%
rs.movenext
loop
RS.Close
Set RS=nothing
cn.close
Set Cn=nothing
end if
%>
Rispondi quotando
