Rafael Spilki

ooopps, esqueci um detalhe importante...foi mau! tente assim: <% While Not Rs1.EOF rsnome = LEFT(trim(RS1("nome")),1) if rsnome = "0" then rsnome = "#" elseif rsnome = "1" then rsnome = "#" elseif rsnome = "2" then rsnome = "#" elseif rsnome = "3" then rsnome = "#" elseif rsnome = "4" then rsnome = "#" elseif rsnome = "5" then rsnome = "#" elseif rsnome = "6" then rsnome = "#" elseif rsnome = "7" then rsnome = "#" elseif rsnome = "8" then rsnome = "#" elseif rsnome = "9" then rsnome = "#" end if %> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=<%=LEFT(trim(RS1("nome")),1)%>&idcat=<%=RS1("idcat")%>"><%=LEFT(trim(RS1("nome")),1)%> </td><td> </td> <% RS1.MoveNext Wend %>

Aí é que está... eu perguntei isso porque essas respostas podem ser o motivo do não funcionamento... Local: sistema que funciona em seu computador; Remoto: Sistema que funciona em um servidor de hospedagem, datacenter, externo (Terra, Uol...); Componente: Nada tem a ver com extenções... podem ser vários, como ex.: Cdo.sys, cdo.nts, aspmail, aspEmail, dundasmail e por aí vai... Como descobrir qual componente você tem disponível? Entre em contato com o datacenter que hospeda o seu site ou com o administrador de sua rede local e pergunte para eles... existe também um script que pode ser rodado para conseguir essas respostas, mas nem sempre o que está instalado está disponível... portanto, perguntar é sempre a melhor saída! Pesquise mais em "componentes para envio de e-mails" no google ou aqui pelo forum... []'s Rafael Spilki

que componente é esse? você o tem disponível no servidor? Acesso local ou remoto?

Qual erro que dá?

Claro que tem... ficaria assim: <% While Not Rs.EOF rsnome = RS1("nome") if rsnome = "0" then rsnome = "#" else if rsnome = "1" then rsnome = "#" elseif rsnome = "2" then rsnome = "#" 'cont... end if %> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=<%=LEFT(trim(rsnome),1)%>&idcat=<%=RS1("idcat")%>"><%=LEFT(trim(rsnome),1)%></td> <% RS.MoveNext Wend %>

O endereço do bd ou nomes dos campos devem estar errados...

Não entendi muito bem... você esta fazendo upload de um arquivo mas a mensagem de ok vem antes do upload ter terminado? Caso seja isso basta você fazer algo assim antes da parte que da o ok: if err <> 0 then response.write "ok" else response.write " erro ao enviar arquivo" end if Era isso que você queria? se não explique denovo postando seu código junto... []'s Rafael Spilki

Não sei se existe... mas não é muito difícil de fazer não... De uma procurada aqui e veja se encontra pronto o que você quer... caso contrario baixe uma apostila e de uma estudada em asp... veras que não nenhum bixo de sete cabeças... https://www.scriptbrasil.com.br/codigos []'s Rafael Spilki

;) que isso... Se você quiser tem jeito das outras letras aparecerem... mais fracas ou menores... mas dai sim teria que criar uma condicional e tal... eu particularmente gosto dessa logica porque o codigo fica super enxuto e robusto, incluindo tags <td> apenas onde necessário mesmo... qualquer. coisa estamos ae!

;) legal... qualquer coisa estamos ae!

o script deve ter ficado rodando no server... se for o que estou pensando a única forma seria parar isso no server mesmo... talvés até com um boot ou coisa parecida... mas enfim... só palpites... nunca passei por algo parecido!

Poisé... eu já até tinha tentado com replaces... mas pra mim não resolveu... Não sei se entendi direito sua idéia... mas aplicando sua function o que retorna é isso aqui: obrigatório, ou seja, a mesma coisa de antes... mas valeu pela força!

A idéia do Bareta realmente é muito boa... a minha ideia seria essa aqui: todos_filmes.asp Set RS1= Server.CreateObject("ADODB.Recordset") sql1 = "SELECT distinct nome from fotos order by nome asc" RS1.Open SQL1, conn, 3 <table align="center" border="0" cellpadding="0" cellspacing="0" width="575"> <tr> <% While Not Rs.EOF %> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=<%=LEFT(trim(RS1("nome")),1)%>&idcat=<%=RS1("idcat")%>"><%=LEFT(trim(RS("nome")),1)%></td> <% RS.MoveNext Wend %> </tr> </table> <% RS1.close Set RS1 = Nothing %> testa aí e depois nos conta o que achou!

