Jump to content
Fórum Script Brasil

fdirk

Membros
  • Content Count

    67
  • Joined

  • Last visited

Community Reputation

0 Neutro

About fdirk

Perfil

  • Gender
    Female
  1. fdirk

    Exportar e abrir arquivo

    Boa tarde. Estou querendo exportar o conteúdo do banco de dados p/ um arquivo no excel. O código abaixo faz isso, mas ele salva em um diretório. Gostaria de somente abrir o excel com o conteúdo. O q é necessário alterar no código p/ isso? Set rstTemp = Server.CreateObject("ADODB.Recordset") Set FSO = Server.CreateObject("Scripting.FileSystemObject") tipo = "Cadastrados" arq = "cadastrados.csv" caminho = Server.Mappath("tmp/cadastrados.csv") Set TXT = FSO.OpenTextFile(caminho,2,1) TXT.writeLine("Nome;Nome de Guerra;Funcao;CPF") sql = "SELECT * FROM TB_CADASTRO ORDER
  2. fdirk

    Eval na condição if

    Gostaria de saber como ficaria o if nesse caso em uma página aspx. Estou trabalhando com essa linha: <a href='../../ui/solucao/?Sol=<%# Eval("cd_campo") %>'><asp:Label ID="lblVSol" runat="server" Text="Titulo" ... Mas gostaria de colocar um if para verificar se o campo Eval("campo") estiver vazio ele mostra essa linha acima senão mostrar essa: <a href='../../ui/solucao/?Sol=<%# Eval("cd_campo") %>&SolP=<%# Eval("campo") %>'><asp:Label ID="lblVSolII" runat="server" Text="Titulo" ... 1ª vez que trabalho com asp.net aí não estou sabendo como se faz.
  3. fdirk

    Index Server...

    Quando digito na busca do site "França", por exemplo, o index server me trás uma quantidade de resultado. Mas Quando escrevo "Franca" ele me trás outros resultados. Já tentei usar esta função: Function FormatLike(Texto) dim n, NovoTexto, valorASC NovoTexto = "" For n = 1 To len( Texto ) valorASC = asc( mid( Texto, n, 1 ) ) Select Case valorASC Case 39: NovoTexto = NovoTexto & "''" Case 65: NovoTexto = NovoTexto & "[ÁÀÂÄÃA]" Case 67: NovoTexto = NovoTexto & "[ÇC]" Case 69: NovoTexto = NovoTexto & "[ÉÈÊËE]" Case 73: NovoTexto = NovoTexto & "[ÍÌÎÏI]" Case 79: Nov
  4. fdirk

    Index Server...

    Boa Tarde! Alguém sabe sobre o procedimento de busca index server?? Sabem me dizer se teria como fazer com que ele me traga todas as páginas referentes a uma palavra, indiferente se eu escrever com acento ou não Por exemplo:"Suíça" ou "Suica" / "França" ou "Franca" Att,
  5. fdirk

    Upload de Banner

    Consegui fazer o upload!!! Mas estou querendo verificar a extensão do arquivo antes do formulário direcionar para o código de upload. Como poderia fazer isso? Gostaria de só permitir upload de arquivos .swf (flash) Att,
  6. fdirk

    Upload de Banner

    Boa tarde. Estou com uma dúvida. Tenho q criar um cadastro de banner na área de controle do cliente. Criar um formlário (já criei) Salvar na tabela e fazer o upload (falta esses / cadastro único - sem histórico) Só pode aceitar se for em formato flash(swf). Tenho encontrado alguns códigos alguns código mas para sistema de banner rotativo. E não estou sabendo adaptar para o que o cliente quer. =/ Se puderem me ajudar. Att,
  7. Oi!! Tenho uma página onde está o formulário, q chama um js (funcoes.js visto no 1º post) dele chamo o código da pesquisa. Consegui fazer com q a mensagem e a figura apareçam function carrega(){ var tipoUser = " " document.all.BuscarFerias.innerHTML = "<img src='snake.gif'>Carregando..."; var ajax = new AJAX() ajax.Updater("../../ajax/grid.asp?acao=carrega&tipo="+tipoUser.value,"BuscarFerias","post","carregando os dados..."); } Agora o problema é q só aparecem no IE no firefox não funciona. Como eu tenh
  8. Andreia, então ficaria como o código? nome_XMLHTTP.onreadystatechange=function(){ document.getElementById("nome_do_container").innerHTML= "<img src='carregando.gif'>"; 'essa linha tem q fazer referência a q?? if (nome_XMLHTTP.readyState==4){ var tipoUser = " "; var ajax = new AJAX() ajax.Updater("../../ajax/grid.asp?acao=carrega&tipo="+tipoUser.value,"BuscarFerias","post","carregando os dados..."); } } Assim? porque se for está dando um erro, " "nome_XMLHTTP" is undefined ".
  9. Oi!!! Estou trabalhando em um código q não criei. Ao clicar no botão é buscado em ajax as informações indicadas para aparecer no site. Só q estão demorando e eu estava querendo colocar um aviso de aguarde na página enquanto o código é rodado. Achei um modelo só não estou conseguindo adaptar ao código. (exemplo) Gostaria de saber como adaptar o código ajax abaixo a rodar uma msg carregando enquanto a busca é feita ... funcao.js function carrega(){ var tipoUser = " "; var ajax = new AJAX() ajax.Updater("../../ajax/grid.asp?acao=carrega&tipo="+tipoUser.value,"BuscarFer
  10. Obrigada pela ajuda!!! Liguei para o suporte do servidor do cliente. Eles mudaram e agora só suportam o ASP Mail. Adpatei o formulário e peguei o host q eles usam. =] Att.
  11. Eu estou tentando verificar ... Mas enquanto isso testei alterei o código para CDOsys ... mas agora está aparecendo outro erro: The transport failed to connect to the server. Aí apontou para linha 30 q nesse caso é: Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.dominio.com" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDOSYSCon.Fields("http://schemas.mi
  12. Na minha máquina funciona. Mas quando é mandado para o ar o sistema não roda. Da o seguinte erro: Server object error 'ASP 0177 : 800401f3' Server.CreateObject Failed /jornalista/funcoes_email.asp, line 7 800401f3 ... Set email = server.CreateObject("CDONTS.NewMail") 'APONTA PARA ESTA LINHA email.from = fromemail email.to = toemail email.subject = subject email.body = body email.send set email = nothing ... O q está errado??
  13. Coloquei, mas continua invertendo... Resolvi! Tirei o ObjRS("DT_INICIO_PERIODO2") e usei o ObjRS("DT_INICIO_PERIODO"). ObjRS("DT_INICIO_PERIODO") - 2010/07/12 Não sei porque o programador antigo inverteu a data ... mas está funcionando agora. Att.
  14. Bom dia!! Estou trabalhando em um sistema q não foi construido por mim ... Ele busca uma data do banco, inverte e faz os seguintes passos abaixo 'ObjRS("DT_INICIO_PERIODO2") - data invertida dataPagamentoFerias = AdicionaDiasUteis(ObjRS("DT_INICIO_PERIODO2")) if(Day(ObjRS("DT_INICIO_PERIODO2")) = 31) then dav = DateAdd("D",-31,ObjRS("DT_INICIO_PERIODO2")) else dav = DateAdd("D",-30,ObjRS("DT_INICIO_PERIODO2")) end if dataAvisoFerias = Day(Cdate(dav))&"/"&Month(Cdate(dav))&a
  15. fdirk

    Imagem no corpo da mensagem

    Ok! Estou fazendo as alterações ...
×
×
  • Create New...