Ir para conteúdo
Fórum Script Brasil

Alexandre_Ribeiro

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    77

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Alexandre_Ribeiro

  1. Objinet.openurl No Asp

    em ASP

    Postado

    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

%>

  3. Disable Um Option

    em ASP

    Postado

    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%>

  4. Asp+javascript

    em ASP

    Postado

    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!!

  5. Data E Hora

    em ASP

    Postado

    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.

  7. Limitar Acesso Com Cookie

    em ASP

    Postado

    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

  9. Iframe X Session

    em ASP

    Postado

    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.

  10. Dá Esse Erro Ao Logar

    em ASP

    Postado

    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

  12. Erro 800a03f6

    em ASP

    Postado

    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
%>

  13. Confirmar Preeenchido

    em ASP

    Postado 

    <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>

  15. Firefox = Problema

    em Ajax, JavaScript, XML, DOM

    Postado

    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>

  16. Enviar Email Com Php

    em PHP

    Postado

    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:

    Notice: Undefined index: txt_estrangeiro in d:\php\enviar_email.php on line 46

    Notice: Undefined index: txt_certificado in d:\php\enviar_email.php on line 47

    E-mail enviado com sucesso!

    O email é enviado direitinho... e esse erro só aparece quando o checkbox está descmarcado!!

    alguém poderia me ajudar ??

    Alexandre.

  18. Image

    em Visual Basic

    Postado

    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.

  21. Executar Arquivo Do Windows

    em Visual Basic

    Postado

    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?? rolleyes.gif

    Grato,

    Alexandre.

  23. Trabalhando Com Decimais

    em Visual Basic

    Postado

    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.

  24. Visual Basic X Visual Foxpro

    em Visual Basic

    Postado

    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.

×
×
  • Criar Novo...