Gurizada, to criando um fpdf, nesse fpdf tem uma string que leva acento, ex.: palavra = "obrigatório" Acontece que quando o pdf é criado essa string vem impressa em tela assim: obrigatório Já tentei também assim: palavra= Server.HTMLEncode("!!!obrigatório!!!!") e neste caso, fica impresso assim obrigat & # 195 ; & # 179 ; rio obs.: botei os espaços para não ser "interpretado"... Se a palavra obrigatório vem do bd através de rs, como era de se imaginar fica perfeito... só ocorre mesmo em string... Vale adiantar ainda (Antes que o Jonathan pergunte ;)) que o retorno de: Response.Write(Server.HTMLEncode("á-é-ç-í-ó-ú")) é igual a: á-é-ç-í-ó-ú e que também já tentei replaces do tipo: palavra = replace(texto, "ó", Server.HTMLEncode("ó")) Edit.: tb já tentei usar assim: obrigat&oacute;rio, mas responde no pdf exatamente igual! Alguém tem alguma idéia? []'s Rafael Spilki

poste aqui o codigo em que você faz a busca de acordo com a letra inicial que eu esboço alguma coisa pra você! A parte em que você recebe a letra escolhida, e busca no banco as palavras onde ocorrem essa letra inicial... []'s

Eu faria outra lógica... por exemplo: Faça uma consulta geral ao bd identificando nessa coluna especificaas letras iniciais de todas as palavras, depois cria uma única função para as letras inexistentes fdazendo com que simplesmente o link não seja montado... Formataria em css as cores dos links e as cores dos textos normais... e pronto! o que acha?

você ta fazendo isso no DreamWeaver certo? Inclusive no que compete a construção de códigos, correto? Eis o problema... o dreamweaver é uma m*** pra fazer isso... eu particularmente uso só para autocompletar algumas tags, ou colorir o código... organizar pastas e etc... mas de resto não uso porque realmente é muito ruim... Fica bem complicado achar um só problema... recomendaria uma reestruturada geral aí!

Ué... deve ser outra coisa então... porque o distinct "remove" registros duplicados, devolvendo apenas um registro de cada coluna... a sintaxe dele é assim: sql = "select distinct nome_campo from nome_da_tabela" tente trocar sua sintaxe para (campo serie e bimestre em formato número): sql = " select distinct dia, mes, aula from presenca where serie = 16 and bimestre = 1 order by dia, aula, mes asc" já se os campos serie e bimestre estiverem em formato texto: sql = " select distinct dia, mes, aula from presenca where serie = '16' and bimestre = '1' order by dia, aula, mes asc" []'s Rafael Spilki

Aí você terá que usar duas querys, send uma dentro do loop da outra... e com as devidas clausulas de where...

To quase deprimido... ;(

comentando: 'depois de abrir sua conexão com o bd faça um select no banco de dados, selecionando o campo que será somado [b]sum(nome_do_campo)[/b] determinando o nome da variavel que conterá o valor total da soma [b]as total[/b] sql = "select sum(nome_do_campo) as total from sua_tabela where campo_id <> "" " 'aqui você seta o objeto recordset executando a consulta... set objRs... 'aqui você imprime o valor total da soma! response.write objRs("total") []'s Rafael Spilki

è bem fácil de se trabalhar com o aspmail... tem lilhoes de exemplos prontos por ai... form + script de envio... Da uma procuradinha aqui no forum ou no google digitando o nome do componente... certamente irpa encontrar muitas coisas! []'s Rafael Spilki

Peraí... vamos por partes... Seu site está hospedado em um servidor externo (esses de hospedagem) ou um servidor próprio (localhost)? você só tem esse componente disponível? Está certo disso? Ele está devidamente instalado? e configurado? Aparece alguma mensagem de erro?

se bem entendi: sql = "select sum(nome_do_campo) as total from sua_tabela where campo_id <> "" " set objRs... response.write objRs("total") era isso? []'s Rafael Spilki

Uhm... acho que não... o que deves ter em mente sempre é fazer as devidas configs tb no IIS para evitar esses transtornos... mas por parte do script esses comandos que sugeri devem resolver...