<% function LimparTexto(str) str = trim(str) str = lcase(str) str = replace(str,"=","") str = replace(str,"'","") str = replace(str,"""""","") str = replace(str," or ","") str = replace(str," and ","") str = replace(str,"(","") str = replace(str,")","") str = replace(str,"<","[") str = replace(str,">","]") str = replace(str,"update","") str = replace(str,"-shutdown","") str = replace(str,"--","") str = replace(str,"'","") str = replace(str,"#","") str = replace(str,"$","") str = replace(str,"%","") str = replace(str,"","") str = replace(str,"&","") str = replace(str,"'or'1'='1'","") str = replace(str,"--","") str = replace(str,"insert","") str = replace(str,"drop","") str = replace(str,"delet","") str = replace(str,"xp_","") str = replace(str,"select","") str = replace(str,"*","") LimparTexto = str end function codigo=request("IdNoticias") Set rsBusca=conn.execute("Select * from TbNoticias where IdNoticias="& codigo &" ") while not rsBusca.eof Titulo=rsBusca("Titulo") Primeiro=rsBusca("Primeiro") Segundo=rsBusca("Segundo") Terceiro=rsBusca("Terceiro") Quarto=rsBusca("Quarto") Quinto=rsBusca("Quinto") Sexto=rsBusca("Sexto") Setimo=rsBusca("Setimo") Oitavo=rsBusca("Oitavo") Nono=rsBusca("Nono") Decimo=rsBusca("Decimo") DecimoPrimeiro=rsBusca("DecimoPrimeiro") Imagem=rsBusca("Imagem") Data=rsBusca("Data") rsBusca.movenext wend %>
<%=Titulo%>
 
<% if Imagem<>"" then %> <% end if%> <%=Primeiro%>
<%=Segundo%>
<%=Terceiro%>
<%=Quarto%>
<%=Quinto%>
<%=Sexto%>
<%=Setimo%>
<%=Oitavo%>
<%=Nono%>
<%=Decimo%>
<%=DecimoPrimeiro%>