Jump to content


Info_Tec's Content

There have been 186 items by Info_Tec (Search limited from 29/03/2023)



Ordernar por                Order  

#352322 Problemas Com Criação De Pastas...

Posted by Info_Tec on 28/04/2004, 12:25 in ASP

Qual é o erro?

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



#351887 Somar Treis Button Radio, Somar Treis Button Radio

Posted by Info_Tec on 27/04/2004, 18:29 in Javascript / DOM / AJAX / ECMAScript

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



#351629 Oque Esta Faltando Nesta Conecção ?

Posted by Info_Tec on 27/04/2004, 13:47 in ASP

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.



#351583 Funcionamento Do Bbcode

Posted by Info_Tec on 27/04/2004, 12:41 in ASP

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?



#350952 Banco De Dados

Posted by Info_Tec on 26/04/2004, 18:49 in ASP

Cara esplique melhor sua duvida.



#350923 Validação De Cnpj

Posted by Info_Tec on 26/04/2004, 18:17 in ASP

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



#350674 Problemas Com Criação De Pastas...

Posted by Info_Tec on 26/04/2004, 15:05 in ASP

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"



#350670 Palavras Proibidas

Posted by Info_Tec on 26/04/2004, 15:03 in ASP

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.



#350627 Palavras Proibidas

Posted by Info_Tec on 26/04/2004, 14:39 in ASP

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



#347547 "target=_parent"

Posted by Info_Tec on 22/04/2004, 16:24 in ASP

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.



#347384 Endereco No Bd

Posted by Info_Tec on 22/04/2004, 13:39 in ASP

No lugar de:

response.Redirect("default.asp")

Use:
response.Redirect(RS("Pasta"))




IPB Skin By Virteq