Espartaco

Fiz um código para pegar preços, nomes e descrições de um site qualquer na WEB plo ASP HTTP CON e inserir no meu banco de dados esses valores. O Código é esse (devidamente reduzido) Set HttpObj = Server.CreateObject("AspHTTP.Conn") HTTPObj.Url = "http://loja.com.br/produtos.asp?categoria=1" Resultados = HTTPObj.GetURL Set HttpObj = nothing A parte do tratamento do resultados deu certo, bem como inserção no banco de dados. Só não consigo fazer ele dar um loop para ir pegando todos os produtos, por exemplo, da categoria escolhida. Fiz assim <%for a = 0 to ubound (arrProds) 'pega o titulo intPos1 = 29+Instr (1, Resultado, "class=EstNomeProd vAlign=top>", 1) intPos2 = Instr (intPos1, Resultado, "</TD>", 1) strTituloItem = mid (Resultado, intPos1, intPos2-intPos1) 'aqui iriam as intruções SQL para cadastro no meu Banco de dados <%next%> Espártaco Vettorazzi Ponta Grossa - Pr

Fiz um esqueminha que pega os produto de um banco de dados para jogar na vitrine flash Ele pega s variáveis nome, preço, link e imagem Tudo está funcionando perfeitamente, menos a parte que carrega a imagem System.useCodepage = true loadVariablesNum ("lpfalsh.asp", 0); { img = imagem _root.createEmptyMovieClip("carregador", i); loadMovie("produtos/T1501.jpg", carregador); carregador ._x = 32,5; carregador._y = 81,2; carregador ._xscale = 100; foto._yscale = 100; } Meu problema é não saber como é a sintaxe para jogar a variável "imagem" no lugar do T1501.jpg Tipo, tentei loadMovie("produtos/+imagem", carregador); loadMovie("produtos/"+imagem+"", carregador); loadMovie("produtos/"+imagem, carregador); Parece ser simples, já li a ajuda do flash, tutoriais na net, mas sempre dá erro de sintaxe ou não lê a variável. Alguém me ajuda? Espártaco Vettorazzi

Usa algo do tipo <select name=discos <%if rs.eof then%>disabled<%end if%>>

Explica direito isso aí. Tá parecendo erro de sintaxe nas intruções sql....

Tenho um sistema de afiliados no meu site e gostaria também de despinibilizar banners em flash. Cada usuário cadastrado no programa tem uma área onde copia os códigos, tipo script src www.meusite.com/exibirbanner.asp?banner=x&afiliado=y Quando ele cola no site dele, o link vai com os dados (banner e id) O problema é que quando elle gera o código no painel, eu queria que o flash pegasse a id do usuario e do banner da querystrinh e jogasse no link doa rquivo swf, para ele apontar para, por exemplo www.meusite.com/afiliados.asp?afiliado=y Alguém ajuda? Espártaco Vettorazzi Ponta Grossa -PR

Tinha uma base em um conhecido hospedeiro da internet. Eles tiveram um problema no servidor SQL Server e tiveram que formatar a máquina. As bases, tabelas, dados, etc foram salvas. Eles mudaram o login e senha e a partir disso começa a dar um erro nos meus ASP, mesmo tendo atualizado o script com novos dados de conexão Me disseram para mudar o owner, mas só disseram isso. Alguém pode me explicar como fazer?

Por que tu não usa form com nomes diferentes, greados tb dinamicamente ao invés de somente um form com vários botões Ou Usa um CheckBox...

Trabalho de auxiliar de administrador de redes. Possuímos 3 servidores Linux, 1 Servidor Windows 2000 e 56 máquinas clientes. Temos um quadro de 2,5 m x 2,5 m com a planta baixa da empresa, om leds nas posições das máquinas (leds verdes para clientes, leds vermelhos para clientes e leds amarelos para Hubs/Switchs). Pois bem, gostaria de saber commo poderia fazer o sistema operacional ficar scaneando a rede a cada períodos determinados e determinar como apagar ou acender os leds das máquinas on/off-line. Será que é possível? Espero que alguém tenha alguma luz Abraços Espártaco Ponta Grossa - PR

Erro: This may be a limitation of the provider or of the selected cursortype. O banco de dados é mySQL Código base da conexão com o banco de dados da paginação Alguém sabe porque??? Como devo setar o cursor??? Abraço!!!

