fdirk

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 BY TX_NOME" rstTemp.Open sql, oConn, 3, 3 Do while not rstTemp.eof TXT.WriteLine (rstTemp("tx_nome")&";"&rstTemp("tx_nome_guerra")&";"&rstTemp("tx_funcao")&";"&rstTemp("tx_CPF")) rstTemp.movenext Loop Att,

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.

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: NovoTexto = NovoTexto & "[ÓÒÔÖÕO]" Case 85: NovoTexto = NovoTexto & "[ÚÙÛÜU]" Case 97: NovoTexto = NovoTexto & "[áàâäãa]" Case 99: NovoTexto = NovoTexto & "[çc]" Case 101: NovoTexto = NovoTexto & "[éèêëe]" Case 105: NovoTexto = NovoTexto & "[íìîïi]" Case 111: NovoTexto = NovoTexto & "[óòôöõo]" Case 117: NovoTexto = NovoTexto & "[úùûüu]" Case Else IF valorASC > 31 And valorASC < 127 Then NovoTexto = NovoTexto & chr( valorASC ) Else NovoTexto = NovoTexto & "_" End IF End Select Next 'FormatLikeSearch = "'%" & NovoTexto & "%'" FormatLike = NovoTexto End Function Mas a busca veio nula =/

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,

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,

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,

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 tenho q adpatar para funcionar no firefox??? Att,

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

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,"BuscarFerias","post","carregando os dados..."); } busca.asp 'loop de verificação for i = o to 200000 response.write i & "<br>" next Ou algum outro método de gerar essa mensagem na página asp sem ser no <body> Já procurei vários sites e não encontrei nada q se encaixe nos códigos daki ... =/ ... Att,

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.

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.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objCDOSYSCon.Fields.Update Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = fromemail objCDOSYSMail.To = toemail objCDOSYSMail.Subject = subject objCDOSYSMail.TextBody = body objCDOSYSMail.Send 'LINHA 30 Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing O q pode ser agora???

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

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.

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))&"/"&Year(Cdate(dav)) mes = CStr(DatePart("m", ObjRS("DT_INICIO_PERIODO2"))) Problemas: quando o dia é =< 12 os resultados das datas ficam invertidos. Exemplo da inversão: Data original - 12/07/2010 DT_INICIO_PERIODO2 - 07/12/2010 dataPagamentoFerias = 03/12/2010 dav - 07/11/2010 dataAvisoFerias - 07/11/2010 mes - 12 Exemplo quando funciona: Data original - 13/05/2010 DT_INICIO_PERIODO2 - 05/13/2010 dataPagamentoFerias = 11/05/2010 dav - 13/04/2010 dataAvisoFerias - 13/04/2010 mes - 5 function AdicionaDiasUteis(pData) pData = DateAdd("D", -2, pData) If Weekday(pData) <> 1 And Weekday(pData) <> 7 Then AdicionaDiasUteis = pData else if(Weekday(pData) = 1) then AdicionaDiasUteis = DateAdd("D",-2,pData) else AdicionaDiasUteis = DateAdd("D",-2,pData) end if End If AdicionaDiasUteis = FormatMediumDate(Day(Cdate(AdicionaDiasUteis))&"/"&Month(Cdate(AdicionaDiasUteis))&"/"&Year(Cdate(AdicionaDiasUteis))) end function P q as datas invertem quando são nos menores q 13? Att,

Ok! Estou fazendo as alterações ...