- Fórum WMO
- → KBR's Content
KBR's Content
There have been 11 items by KBR (Search limited from 27/04/2023)
#1010564 Remover Caracteres Entre Parenteses
Posted by KBR on 27/05/2011, 12:08 in ASP
Texto qualquer (detalhe qualquer)
Outro texto qualquer (com outro detalhe qualquer)
Como faço para exibir o texto sem os parenteses e sem o conteudo dentro dos mesmos, ficando:
Texto qualquer
Outro texto qualquer
Agradeço à quem puder ajudar.
#1009196 Pegar Variável De Menor Valor
Posted by KBR on 13/04/2011, 10:12 in ASP
Possuo 3 variáveis, sendo:
a = 10
b = 9
c = 15
Preciso de uma função onde o sistema consiga mostrar sempre a menor variável, ou seja, no caso acima ele mostraria somente o resultado da b.
Alguém faz idéia de como fazer? Creio que teria de utilizar vetor.
Abs.
#1007068 Primeiro Layout Em Tableless
Posted by KBR on 20/01/2011, 15:29 in HTML, CSS e Metodologias
Faço centenas de websites por ano e até então estava desenvolvendo e recortando meus layouts em Tabelas, devido não ter tempo de estudar a tecnologia CSS. Pois bem, fiz meu primeiro layout em CSS, você podem verificar se essa é a maneira correta e se está tudo de acordo?
Endereço do layout
www.shocklan.com.br/layout
Depois de montado testei no IE, FF e Chrome e nada se distorceu, tudo funcionou. Gostaria mesmo que fosse analisado a estrutura que eu criei, se está tudo certo.
Também fiz a validação no W3C
Link aqui
Código HTML da página
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Imobiliária Sonho Meu | 11 4751-5065</title> <link href="css2.css" rel="stylesheet" type="text/css" /> </head> <body> <a name="topo"></a> <div id="topo"> <div id="topoprincipal"> <div id="topologotipo"> <a href="/"><img src="_img/logotipo.png" alt="Imobiliária Sonho Meu" width="261" height="111" border="0" title="Imobiliária Sonho Meu" /></a> </div> <div id="topotelefones"> <img src="_img/spacer.gif" height="30" width="30" alt="" /><br /><strong>Imobiliária Sonho Meu</strong> <strong>Fone</strong> 11 4751-5065 <strong>Fone</strong> 11 4742-6264 </div> <div id="topomenu"> <img src="_img/spacer.gif" height="11" width="30" alt="" /> <ul id="menuhor"> <li><a href="/">Página Inicial</a></li> <li><a href="?s=quemsomos">Quem Somos</a></li> <li><a href="?s=busca">Busca por Imóveis</a></li> <li><a href="?s=cadastrar">Cadastrar Imóvel</a></li> <li><a href="?s=faleconosco">Fale Conosco</a></li> </ul> </div> </div> </div> <br /> <div id="corpo"> <div id="corpoprincipal"> <div id="playerdestaques"><img src="_img/spacer.gif" height="9" alt="" /><br /><iframe width="640" height="233" frameborder="0" scrolling="no" src="player.asp">Player</iframe></div> <br /> <div id="defaultdestaques"><strong>Imóveis em destaque.</strong><br /> Em desenvolvimento!</div> </div> <div id="divisor"> </div> <div id="menuprincipal"> <span class="titulomenu">Busca Rápida</span><img src="_img/menu-titulo.jpg" width="293" height="14" alt="" /><br /> Em desenvolvimento<br /> <br /> <br /> <span class="titulomenu">Busca por Referência</span><img src="_img/menu-titulo.jpg" width="293" height="14" alt="" /><br /> Em desenvolvimento<br /> <br /> <br /> <span class="titulomenu">Ache em 1 Clique</span><img src="_img/menu-titulo.jpg" width="293" height="14" alt="" /><br /> Em desenvolvimento </div> </div> <div id="rodape"> <div id="rodapelinha"> <img src="_img/spacer.gif" width="10" height="30" alt="" /><br /> <a href="javascript:history.back(-1)">< Voltar</a> <a href="javascript:window.print()"># Imprimir</a> <a href="#topo">^ Topo</a></div> <div id="rodapeesquerda"> <span class="rodapedestaque"><strong>Sonho Meu Imóveis</strong></span><span class="rodapedestaque2"><strong><br /> <br /> Endereço</strong></span><br /> Rodovia Indio Itibiriçá, 15.908 - Palmeiras de São Paulo<br /> Suzano - São Paulo - 08630-000<br /> <span class="rodapedestaque2"><strong>Contatos</strong></span><br /> Fones: (11) 4751-5065 / (11) 4742-6264<br /> E-mail: contato@imobiliariasonhomeu.com.br </div> <div id="rodapedireita"><img src="_img/rodape-logotipo.png" alt="Imobiliária Sonho Meu" title="Imobiliária Sonho Meu" /><br />Todos os direitos reservados<br />All Rights Reserved<br />© <%=year(now())%></div> </div> </body> </html>
Código CSS
/*##### Id's #####**/ body{ text-align:center; font-family:Arial; margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; background: url(_img/fundo-topo.jpg); background-repeat: repeat-x; } #topo{ margin:0 auto; width: 100%; border-bottom:1px #CCCCCC solid; } #topoprincipal{ margin:0 auto; width: 980px; height: 111px; background: url(_img/fundo-topo.jpg); background-repeat: repeat-x; } #topologotipo{ float: left; width: 261px; height: 111px; } #topotelefones{ float: right; width: 719px; height: 77px; text-align: right; font: 8pt Arial, Helvetica, sans-serif; color: #C49A00; } #topomenu{ float:right; width: 719px; height: 34px; background:url(_img/fundo-menu.png); text-align:center; overflow:hidden; } #corpo{ margin:0 auto; width: 980px; overflow: hidden; } #corpoprincipal{ float: left; width: 666px; padding-bottom:1000em; margin-bottom:-999.5em; } #divisor{ float: left; width: 21px; } #menuprincipal{ float: right; width: 293px; padding-bottom:1000em; margin-bottom:-999.5em; text-align:left; } #rodape{ margin:0 auto; width: 980px; clear:both; } #rodapelinha{ width: 100%; height: 60px; background:url(_img/rodape-linha.png); background-repeat:no-repeat; background-position:bottom; text-align:right; font: 8pt Arial, Helvetica, sans-serif; color:#000; font-weight:bold; } #rodapelinha a{ text-decoration:none; font: 8pt Arial, Helvetica, sans-serif; color:#000; font-weight:bold; } #rodapeesquerda{ float:left; width: 813px; text-align:left; font: 8pt Arial, Helvetica, sans-serif; color:#333; line-height:1.5; height:170px; overflow:hidden; } #rodapedireita{ float:right; width: 167px;; text-align:center; font: 8pt Arial, Helvetica, sans-serif; color:#333; line-height:1.3; height:170px; overflow:hidden; display:table-cell; vertical-align:bottom; } #playerdestaques{ width: 658px; height:251px; background:url(_img/playerdestaque.jpg); margin:0 auto; } #defaultdestaques{ width: 620px; height:250px; background:url(_img/defaultdestaques.jpg); background-repeat:repeat-x; padding:10px; margin:0 auto; text-align:left; } /*##### Classes #####**/ .rodapedestaque{ font: 10pt Arial, Helvetica, sans-serif; color:#C49A00; } .rodapedestaque2{ font: 10pt Arial, Helvetica, sans-serif; color:#333; } .titulomenu{ font: 22pt arial narrow; letter-spacing:-1px; color:#C49A00; font-weight:bold; } /*##### Menu Horizontal #####**/ #menuhor { margin: 0; padding:0; font: 8pt arial; } #menuhor li { list-style: none; display: inline; padding:0; } #menuhor li a { text-decoration:none; margin-left:28px; margin-right:28px; } #menuhor li a:link { color: #000; text-decoration:none; } #menuhor li a:visited { color: #000; text-decoration:none; } #menuhor li a:hover { border-bottom:2px solid #FFD62F; color: #666; text-decoration:none; } #menuhor li a:active { color: #666; text-decoration:underline; }
Valeu pessoal, abraços!
#1004798 Sistema De Importação De Dados
Posted by KBR on 21/10/2010, 19:00 in ASP
Vou explicar passo a passo o que estou fazendo para que possa verificar onde estou errando. O que eu teria que fazer aqui seria um array dento de outro array, porque primeiro preciso dividir as linhas e depois dividir os campos de cada linha. Segue abaixo meu código... o resultado vou postar como se meu arquivo de importação tivesse 3 linhas/registros.
importacao = request("importacao") importacao = replace(importacao," ","|") importacao = replace(importacao,"||||||||","|") importacao = replace(importacao,"|||||||","|") importacao = replace(importacao,"||||||","|") importacao = replace(importacao,"|||||","|") importacao = replace(importacao,"||||","|") importacao = replace(importacao,"|||","|") importacao = replace(importacao,"||","|") importacao = replace(importacao,chr(13),"<br>") importacao = split(importacao,"<br>") for each produto in importacao response.write produto&"<br>" next
RESULTADO
000001|4.2500|6.4000|1.650|1.950|2.550|-3.0000
000002|1.7000|2.4000|2.260|2.470|2.580|-3.0000
000003|0.5900|0.9000|8.600|9.440|10.780|3.0000
Até aí maravilha, consegui dividir as linhas. Agora preciso capturar os campos, do campo1 ao campo7, ou seja, criar um outro array dividindo pelo |
importacao = request("importacao") importacao = replace(importacao," ","|") importacao = replace(importacao,"||||||||","|") importacao = replace(importacao,"|||||||","|") importacao = replace(importacao,"||||||","|") importacao = replace(importacao,"|||||","|") importacao = replace(importacao,"||||","|") importacao = replace(importacao,"|||","|") importacao = replace(importacao,"||","|") importacao = replace(importacao,chr(13),"<br>") importacao = split(importacao,"<br>") for each produto in importacao campo = split(produto,"|") codigo = campo(0) preco1 = campo(1) next
ERRO
Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A0009)
Subscrito fora do intervalo: '[number: 1]'
/89embalagens.com.br/teste.asp, line 27
Onde a linha 27 é preco1 = campo(1)
Se eu deixo somente o campo(0) ele não dá erro e me retorna somente o primeiro campo de cada registro, mas do 1 em diante ele dá esse erro.
Alguém sabe o que pode ser?
Abraços e obrigado.
Resolvi da seguinte maneira
Set upl = Server.CreateObject("SoftArtisans.FileUp") upl.Path = "e:\vhosts\\httpdocs\__upl\" upl.Save arquivo="dados.txt" upl.form("Arquivo").SaveAs "e:\vhosts\\httpdocs\__upl\"&arquivo set confile = createObject("scripting.filesystemobject") set fich = confile.OpenTextFile(server.mappath("../__upl/dados.TXT")) conta=0 Do while not fich.AtEndOfStream conta=conta+1 Linha = fich.ReadLine() Linha = replace(Linha," ","|") Linha = replace(Linha,"||||||||","|") Linha = replace(Linha,"|||||||","|") Linha = replace(Linha,"||||||","|") Linha = replace(Linha,"|||||","|") Linha = replace(Linha,"||||","|") Linha = replace(Linha,"|||","|") Linha = replace(Linha,"||","|") arrayLinha = split(linha, "|", -1, 1) if ubound(arrayLinha)=6 then codigo = int(arrayLinha(0)) custo = replace(formatnumber(replace(arrayLinha(1),".",","),2),",",".") venda = replace(formatnumber(replace(arrayLinha(2),".",","),2),",",".") revenda = replace(formatnumber(replace(arrayLinha(3),".",","),2),",",".") promocional = replace(formatnumber(replace(arrayLinha(4),".",","),2),",",".") normal = replace(formatnumber(replace(arrayLinha(5),".",","),2),",",".") estoque = cdbl(replace(arrayLinha(6),".0000","")) sql = "update tab_produtos set valor='"&normal&"', valor_promocional='"&promocional&"', valor_custo'"&custo&"', valor_venda='"&venda&"', valor_revenda='"&revenda&"' where codigopadrao="&codigo&"" connect.execute(sql) 'response.write sql&"<br>" 'response.write codigo&"<br>" else if conta=1 then session("msg")= "<script language = javascript>alert('Erro!')</script>" response.redirect "?" end if end if loop fich.close() session("msg")= "<script language = javascript>alert('Valores atualizados com sucesso!')</script>" response.redirect "?"
#1004743 Sistema De Importação De Dados
Posted by KBR on 20/10/2010, 13:11 in ASP
É uma aplicação que eu estou desenvolvendo e o banco é MySql.Como as colunas são de tamanho fixo, o negócio é usar Mid. Se a importação não for parte do sistema, mas só uma coisa que você precise fazer agora, dependendo do banco, ele pode ter algum assistente de importação que poupe você do trabalho de escrever o código. O Access e o SQL Server eu sei que tem.
Como eu usaria MID? Eu não teria que usar um split e um array antes?
Abraços.
#1004737 Sistema De Importação De Dados
Posted by KBR on 20/10/2010, 11:19 in ASP
Tenho o seguinte arquivo de texto com 07 colunas com valores para importar para minha tabela com separação por limitação de texto.
Link para arquivo
O arquivo está no link acima. Como faço para separar esses dados e importar para minha tabela?
Uso MID, SPLIT?
No aguardo.
Obrigado.
#1003109 Webservice Asp
Posted by KBR on 31/08/2010, 18:09 in ASP
Vamos ver quem consegue me ajudar.
Estou precisando desenvolver um sistema de cálculo de frete com retorno automático pelo CEP. Já possuo o sistema funcionando dos Correios porém preciso implantar agora o sistema de uma transportadora que me disse para utilizar WebService para o retorno dos dados. O que acontece é que não sei usar esse tal WebService, alguém pode me ajudar?
Os dados são os seguintes:
1. Endereço
http://jadlog.com.br...?method=valorar
2. Parâmetros
vModalidade N(1) Modalidade do frete. Deve conter apenas números (tabela anexa)
Password A(8) Senha de acesso à área de Serviços on-line do site da JadLog
vSeguro VA(1) Tipo do Seguro “N” normal “A” apólice própria
vVlDec VA(20) Valor da Nota fiscal Ex: 100,00
vVlColeta VA(14) Valor da coleta negociado com a unidade JadLog. Ex. 10,00
vCepOrig VA(8) CEP de origem Ex.:02714020
vCepDest VA(8) CEP de destino Ex.:02714020
vPeso N(15) Peso Real em quilos Ex.: 13,23
vAltura N(15) Altura do pacote em centímetros
vLargura N(15) Largura do pacote em centímetros
vProfudidade N(15) profundidade do pacote em centímetros
vFrap VA(1) Frete a pagar no destino, “S” = sim “N” = não
vEntrega VA(1) Tipo de entrega “R” retira unidade JadLog, “D” domicilio
vCnpj VA(50) CNPJ do contratante
3. Retorno
XML no seguinte formato:
<?xml version="1.0" encoding="utf-8" ?>
<string xmlns="http://Jadlog.com.br...vice/services">
<Jadlog_Valor_Frete>
<versao>1.0</versao>
<Retorno></Retorno>
<Mensagem></Mensagem>
</Jadlog_Valor_Frete>
</string>
Onde:
Retorno Mensagem
-1 Acesso negado ou senha incorreta!
-2 Não existe tarifa para paramêtros solicitados
-3 Erro do Banco de Dados
-99 Erro indeterminado! Favor entrar em contato com o Suporte através do
email helpdesk@jadlog.com.br.
Valor do frete
Nem imagino por onde começar, tentei algumas coisas aqui, mas sem sucesso. O código modelo que me mandaram foi o seguinte:
http://dn.consultacpf.com/files/folders/asp_30_classico/entry5.aspx
Obrigado pessoal, quem puder ajudar, agradeço.
Att.,
#1000340 Input Text Com Submit Automático
Posted by KBR on 14/06/2010, 09:53 in Javascript / DOM / AJAX / ECMAScript
Estou precisando fazer o seguinte:
Tenho um input text com limite de 8 caracteres. Eu gostaria de uma função que ao digitar o 8º caracter eu não tenha que pressionar nenhum botão de submit, ou seja, eu digito 12345678 e no número 8 ele já dá o submit automático reconhecendo o que foi digitado nesse campo.
Alguém pode ajudar?
Abraços!
#1000198 String De Pesquisa Entre Número Inicial E Número Final
Posted by KBR on 10/06/2010, 11:39 in ASP
Vou tentar explicar detalhadamente o que eu preciso.
Tenho uma tabela com nome tab_cep onde contém os seguintes campos:
cep_inicial
cep_final
valor
Vamos simular uma inclusão
cep_inicial = 09310000
cep_final = 09310999
valor = R$25,00
A dúvida é a seguinte:
Como faço uma pesquisa para quando o internauta digitar o cep 09310730, por exemplo, ele me retornar o valor de R$25,00, sendo que não tenho esse valor cadastrado na tabela, porém tenho o campo inicial e final. Como poderia fazer isso?
Aguardo respostas e ajuda.
Abraços.
Galera,
Achei a solução
SQL= " SELECT * FROM login Where cep_inicial <= 09310730 AND cep_final >= 09310730"
Basta inverter o > por < e o < por >.
Abraços.
Valeu.
- Fórum WMO
- → KBR's Content
- Privacy Policy
- Regras ·