No lugar de:

response.Redirect("default.asp")

Use:

response.Redirect(RS("Pasta"))

Eu não diria "TENHAM QUE SER FEITAS EM JAVAsCRIPT", pois pode acontecer de o Browser não rodar os JS, e ai? Dados não verificados e validados chegando para ser processado.

JavaScript ajuda, mas faça validações no ASP também.

É só fazer um loop pela tabela com as palavras proíbidas e usar o replace.

Vou explicar com ALGUNS fragmentos de códigos:

Conecte ao BD e faça um Select na tabela com as palavras proibidas.
Var_texto = "Aqui vc colocará o texto que deverá ser tratado!, pode ser usando um Request para pegar de um formulário, ou vir de uma outra tabela"
While Not RS.EOF 'Atribuí o nome RS para o RecordSet com as palvras proibidas.
 Var_texto = Replace(Var_texto, RS("campo_com_a_palavra_proibida"), "******")
 RS.MoveNext
Wend

Sugiro também uma pesquisa para ver toda a sintaxe e opções da função Replace, uma vez que vc deverá tratar todas as ocorrências independente de estar maiuscula ou minuscula.

Erro 500 é um erro "genérico", vai em "Ferramentas/Opções da Internet", na guia "Avançadas" e desmarque a opção "Mostrar mensagens de erros HTTP amigáveis"

Pelo que vi a função retorna 0 ou 1, e vc deve verificar isso, ficaria +/- assim:

'Compara se as Senha são iguais

if Request.Form("senha") <> Request.Form("senha2") then

 Response.Write("Senha não confirmada")

elseIf ValidaCNPJ(Request.Form("cnpj")) <> 1 Then

 Response.Write("O CNPJ Digitado não é válido!")

Else

'Grava o q está no Formulário em uma variável

vbase=Request.Form("base")

vcnpj=Request.Form("cnpj")

vrazaosocial=Request.Form("razaosocial")

vendereco=Request.Form("endereco")

vnumero=Request.Form("numero")

vcomplemento=Request.Form("complemento")

vbairro=Request.Form("bairro")

vcidade=Request.Form("cidade")

vestado=Request.Form("estado")

vcep=Request.Form("cep")

vresponsavel=Request.Form("responsavel")

vemail=Request.Form("email")

vsenha=Request.Form("senha")



Dim conObj

Dim SQL

Set conObj = Server.CreateObject("ADODB.Connection")

conObj.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DBMAX/DBMAX.mdb") & ";"



SQL = ("INSERT INTO CADASTRO(BASE,CNPJ,RAZAOSOCIAL,ENDERECO,NUMERO,COMPLEMENTO,BAIRRO,CIDADE,ESTADO,CEP,RESPONSAVEL

,EMAIL,SENHA)values('"&vbase&"','"&vcnpj&"','"&vrazaosocial&"','"&vendereco&"','"&vnumero&"','"&vcomplemento&"','"&vbairro&"','"&vcidade&"','"&vestado&"','"&vcep&"','"&vresponsavel&"','"&vemail&"','"&vsenha&"')")

conObj.execute(SQL)



Response.Redirect("../index.asp")



End If

End If

Cara esplique melhor sua duvida.

Cara, no código que tinha postado era uma função, vc só da o texto, independente de ser do BD ou de um Formulário. E só chamar a função passando o parametro.
Por exemplo vc faria:

<%Texto = BB(Texto)
Response.Write Texto%>

Só mais uma dica: coloque todos os replaces dentro dessa função, isso irá te facilitar o "transporte" dessa função.

Uma pergunta, a parte de "QUOTE" e "CODE" vc já fez?

Uma coisa:

Set conCadLivro =
Server.CreateObject("ODADB.connection")
Set recLivro =
Server.CreateObject("ODADB.Recordset")

Eu não conheço, sei que é:

Set conCadLivro = Server.CreateObject("ADODB.connection")
Set recLivro = Server.CreateObject("ADODB.Recordset")

A quebra de linha entre o Set e o Objeto em si pode ter gerado esse 1º erro.

