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

Não ... está como texto puro. Terei q alterar para html, e enviar como img?

Boa tarde! Trabalho com um formulário de msg que são enviadas via e-mail para os seus cliente em uma página .asp Os únicos campos atuais a serem preenchidos pelo usuário são: o conteúdo da mensagem e o anexo a ser inserido, o restante já está padrão (remetente, destinatário, título, assinatura, ...) Agora o cliente gostaria de inserir uma imagem previamente elaborada no corpo da mensagem. Alguém teria algum modelo de como eu faria isso? Ou alguma instrução? Att,

Obrigada pela dica Jonathan! É em asp, e ficou assim: <input type="radio" name="indicador" value="1" <%if request.querystring("indicador")="1" then response.write(" checked") end if%> onclick="form.submit()"> =]

Boa tarde!! Tenho na minha página 4 opções para o usuário escolher: <tr> <th width='6%' align=center><b>Pontuação</b></th> <th width='20%' align=center colspan='2'><b>Descrição</b></th> </tr> <tr><td align=center valign=middle>1</td><td align=center>Não atendeu às expectativas;</td><td align=center valign=middle><input type="radio" name="indicador" value="1" onclick="form.submit()"></td></tr> <tr><td align=center valign=middle>2</td><td align=center>melhoria é necessária;</td><td align=center valign=middle><input type="radio" name="indicador" value="2" onclick="form.submit()">></td></tr> <tr><td align=center valign=middle>3</td><td align=center>resultados satisfatórios</td><td align=center valign=middle><input type="radio" name="indicador" value="3" onclick="form.submit()"></td></tr> <tr><td align=center valign=middle>4</td><td align=center>superou as expectativas.</td><td align=center valign=middle><input type="radio" name="indicador" value="4" onclick="form.submit()"></td></tr> Ao selecionar a caixinha a página atualiza e gera um gráfico. O problema é q quando a página atualiza desmarca o 'radio' q foi marcado e ainda o 'value' da caixa não é memorizada. Como faço para ficar marcado??? Att.

Como faço para concatenar o valor do i corretamente no javascript? for (i=0; i<16; i++) { document.getElementById("atv_operacional" + i).readOnly=false; document.getElementById("atv_operacional" + i + ).readOnly=false; document.getElementById("atv_operacional"[i]).readOnly=false; } já tentei esses e nada funcionou. Att.

Oi!! Estou montando um formulário com mais de 30 caixa de texto. Dentro de um javascript estou montando uma condição que se confirmada bloqueia todos os campos ou não. Mas eu não queria referenciar o nome de cada caixa de texto no javascript usando o readOnly. Gostaria de saber se tem algum método generalizado para bloquear uma caixa de texto sem ter q colocar o nome ou o id. Com isso seria só colocar o nome da function no onchange da caixa de texto. Tem como fazer isso??? document.getElementById('teste').setAttribute('readOnly',''); document.forms[i].elements[j].readOnly = true; document.nomeDoForm.nomeDoCampo.readonly = true; document.getElementByID("campo").readOnly=""; Essas foram as diversas formas q achei, mas todos referenciam diretamente a uma caixa de texto, queria algo generalizado. Att.

Obrigada Jonathan!

E para recuperar os dados via AJAX? Aki eu pego o valor do 1º select <script language="javascript"> function verificar() { objDep = document.getElementById("cmb_depar_map"); var valWhere valWhere = objDep.value; } </script> <select name="cmb_depar_map" id="cmb_depar_map" class="select" onChange="verificar()"> Mas eu preciso pegar esse valor salvo na variável "valWhere" e colocar no where do 2º select. Para fazer o filtro. Do valor selecionado no 2º select q terei q preencher o input. Mas como consigo colocar o valor da variável no where? <% aux_limpa_espacos = limpa_espacos("select campo1,campo2,campo3 from objetivos where campo1 = ????;") readsql (aux_limpa_espacos) lixo = le_arquivo ("/banco/" & tabela & ".txt", " ") %> <tr> <td width="200" valign="top"><h3>Ref.:</h3></td> <td valign="botton"> <select name="cmb_ref_obj" id="cmb_ref_obj" class="select"> <option value=""> </option> <% for i=1 to dados_size %> <option value="<%=dados(i,1)%>" <%if limpaHTML(request.querystring("id").count)<>0 then if dados(i,1)=ref_obj then response.write("selected") end if end if%>><%=dados(i,1)%> </option> <% next %> </select> </td> </tr>

Oi!! Estou com uma dúvida e recebi a dica de resolver com AJAX, mas não sei como seria. Gostaria de preencher um campo <input type='text' ...> com a descrição da referencia selecionada em um select. A pessoa seleciona uma opção no select e automaticamente o campo descrição (baseado em um BD) é preenchido. Como ficaria esse código? Att. FDirk.

Obrigada pela dica bareta! Vou dar uma busca de como posso resolver minha dúvida pelo fórum "Ajax, JavaScript, XML, DOM"! =]