Jump to content


KBR's Content

There have been 11 items by KBR (Search limited from 30/03/2023)


Ordernar por                Order  

#1010565 Verificar Sintaxe Do Email Antes De Cadastar

Posted by KBR on 27/05/2011, 12:13 in ASP

Utilize o on error resume next para tratar esse tipo de erro.



#1010564 Remover Caracteres Entre Parenteses

Posted by KBR on 27/05/2011, 12:08 in ASP

Galera, tenho o seguinte texto em um campo no banco de dados:

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

Olá pessoal, estou com o seguinte problema.

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

Galera,

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&aacute;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&aacute;ria Sonho Meu" width="261" height="111" border="0" title="Imobili&aacute;ria Sonho Meu" /></a>
            
    </div>
	    
        <div id="topotelefones">
        
        	<img src="_img/spacer.gif" height="30" width="30" alt="" /><br /><strong>Imobili&aacute;ria Sonho Meu</strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<strong>Fone</strong> 11 4751-5065&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<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&aacute;gina Inicial</a></li>
		        <li><a href="?s=quemsomos">Quem Somos</a></li>
		        <li><a href="?s=busca">Busca por Im&oacute;veis</a></li>
	    	    <li><a href="?s=cadastrar">Cadastrar Im&oacute;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&oacute;veis em destaque.</strong><br />
  Em desenvolvimento!</div> 
</div>

    
  <div id="divisor">&nbsp;</div>
    
    <div id="menuprincipal"> <span class="titulomenu">Busca R&aacute;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&ecirc;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)">&lt; Voltar</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="javascript:window.print()"># Imprimir</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="#topo">^ Topo</a></div>
<div id="rodapeesquerda"> <span class="rodapedestaque"><strong>Sonho Meu Im&oacute;veis</strong></span><span class="rodapedestaque2"><strong><br />
  <br />
  Endere&ccedil;o</strong></span><br />
    Rodovia Indio Itibiri&ccedil;&aacute;, 15.908 - Palmeiras de S&atilde;o Paulo<br />
    Suzano - S&atilde;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!



#1005280 Mostrar Mais Vendidos

Posted by KBR on 06/11/2010, 09:37 in ASP

Galera,

Seguinte, tenho uma tabela com os campos

id | id_titulo | data

Gostaria de saber qual select devo usar pra mostrar os mais vendidos, baseando no campo id_titulo, o que aparece mais vezes.

No aguardo.

Abraços!



#1004798 Sistema De Importação De Dados

Posted by KBR on 21/10/2010, 19:00 in ASP

Ainda não deu certo.

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

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.

É uma aplicação que eu estou desenvolvendo e o banco é MySql.

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

Galera,

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

Pessoal, boa tarde.

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

Olá galera,

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

Olá,

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.




IPB Skin By Virteq