- Fórum WMO
- → Info_Tec's Content
Info_Tec's Content
There have been 186 items by Info_Tec (Search limited from 29/03/2023)
#351887 Somar Treis Button Radio, Somar Treis Button Radio
Posted by Info_Tec on 27/04/2004, 18:29 in Javascript / DOM / AJAX / ECMAScript
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
Eu não conheço, sei que é:Set conCadLivro =
Server.CreateObject("ODADB.connection")
Set recLivro =
Server.CreateObject("ODADB.Recordset")
A quebra de linha entre o Set e o Objeto em si pode ter gerado esse 1º erro.Set conCadLivro = Server.CreateObject("ADODB.connection")
Set recLivro = Server.CreateObject("ADODB.Recordset")
#351583 Funcionamento Do Bbcode
Posted by Info_Tec on 27/04/2004, 12:41 in ASP
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?
#350923 Validação De Cnpj
Posted by Info_Tec on 26/04/2004, 18:17 in ASP
'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
#350670 Palavras Proibidas
Posted by Info_Tec on 26/04/2004, 15:03 in ASP
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 WendSugiro 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.
- Fórum WMO
- → Info_Tec's Content
- Privacy Policy
- Regras ·