Alexandre_Ribeiro

Galera, alguém sabe como poderia obter o código HTML através de uma URL utlizando ASP? Estou querendo enviar email pelo cdonts, mas no atributo objCDOMail.Body teria que concatenar todo o codigo html; onde poderia simplificar utilizando o Inet do vb... mas no asp não tem esse componente =( Existe algum que faça isso? Com o visual basic seria assim: <% Dim objInet As Inet Set objInet = New Inet getEmailBody = objInet.OpenURL("http://www.servidor.com/email.asp?nome=teste&empresa=testando") Set objCDOMail = CreateObject("CDONTS.NewMail") objCDOMail.From = emailFrom objCDOMail.To = emailTo objCDOMail.subject = subject objCDOMail.mailFormat = mailFormat objCDOMail.BodyFormat = 0 objCDOMail.Importance = 1 objCDOMail.Body = getEmailBody objCDOMail.Send %>

Cara, essa sintaxe abaixo é mais simples: select * from tbTeste where codigo in (123,456,987,6541,123,456)

Cara, é isso que você tá precisando ?? <%if valor < 500 then%> <input type="radio" name="tipo" value="<%=pagto.getAttribute("nome_pagto")%>" disabled> <%else%> <input type="radio" name="tipo" value="<%=pagto.getAttribute("nome_pagto")%>"> <%end if%>

Fala GRANDE Holyspear!!! Tudo tranquilo contigo?? :D Faz essa alteração abaixo... e só lazer!! Response.Write "<a href=""#"" onclick=""topo();document.getElementById('ministracoes').src='palavras_bispo/" & rs.fields("link") & ".asp'"">" & rs.fields("titulo") & "</a><br/>" :D abraço, cara!!

Função para hora atual: response.write Time() Função para data e hora atual: response.write Now() Obs: A data vem do servidor e não da máquina local. Toda instrução ASP é escrita no lado servidor.

Cara, segue a sintaxe no ASP: sintaxe: FormatDateTime(now(),i) formatos: i=0 : 22/05/2002 09:11:00 i=1 : quarta-feira, 22 de maio de 2002 i=2 : 22/05/2002 i=3 : 09:11:00 i=4 : 09:11

Cara, acho que com esse trecho de código você desenrola o resto dentro do seu contexto: Criar cookie: valor = "teste" response.Cookies("nome_variavel") = valor dataExpira = DateAdd("d", 5, Now()) response.Cookies("nome_variavel").expires = MonthName(Month(dataExpira)) & " " & Day(dataExpira) & ", " & Year(dataExpira) Verificar se cookie é válido: if Request.Cookies("nome_variavel") = "teste" then response.write "Cookie validado com sucesso!" else response.write "Erro ao validar cookie!" end if

Galera, como poderia fazer uma função que receba um valor decimal (exp: 2,20) e arredonde o sempre pra cima(exp: resultado seria 3)??? grato, Alexandre

Galera, alguém já teve incompatibilidade com IFrame e Session.. Quando uso iframe no meu site... não consigo resgatar uma variável de sessão em outra pagina... Mas na pagina q atribuo a variável de sessão consigo ver seu conteúdo. se alguém tiver alguma dica!! grato.

Cara... dá uma olhada nesse "config.inc"... que acho q a string de conexao está apontando para um BD que não tem uma tabela chamada "LOGIN"... e essa tua query ae.. acho q tá errada!! Deveria ser mais ou menos assim: sql = "select * from login where usuario = '" & UserName & "' and senha = '" & PassWord & "'" set rs = conexao.execute(sql) if not rs.eof then Session("name") = rs("name") Session("depart") = rs("depart") else 'Usuário não existe no BD response.redirect "erro.asp?msg=usuário não existe!" end if

dim strQuery, strMsg, objConn dim idRegiao, idNoticia dim idCategoria, idNoticia dim strTitulo, strDescricao, strConteudo, strAcao Cara.. o campo "idNoticia" tá sendo declarado 2 vezes!! Se liga AeW!!!

smez.. tá ae seu código corrigido!! Agora é só testar!! <% regs = 10 pag = request.queryString("pagina") if pag = "" then pag = 1 end if set rs = server.CreateObject("ADODB.Recordset") set rs.activeconnection = abredb rs.cursortype = 3 rs.pagesize = regs sql = "SELECT * FROM cinema ORDER by cod_cinema DESC" rs.open sql if rs.eof or rs.bof then response.write "ddd" else rs.absolutepage = pag contador = 0 %> <div align="center"> <center> <table width="85" border="0" cellspacing="4" cellpadding="4"> <% for x = 1 to rs.pagesize if contador = 0 then response.write "<tr>" end if do while not rs.eof and contador < rs.pagesize%> <td align="center" width="81"> <div align="center"> <center> <table width="80" border="0" cellspacing="1"> <tr> <td width="77" align="center" valign="middle"><img src="cinema/images/<%=rs("foto")%>" border="0"></td> </tr> <tr> <td width="77" height="40" align="center" valign="middle"><font face="Verdana" size="1" color="#FFFFFF"><%=rs("titulo")%></font></td> </tr> </table> </center> </div> </td> <% contador = contador + 1 rs.movenext loop contador = contador + 1 if contador = 6 then response.write "</tr>" contador = 0 end if next%> </table> </center> </div> <%end if rs.close set rs = nothing set conn=nothing %>

<script language="javascript"> function validaCampos(){ if (document.formCadastro.txtNome.value == ''){ alert('Preencha o campo Nome!') return false } } </script> ae na tag do form... <form name="formCadastro" onSubmit="return validaCampos()" action="insert.asp"> <input type="text" name="txtNome"> </form>

"beteween" está errado... o certo é between!!

Pessoal... to com um problema com o firefox!! fiz um exemplo pra tentar simplificar o que estou querendo!! O site, bastante simples, abaixo funciona normalmente no internet explorer e não funciona no firefox!! Estou querendo criar dinamicamente options dentro de um select, em um form! <html> <head> <title>TESTE</title> </head> <body bottommargin="0" leftmargin="0" rightmargin="0" topmargin="0"> <BR> <BR> <BR> <script language="Javascript"> function botao(){ var opt = window.document.createElement("option") opt.value = 'op' opt.text = 'opText' frm.combobox.add(opt) } </script> <form name="frm" method="post" action=""> <center> <select name="combobox"> <option value="selecione"> Selecione aqui...</option> </select> <BR> <BR> <BR> <input type="button" onClick="javaScript: botao()" value="Adicionar Option"> </center> </form> </body> </html>

Galera, fiz uma pagina com formulário q envia os dados para uma pagina PHP q tem o codigo-fonte abaixo: <HTML> <HEAD> <STYLE> BODY { color:white; font-family:'verdana'; } a:link {color:white; text-decoration:none;} a:visited {color:white; text-decoration:none;} a:hover {color:white; font-weight:bold; text-decoration:none;} a:active {color:white; text-decoration:none;} </STYLE> </HEAD> <BODY bgcolor='black'> <? $identidade = $_POST['txt_identidade']; $orgao = $_POST['txt_orgExp']; $nomecompleto = $_POST['txt_nomecompleto']; $nomecracha = $_POST['txt_nomecracha']; $sexo = $_POST['txt_sexo']; $instituicao = $_POST['txt_instituicao']; $sigla = $_POST['txt_InstSigla']; $endereco = $_POST['txt_endereco']; $complemento = $_POST['txt_complemento']; $caixapostal = $_POST['txt_caixapostal']; $cidade = $_POST['txt_cidade']; $estado = $_POST['txt_estado']; $pais = $_POST['txt_pais']; $cep = $_POST['txt_cep']; $telefone = $_POST['txt_telefone']; $celular = $_POST['txt_celular']; $email = $_POST['txt_email']; $titulacao = $_POST['txt_titulacao']; $auxfinac = $_POST['txt_auxfinanceiro']; $motauxfinac = $_POST['txt_motivo']; if ($_POST['txt_estrangeiro'] == "on") { $estrangeiro = "SIM"; } else { $estrangeiro = "não"; } if ($_POST['txt_certificado'] == "on") { $certificado = "SIM"; } else { $certificado = "não"; } $mailto = "t71080@telemar.com.br"; $assunto = "II Simposio em Lasers - FICHA DE INSCRICAO"; $msg = ":: FICHA DE INSCRICAO :: \n\n\n"; $msg .= "Identidade: $identidade\n"; $msg .= "Estrangeiro: $estrangeiro\n"; $msg .= "Nome Completo: $nomecompleto\n"; $msg .= "Nome Cracha: $nomecracha\n"; $msg .= "Sexo: $sexo\n"; $msg .= "Instituicao: $instituicao\n"; $msg .= "Sigla da Instituicao: $sigla\n"; $msg .= "Endereco: $endereco\n"; $msg .= "Complemento: $complemento\n"; $msg .= "Caixa Postal: $caixapostal\n"; $msg .= "Cidade: $cidade\n"; $msg .= "Estado: $estado\n"; $msg .= "Pais: $pais\n"; $msg .= "CEP: $cep\n"; $msg .= "Telefone: $telefone\n"; $msg .= "Celular: $celular\n"; $msg .= "Email: $email\n"; $msg .= "Titulacao: $titulacao\n"; $msg .= "Certificado: $certificado\n"; $msg .= "Auxilio Financ: $auxfinac\n"; $msg .= "Motivo Aux: $motauxfinac\n"; $enviar = mail($mailto, $assunto, $msg, "From: <$email>"); ?> <? if ($enviar=="1"){ echo ("<center><H2>E-mail enviado com sucesso!</H2></center>"); }else{ echo ("<center><H2>Erro ao enviar e-mail, tente novamente.</H2></center>"); } ?> <BR><BR> <center><a href='apresentacao.htm'>Voltar</a></center> </BODY> </HTML> Mas esse código mostra um erro nos componentes checkbox: O email é enviado direitinho... e esse erro só aparece quando o checkbox está descmarcado!! alguém poderia me ajudar ?? Alexandre.

Valeu cara!! é só usar o pictureBox!! T +

Galera.. estou tentando utilizar um "image" no vb... e alterar a figura desse image durante minha aplicação! Tentei fazer o seguinte: Set consulta = conexao.Execute("select * from vendas_usuarios where login = '" & login & "' ") foto = consulta.Fields("CaminhoFoto") 'variavel foto recebe o caminho fisico da imagem. Ex: \\rede\fotos\imagem.jpg image.picture = foto Mas assim não funciona! a propriedade picture do image não recebe string!! Como poderia fazer isso? Grato, Alexandre.

Ae Cara... tenta fazer assim: Dim ie As Object Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True ie.navigate "https://www.scriptbrasil.com.br"

Valeu, Graymalkin! Achei o tópico e funcionou 100%

Galera, como faço pra abrir um arquivo do excel na minha aplicação?? Gostaria de abrir o arquivo e não salvar uma cópia em outro lugar! Tentei usar assim, mas não funcionou: Shell "C:\Vendas.xls", vbNormalFocus Assim só funciona com arquivos ".exe" Alguém poderia dar uma dica?? Grato, Alexandre.

Galera, Muito obrigado.. valeu mesmo!! Deu Certo!! Eu usei "FormatNumber()" porque dá pra escolher quantas casas decimais eu quero!! Grato, Alexandre.

Galera, Em um momento da aplicação faço uns cálculos e alguns resultam em números com muitas casas decimais: (consulta.Fields("qtde") / QtdFunc) Como faço para ele mostrar o resultado com duas casas decimais ?? o CInt arredonda o valor! se eu não colocar nada, ele mostra uma porrada de casas decimais. Exp: 8,431425487524 eu só quero mostrar duas casas decimais: Exp: 8,43 Grato, Alexandre.

Galera, qual a diferença entre Visual Basic e Visual FoxPro. Eu sempre programei em visual basic 6, mas agora me pediram para fazer um programa em Visual FoxPro. Na net não existe muita informação sobre o FoxPro. Quais os pontos positivos e negativos do FoxPro em relação ao visual basic?? Grato, Alexandre.

Não é os que estão fechados... eu só quero o status atual(data mais recente) de cada protocolo. Estou usando VB! Valeu pela atenção!