JavaScript? Na seção de ASP?

Por favor preste um pouco mais de atenção, não repita esse erro, pois podera acarretar em Advertência.


Movido

Qual é o erro?

VC pode usar o server.mapPath("caminho") para égar o caminho fisico.

Aparenta ser erro de digitação, verifique no seu bd se o nome do campo é realmente "opcao".

Cara, completamente fora, postar duvida na Avaliação de Sistemas, sendo que o fórum possui sala específica para sua duvida.
Outra, colocar duvida como enquete.

Vou mover para a seção correta e editar, mas leia as regras que estão no inicio do Fórum, assim vc estará evitando futuras advertencias.

Com frames vc tem n "janelas" agrupadas em uma, isso não permite uma fácil integração, no ASP, dos scripts carregados neles, além de que 1 variável criada em 1 dos Scripts não é válida para o outro (o valor não "passa" de um frame para o outro).
Usando SSI vc terá 1 arquivo que carrega outros internamente, com isso uma variável criada em 1 deles existe (caso vc não a destrua) até o fim do processamento de todo o Script.

Erro nos Includes?

Os Includes em sí são confiaveis, os erros que vc deve ter visto eram erros internos do script que estava sendo inserido.

Uma dica, use sempre arquivos .asp para serem incluidos, pois arquivos com outras extensões (.inc, .txt, etc) podem ser visualizados pelo browser sem serem interpretados.

Como vc está usando ADODB.RecordSet vc pode usar a propriedade Count. Seria +/- assim

Total = rsUser1.Count

Tente com esse

Set rsUser1 = Server.CreateObject("ADODB.Recordset")

sqlUser1 = "SELECT * FROM usuarios WHERE login = '"&login&"'"

rsUser1.Open sqlUser1,Conn

tot = rsUser1.Count,3, 1

Esqueci que deveria informar como os cursores do RecordSet deveriam ser ajustados.

Tente:

<a href="noticia.asp?id=<%=Cint(rs("id"))+1%>">Próxima</a>

Para você acabar com isso vc deve fazer a substituição da ' (aspa simples) por '' (duas Aspa Simples). Isso fará com que a SQL interprete que vc quer que tenha uma ' no texto a ser localizado.
Ficaria +/- assim:

Dim usuario
Dim senha
usuario = Replace(request.querystring("usuario"),"'", "''")
senha = Replace(request.querystring("senha"),"'", "''")

FAZ A VERIFICAÇÃO NO MDB

if verifica.bof Then
NÃO LOGADO
else
LOGADO

No seu RecordSet vc coloca .MoveLast

<a href="noticia.asp?id=<%=rs.MoveLast%>">Última</a>

Posta seu código.

Tente com esse:

<% Response.Buffer = True %>

<!--#include file="conectar.asp"-->

<%

AbreConexao

id = request.querystring("id")

SQL = "SELECT * FROM noticias WHERE ID =" & id & " ORDER BY ID DESC"

Set Rs = Server.CreateObject("ADODB.Recordset") 

Rs.Open SQL, ConStr, 3, 3

assunto = Rs("assunto")

noticia = Rs("noticia")

data = Rs("data")

user = Rs("user")

email = Rs("email")

%>

<a href="noticia.asp?id=<%=Cint(rs("id"))+1%>">Próxima</a><p>

<a href="noticia.asp?id=<%=Cint(rs("id"))-1%>">Anterior</a><p>

SQL2 = "SELECT Top 1 ID FROM noticias ORDER BY ID DESC"

Set RsUltimo = ConStr.Execute(SQL2)

<a href="noticia.asp?id=<%=RsUltimo("ID")%>">Última</a><p>

RsUltimo.Close

Set RsUltimo = Nothing

Faz a soma antes de formatar. Qualquer função de formatação de numero o transforma em string.

Qual é o componente de Upload que vc está usando?

Em alguns componentes vc pode barrar direto, eles já possuem propriedade para isso, em outros é só fazer um IF pegando a FileExt e comparando.