Pô, valeu, funcionou direitinho Obrigado

Estou utilizando o FSO para criar pastas, mas queria que, quando uma pasta de mesmo nome já existisse, ele apresentasse uma mensagem dizendo que já existe. Alguém ajuda?

Já tentei com dsn e sem dsn, eis os erros que aparecem erro - 2147467259[Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado - 424Objeto necessário

estou fazendo uma loja virtual , e uso xmlhttp para cálculo de frete dos correios. O problema que o site do correio retorna a moeda com . (ponto) Ex: 61.8, que era pra ser 61,80. O resto da loja eu configurei para formatar valor 00,00, mas se uso o formatnumber na resposta docorreios, em vez de ficar 61,80, fica 618,00. E se somo o valor da compra, por exemplo, 100,00 com o 61.8, fica 100,618 Aguardo ajuda

Dá uma olhada nessas lojas A primeira eu consertei toda e a segunda omente tirei bugs e impmantei sistema de cores e tamanhos http://www.doctordrum.com.br/defaultz.asp http://www.petdobred.com.br/loja

Posso perfeitamente desenvover um sistema como esse, aliás, já fiz isso em um sistema interno do local onde trabalho, onde cada usuário tem um espaço para backup, e esse espaço é separado por pastas com o nome do mesmo (o usuário), e essa pasta é criada automaticamente. Tendo em vista sua falta de educação com o pessoal do fórum, irei cobrar pelo serviço.

Olá estou com um problema dos grandes. Tenho em meu banco de dados um campo chamado "Prox_vencimento". Pois bem, quero que na minha página de consultas, seja mostrado apenas os usuários em que o faltam 8 dias ou menos para o próximo vveencimento tipo assim: select * from usuários where datediff("d",Cdate(prox_vencimento), date()) <= 8 order by .... O problema é que o campo "prox_vencimento é string (texto), o date() é data(!!)e quero que me retorne uma integer...(8) já tente Cdate(variaveldobd), str(date(), mas não funciona Não posso transformar o campo do bd em data/hora porque o servidor tá configurado pra inglês (mm/dd/aaa) Alguém pode me dar uma luz? Espártaco

<% Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open "Data Source=C:\pasta\database.mdb;Provider=Microsoft.Jet.OLEDB.4.0;" strQ = "SELECT * FROM UF ORDER BY nome ASC" Set objRS = objCon.Execute(strQ) Response.Write "<SELECT NAME='estado'>" Response.Write "<OPTION VALUE='' SELECTED></OPTION>" If Not objRS.EOF Then While Not objRS.EOF Response.Write "<OPTION VALUE='" & objRS("nome") & "'" If Request("estado") = objRS("nome") Then Response.Write " selected" Response.Write ">" & objRS("nome") & "</OPTION>" objRS.MoveNext Wend End If Response.Write "</SELECT>" objCon.Close Set objRS = Nothing Set objCon = Nothing %> Nas linhas 2 e 3 é feita a conexão com o banco de dados. Logo em seguida, nas linhas 5 e 6, são capturados todos os registros da tabela UF pela ordem crescente do nome Na linha 8 inserimos o código HTML que inicia a criação de um ComboBox Inserimos então uma opção em branco pré-selecionada na linha 9 Na linha 11, verificamos se foram encontrados os registros Criamos um loop na linha 12 para ler todos os registros encontrados Na linha 13 criamos uma opção e inserimos o valor da mesma A linha 14 serve para que possamos definir uma opção a ser selecionada por padrão Neste caso, quando for igual a opçao vinda de um formulário anterior ou através da URL. Me refiro ao método Request. Na linha 15 escrevemos o titulo e finalizamos a opção Na linha 16 vamos para o proximo registro Na linha 17 finalizamos o Loop. Na linha 20 fechamos o combobox Fechamos a conexão na linha 22, e abaixo liberamos as variaveis da memória. O código acima ira gerar um ComboBox, para gerar um ListBox, como mostra a figura do topo, basta alterar a linha 8, incluindo o código em vermelho, como mostra abaixo: Response.Write "<SELECT NAME='estado' SIZE=10>" Espero que este exemplo lhe seja útil. Retirei do superasp.com.br, por Fabiano Dias fabiano@superasp.com.br

Obrigado amigo Funcionou, valeu pela ajuda

Olá pessoal, Muitas vezes já tive dúvidas na minha caminhada do ASP, e a maioria delas foi sanada aqui. Por isso recorro ao fórum mais uma vez. Meu servidor desabilitou o Parent Paths, por isso não posso mais usar o ..\..\meuinclude.inc Andei pesquisando na net e li sobre o include virtual, que me pareceu ser a solução mis viável. Segui as dicas e tutoriais, ma sem sucesso. Essa é +- a estrutura das minhas pastas Pasta Raiz | albuns (aqui tá o meuinclude.inc) | fotos1 - fotos2 - fotos3 | | | pag1.asp pag1.asp pag1.asp pag2.asp pag2.asp pag2.asp pag3.asp pag3.asp pag3.asp pag4.asp pag4.asp pag4.asp nas pag.asp está inserido o include. Antes ficava assim: <!--#include="..\..\meuinclude.inc"--> Mas dá o erro por causa do Parent Path Gostaria de saber a lógica e de como ficaria o include virtual nessa mesma estruturação, com o arquivo a ser incluído duas pastas acima da págia asp em questão De antemão, gadeço muito a ajuda Obrigado Espártaco Ponta Grossa - PR

Alguém aí lembra ou conhece o comando para remover caracteres da direita do texto exemplo: num campo do banco de dados, está inserido, por exemplo, xxx/01/default.asp e quero que ele imprima na tela apenas o xxx/01 (removeria os últimos 11 caractres... Alguém pode me ajudar???

eu achava que esse fórum é baseado na teoria de uma mão lava a outra. Sendo assim, faço pra você de graça, te ajudo e aproveito para praticar e divulgar meu trabalho Entre em contato por contato@vetorhost.com e explique melhor o que quer

O que você pode fazer é tentar achar um servidor Windows que rode PHP, pois o acces vai rodar normalmente

O componente CDONTS está deixando de ser usado, inclusive o Windows 2003 Server não suporta mais ele, que deu lugar ao CDOSYS. Você pode usar o componente AspMAil, que é bem fácil de utilizar. User esse código que fiz <% unome=request.form("txtNome") Empresa=request.form("txtEmpresa") CNPJ=request.form("txtCNPJ") End=request.form("txtEnd") Comp=request.form("txtComp") Num=request.form("txtNum") Bair=request.form("txtBair") CEP=request.form("txtCEP") Cid=request.form("txtCid") UF=request.form("txtUF") uemail=request.form("txtEmail") DDDFone=request.form("txtDDDFone") Telefone=request.form("txtTelefone") DDDFax=request.form("txtDDDFax") Fax=request.form("txtFax") Msg=request.form("txtMsg") smtp = "mail.seudominio.com.br" snome = "seunome" semail = "seuemail" Set Send = Server.CreateObject("SMTPsvg.Mailer") Send.FromName = unome Send.FromAddress= uemail Send.RemoteHost = smtp Send.AddRecipient snome, semail Send.Subject = "Assunto da Mensagem Aqui" Send.BodyText = "Mensagem enviada pelo Formulário."& VBCrLf & VBCrLf & "Nome: " & unome & VBCrLf & "E-mail: " & uemail & VBCrLf & VBCrLf & "Empresa " & empresa & VBCrLf & "CNPJ " & cnpj & VBCrLf & "Complemento: " & comp & VBCrLf & "Número: " & num & VBCrLf & "Bairro: " & bair & VBCrLf &"CEPo: " & cep & VBCrLf & VBCrLf &"Cidade: "& cid & VBCrLf & "CUF: "&uf& VBCrLf &"DDD: "&dddfone& VBCrLf &"Telefone: "& telefone & VBCrLf &"Telefone: "& telefone & VBCrLf &"DDD Fax: "& fax & VBCrLf & VBCrLf &"Mensagem: "& msg & VBCrLf &" Send.SendMail %>

Pelo outlook, se não for impossível, deve ser muito difícil. O melhor é você criar uma segunda págia, tipo "envio_email.asp" com algum componente, de preferência AspMail e formatar o corpo da mensagem com o HTML.

Utilize o código mais ou menos assim: DBQ = "c:/home/SEUDOMINIO.COM.BR/db/seubanco.mdb" Set Conexao = CreateObject("ADODB.CONNECTION") conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & DBQ