cara, muito boa essa sua de renomear o pc... acho meio difícil alguem resolver descobrir os nomes de minhas sessões (já que naum estão em arquivos.inc... rs...)... mas d boa...

esse do Request.ServerVariables("HTTP_REFERER") eu uso em todos meus forms, dando o endereço da página q posta... tipo q dá uma ajudinha com os filtros e talz...

concordo com a inclusão de IP´s e datas no banco... é algo que deveria se tornar obrigatório!!!!!! rs... ponha o IP no seu banco!!!!

porém, se o cara tiver mesmo afim de te zoar, e ele jah tiver o mapa da mina, ele pode utilizar um dakeles servicinhos de anonymous q tem (pelo menos tinha) pela net e "mascarar" seu ip... rs... aí ferrô... rs... mas acho difícil existir tanta paciencia em um só ser....

cara, temos q difundir estas infos.. acho realmente importante tudo q foi dito aki, e realmente acho q falta qualificação e profissionalismo na NET.. tipo q tem gente q vai ver o tópico pendurado.. tah lah... SEGURANÇA NA INTERNET... e o carinha nem passa perto...

SQL Injection
Session
BD seguros
Senhas
URLs seguras
Includes seguros

por favor, se informem e divulguem!!!!

flws...

Quanto ao IP, ele pode ser alterado.

Meu modem ADSL, sempre quando eu desligo e ligo ele, o IP muda.

E se o cara estiver em uma LanHouse? Irá gravar o IP de lá, e isso nada impede de o cara fazer sacanagem.

Não sei se existe IP fixo, mas o meu modem ADSL sempre muda o IP quando reiniciado.

O modem de vocês faz isso?

E outra:

Você pode criptografar os dados que colocar na SESSION, e melhor, utilizar a criptografia HASH, que não pode ser descriptografada.

Gostaria de saber uma coisa: Qual a diferença entre COOKIE e SESSION?

T+

Bom ... guardar IP é uma técnica razoavelmente eficiente.
Talvez nao para bloquear, mas para medidas mais pesadas, é facil contactar o provedor dono do IP e descobrir de quem veio a requisição no momento... ou seja, vc tem como rastrear o cara.

Claro que isso fica mto inviavel se vc for pensar em lan house, e acesso anonimo via proxy, porem vc tem que pensar da seguinte forma: Nunca seu site vai estar 100% seguro, todas essas medidas que citaram nesse topico e muitas outras adotadas, servem apenas para minimizar e tornar o seu site menos sujeito a ataques.

O ideal é sempre adotar uma postura que vise atingir o caso mais comum. Muitos IPS dinamicos existem, então o simples fato de vc "bloquear por IP" pode nao ser a melhor alternativa.

----

Vamos a segunda parte agora.
Criptografia é sempre bem vista quando o assunto é segurança.
Mas tem que ter o uso correto. Veja bem, nem sempre vc pode utilizar um algoritmo nao-reversivel para criptografar, pois precisa recuperar informações da session, como por exemplo o nome do usuario. Tem que se analisar o caso para verificar qual tipo de criptografia deve-se usar.
No caso de uma criptografia assimetrica/simetrica, o segredo está na criação e na onde estará armazenada as chaves.
Olha só, vc tem que adotar uma ideia de segurança por obscuridade. De fato nao se pode negar que existe a chave, mas ninguem deve saber onde ela está. Assim vc dificulta a ação do invasor.

Cookies e sessions são formas de armazenar informações e manter estados entre paginas / aplicações.
A diferenca base é que sessions são armazenadas no servidor (em memoria, processo ou bd caso .net) e cookies são armazenados no cliente.

Como sempre vc tem que pesar a sua informação e ver o que serve melhor pra ela. Imagina que o usuario X desabilitou cookies pelo navegador .. devemos entao usar session pra tudo???
De fato, não. A ideia é evitar o uso de sessions, pois elas sobrecarregam o servidor. Imagina que vc tenha cerca de 20 sessions carregadas durante uma sessão de um usuario. Se 100 usuarios entrarem ao mesmo tempo no site, vc agora tem 20.000 variaveis de sessão. É mto facil haver sobrecarga se isso não for devidamente tratado.

Abraços

Olá pessoal!

Continuo eu desenvolvendo meu jogo da velha multiplayer...

seguinte:

Tenho uma página principal e uma iframe dentro dela.

Essa iframe fica dando refresh, e, num determinado momento, chega um java script que tem que inserir o seguinte texto dentro da tag "DIV" que está na página principal: "jogador1".

id da tag div -> "oponente".

Eu tentei usar isso:

<script>opener.oponente.innerHTML = "jogador1";</script>

Porém não congui....

Alguma sugestão/resposta??

Hmm.. tenta algum parent .. ou algo do tipo...

parent.document.getElementById("NomeDoDiv").innerHTML = "..."

hummmm
vlw!
daki pra frente as duvidas sao em forum de vb msm né???

VB ou .NET.

O que a gente pode guiar vc aqui é como fazer o processo de componentização, registro no COM+ e etc. Lembrando que pra um componente COM+ criado no .NET interagir com ASP 3.0 precisa do .NET Framework rodando na maquina.

[C#] http://www.codeproje...rp/cspplcds.asp
[VB.NET] http://support.micro...kb;en-us;823179
[VB 6] http://www.aaroncake...onics/vblpt.htm

Esse primeiro eh bem interessnte, ensina a controloar LCDs com a porta paralela usando C#.
Agora eh com vc..

Blz galera, preciso de esclarecer uma dúvida, tenho um campo data que não é obrigatório e quando ele não recebe nada eu não queria gravar no banco.

Só que no asp eu usava minhadata = null
e no vb.net como faço para determinar que o campo é vazio?

Acho que vc nao teria nenhum problema em usar a forma antiga.
Ou simplesmente, vc pode omitir o campo no INSERT.

nao dah! :~
o q eu kero é um q controle kd bit da lpt1, nao ke mande imprimir algo
mas vlw a inteção!

alguem mais saberia me ajudar?

Bom, veja bem.
Eu acho interessante vc procurar alguma automação ou componente disso para VB ou .NET (C++, C# e afins).
A parte de ASP é tecnicamente a mais facil. Ela só vai pegar a sua classe exposta em COM+ e realizar as tarefas do mesmo.

Basicamente, vc vai criar um componente numa linguagem especifica, o ASP só vai executar os metodos desse componente, uma vez que não existe uma forma nativa da linguagem fazer essa interação.

Ola,

Obrigado pelas respostas.


O que eu quero é poder conectar-me a um banco de dados na empresa matriz via internet usando o VB, o banco de dados pode ser o Mysql, o que não sei é como criar são os códigos de conexão.
Se o Vb não é o programa ideal para este fim, qual é este programa?


Obrigado mais uma vez,
andré

Cara.. como te falei.. o Access que nao oferece tal pq nao eh um sgbd.. agora o MySql.. assim como qualquer outro.. é facil fazer .. a mudança eh apenas a string de conexao...

ODBC 3.51 Remote database:"DRIVER={MySQL ODBC 3.51 Driver};SERVER=data.domain.com;PORT=3306;DATABASE=myDatabase; USER=myUsername;PASSWORD=myPassword;OPTION=3;"

ODBC 2.50 Remote database:"Driver={mySQL};Server=data.domain.com;Port=3306;Option=131072;Stmt=;Database=my-database;Uid=username;Pwd=password;"

Fonte: http://www.connectionstrings.com/

Pergunta 1: É só escapar ela como eu falei, ou transformar no código ASCII. Do jeito que está obviamente vai dar pau (!!!) hahahahaha

huaua na verdade eu estava tentnado falar isso que o WORM falou.... rs..

de qualquer forma a aspa simples entra de qualquer jeito hehe

[]'s

Olha só... a aspas simples é um caracter normal como todo outro.. o problema maior eh q poucos sabem usa-los como strings.

Dependendo do banco de dados.. isso pode variar.. se vc tiver utilizando Access, MSSQL .. pra vc por uma aspas simples .. vc deve duplicar as aspas.. e se vc estiver usando MySql vc deve usar uma barra invertida antes do caracter, para que ele entenda que o proximo caracter é uma string.. e nao um delimitador..

Sql = Replace(Sql, "'", "''")

Sql = Replace(Sql, "'", "\'")

Ola,

como faço para conectar-me a um banco de dados em servidor remoto via internet através do vb

Obrigado
André

Com um SGBD como o MSSQL vc consegue fazer isso.. a mudança é apenas na string de conexão.. agora com Access não..

<%

Dim strTitle
Dim arrTKeys
Dim arrKeys
Dim i

Function SearchArray(Item(), ItemToSearch())
  Dim i, j

  SearchArray = False

  For i = lBound(Item) To UBound(Item)
    For j = LBound(ItemToSearch) To UBound(ItemToSearch)
      If Trim(LCase(Item(i))) = Trim(LCase(ItemToSearch(j))) Then
        SearchArray = True
        Exit Function
      End If
    Next
  Next
End Function

%>

<%


'Replaces que juntam palavras compostas, preparando-as para a filtragem
titulo = "Morre nos Estados Unidos o professor e deputado José Dirceu."
strTitle = titulo
strTitle = Replace(strTitle, "Estados Unidos", "EstadosUnidos")
strTitle = Replace(strTitle, "Meio Ambiente", "MeioAmbiente")
strTitle = Replace(strTitle, "Marina Silva", "MarinaSilva")

%>


<%

'-------------------------------------------
'Area de Declaração de Categories / Keywords
'-------------------------------------------
Dim arrCats(12, 1)

arrCats(0, 0) = "Economia"
arrCats(0, 1) = Array("Economia","Inflação","PIB","leilão", _
                  "leiloa","indústria","industrial","emprego", _
                  "empregos","preço","economista","fábrica", _
                "fabricante","fabricantes","industriais")

arrCats(1, 0) = "Informática"
arrCats(1, 1) = Array("microcomputador","computador","software")

arrCats(2, 0) = "Governo"
arrCats(2, 1) = Array("Lula","Governo")

arrCats(3, 0) = "Educação"
arrCats(3, 1) = Array("educação","ENEM","universidade","graduação", _
  "estudantes","estudante","professor", _
  "professores","ensino")

arrCats(4, 0) = "Agropecuária"
arrCats(4, 1) = Array("grão","grãos","safra","estiagem",_
  "pescador","pescadores")

arrCats(5, 0) = "Meio Ambiente"
arrCats(5, 1) = Array("MarinaSilva","Ambiente","Ibama", _
                      "florestal","florestais","florestas")

arrCats(6, 0) = "Saúde"
arrCats(6, 1) = Array("saúde","remédios","anti-retroviais", _
  "anti-retroviral","hospitais","remédio", _
  "farmácia","farmácias")

arrCats(7, 0) = "Sociedade"
arrCats(7, 1) = Array("greve","temporal","chuva","inundação", _
  "preso","ONGs","PM","pobreza","segurança")

arrCats(8, 0) = "Política"
arrCats(8, 1) = Array("deputado","deputados","senador", _
                    "senadores","lei","provisória","Senado", _
  "Câmara","vota")

arrCats(9, 0) = "Esportes"
arrCats(9, 1) = Array("futebol","jogador","jogadores", _
  "basquete","atleta","atletas","atletismo")

arrCats(10, 0) = "Ciência e Tecnologia"
arrCats(10, 1) = Array("ciência","tecnologia")

arrCats(11, 0) = "Internacional"
arrCats(11, 1) = Array("Guatemala","Peru","Bolívia","Argentina", _
    "Uruguai","Mexico","EstadosUnidos","Equador")

arrCats(12, 0) = "Cultura e Lazer"
arrCats(12, 1) = Array("Exposição")

%>

<%

arrTKeys = Split(strTitle, " ")

For i = LBound(arrCats, 1) To UBound(arrCats, 1)
  If SearchArray(arrCats(i, 1), arrTKeys) Then
    categoria = arrCats(i, 0)
    Exit For
  End If
Next


If categoria = "" Then categoria = "Sociedade"

%>

Nesse bloco eu tirei a parte de keywords delimitadas por ponto e virgula e defini uma array dentro da 2a coluna de cada linha em arrCats.. basicamente um array dentro de um array bidimensional.

O LCase / Trim.. nao precisa ser aplicado sobre cada keyword ou sobre o titulo.. mas pode ser feito na função que faz a busca do array.

Bom.. qualquer coisa só chamar.

Felipe,

Eu fiz o seguinte:
Retirei a declaração e o array "arrCats" de dentro do loop e coloquei na parte acima, onde colho de uma outra página, os números das notícias, e que são inseridos em uma URL, permitindo a leitura e a interpretação das notícias, uma a uma pelo loop.
Começou a funcionar.
Retirei uma ou outra declaração de variável e sua respectiva (nothing) e passou a funcionar 99%.
Estou com um pequeno problema pois algumas notícias estão sendo cadastradas, às vezes 2 ou 3 vezes. E o curioso é que se eu mando "printar" apenas os números em um loop, eles não se repetem.
Mas também sei que não é a função e o array, já que se eu simplesmente mando imprimir as notícias sem filtrá-las, o problema já aparece.
Bom, mas isto já é outro post.
Como eu não fiz a última alteração:

Nesse bloco eu tirei a parte de keywords delimitadas por ponto e virgula e defini uma array dentro da 2a coluna de cada linha em arrCats.. basicamente um array dentro de um array bidimensional.

E já está funcionando, queria saber se você poderia fazer o favor de me explicar, o porque desta última parte. Tanto para eu entender e aprender o que você pensou, como para verificar se é melhor deixar como está ou fazê-la.

Muito obrigado!

Psillus

Bom.. seguinte.. a gente tinha definido um array de duas colunas já certo?

Pois bem na primeira coluna vai o nome da categoria e na segunda as keywords (isto para cada linha) ....

O que eu fiz ali.. foi inserir um outro array dentro da coluna 2 ao invez de criar uma string e dar split.. com isso vc tem um novo array dentro de cada coluna 2 de cada linha.

Assim

|-----------------------------|
| Categoria |  Keywords  |
|-----------------------------|
| Politica    | blabla;blabla|
| Esportes  | futebol;blab |
|-----------------------------|

|-----------------------------|
| Categoria |  Keywords  |
|-----------------------------|   
| Politica    | Array        | -> blabla  | blabla
| Esportes  | Array        | -> futebol | blabl
|----------------------------|

pode fazer assim tambem

nome="sdfdsfdsfdsfdsfsdfdsfsduivo.txt"
pegar =Len(nome) -4
Response.Write Left(nome, pegar)

E se o arquivo for com mais de 3 caracteres, ou com menos ...

Por isso sugerimos outras possiveis soluçoes


[]'s

Se a extensão nao existir ou a string for vazia, ocorre o erro tbm.
Ai vai mais duas alternativas:

  strArqExt = "teste.doc"
  arrFile = Split(strArqExt, ".")
  If UBound(arrFile) > 0 Then Redim Preserve arrFile(UBound(arrFile) - 1)
  Response.Write(Join(arrFile, "."))

***

  strArqExt = "teste.doc"
  If InStr(strArqExt, ".") = 0 Then 
    strArq = strArqExt
  Else
    strArq = Left(strArqExt, InStrRev(strArqExt, ".") - 1)
  End If
  Response.Write(strArq)

Maracuja,

Estou tentando comparar, uma variável que obtenho em um split de um Título de uma noticia, com outros splits que irão determinar a categoria.

Tipo assim:

Titulo = "A economia Brasileira cresceu 2,4% neste ano"

l = split("Economia;Inflação;PIB;leilão;leiloa;indústria;industrial;emprego;empregos", ";")
l1 = split("microcomputador;computador;software", ";")
l2 = split("Lula;Governo", ";")
l3 = split("educação;ENEM;universidade;graduação;estudantes;estudante;professor;professores;ensino médio;ensino fundamental", ";")
l4 = split("grão;grãos;safra;estiagem", ";")
l5 = split("Marina Silva;Ambiente;Ibama;florestal;florestais;florestas", ";")
l6 = split("saúde;remédios;anti-retroviais;anti-retroviral;hospitais;remédio;farmácia;farmácias", ";")
l7 = split("greve;temporal;chuva;inundação;preso", ";")
l8 = split("deputado;deputados;senador;senadores;lei;provisória", ";")

Se uma palavra que do split de Titulo for igual a uma palavra de um dos splits acima ele determina a categoria.

<%
IF split(Titulo, " ") = split (l, ";") then
categoria= "Economia"
end if
%>

Eu tentei usar o select case, mas quando eu digo que "l" vai variar no select case, ele irá variar automaticamente também o nome da categoria.
No exemplo acima, imagine se eu disser que l será igual a qualquer dos " l's " acima, para cada um destes " l's " haverá uma determinada categoria, tais como: Saúde, Educação, Governo, etc.

Não sei se piorou ou melhorou, qualquer coisa tento melhorar a explicação.

Obrigado.

Psillus

Cara.. bom vamos lá.. eu sugeria vc a guardar as informacoes em duas tabelas dinstintas ..(Categorias e Keywords) unindo FK_Cod_Cat em Keywords.

Talvez vc pode utilizar uma solucao diferente.. através de matrizes bidimensionais.
O problema de matrizes bidimensionais é que, de fato, vc não vai poder trabalhar com indices dinamicos para qtd de categorias.. (Redim Preserve só consegue alterar o ultimo indice da matriz), por isso isso vai ser ter q ser definido explicitamente na declaracao da matriz. Aí vai uma solução:

Function SearchArray(Item(), ItemToSearch())
  Dim i, j

  SearchArray = False

  For i = lBound(Item) To UBound(Item)
    For j = LBound(ItemToSearch) To UBound(ItemToSearch)
      If Item(i) = ItemToSearch(j) Then
        SearchArray = True
        Exit Function
      End If
    Next
  Next
End Function

Dim arrCats(1, 1)

strTitle = "the quickest brown fox jumps the lazy dog"
arrTKeys = Split(strTitle, " ")


arrCats(0, 0) = "Categoria 1"
arrCats(0, 1) = "quickest;teste;dog"
arrCats(1, 0) = "Categoria 2"
arrCats(1, 1) = "fox;lazy;dog"

For i = LBound(arrCats, 1) To UBound(arrCats, 1)
  arrKeys = Split(arrCats(i, 1), ";")

  If SearchArray(arrKeys, arrTKeys) Then
 	 Response.Write "Categoria: " & arrCats(i, 0)
 	 Exit For
  End If
Next

OK, isto eu compreendi!

Mas teria algum benefício, além de eu não ter que fazer frases quilométricas na tela, podendo usar "_, para cair para linha de baixo?

A propósito, o robô ficou porreta!

Ele só teima em cadastrar mais de uma vez uma ou outra notícia, na mesma passagem, mesmo eu tendo colocado um filtro (se numero = numero do banco), e saber que o filtro está funcionando, já que quando ocorre o refresh, ele não cadastra a notícia novamente.

Psillus

Bom.. cara eu acho que deixa seu codigo um pouco mais limpo.. e eviita Splits (conversoes String -> Array) deixando um pouco mais rapido.. mas eh coisa que vc nem consegue notar.

Tentei colocar o erro em "off" mas não mudou nada..

certo quanto a procedure eu criei.. agora como faço apra chamar ela no asp.net e passar as variaveis??

'Conecta com o banco SQL
Dim cn As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
'Abre o Banco
cn.Open()
'Edita Administrador

Dim Cmd As New SqlCommand()
Cmd.Connection = cn
Cmd.CommandText = "PROCEDURE_NAME"
Cmd.CommandType = CommandType.StoreProcedure
Cmd.Parameters.Add(New SqlParameter("@NomeCompleto", txtNome.Text))
Cmd.Parameters.Add(New SqlParameter("@Cpf", txtCpf.Text))
Cmd.Parameters.Add(New SqlParameter("@TelResidencial", txtResidencial.Text))
Cmd.Parameters.Add(New SqlParameter("@TelComercial", txtComercial.Text))
Cmd.Parameters.Add(New SqlParameter("@Celular", txtCelular.Text))
Cmd.Parameters.Add(New SqlParameter("@Email", txtEmail.Text))
Cmd.Parameters.Add(New SqlParameter("@Senha", txtSenha.Text))
Cmd.Parameters.Add(New SqlParameter("@id", Request.QueryString("id")))
Cmd.ExecuteNonQuery()
cn.Close()

cara, vc não vai conseguir usar o response.write para abrir uma janela...

o response.write imprime uma mensagem no browser....

tente fazer assim:

use o response.redirect ou o server.transfer ele vai enviar para uma outra pagina e nessa pagina vc usa o seu codigo JS

sAlert = "<script language=""JavaScript"" type=""text/javascript"">"
sAlert = sAlert & "window.alert('Você nâo tem Acesso! Favor entrar em Contato com o Departamento da Tecnologia/Sistemas!'); "
sAlert = sAlert & "window.top.location.href ='http://www.site.com';"
sAlert = sAlert & "window.close();</"
sAlert = sAlert & "script>"
Response.Write (sAlert)

O problema acontece pois quando vc fecha o script .. o ASP pensa que a TAG refere a ele pois %> = </script> .. separando a TAG isso na irá ocorrer.

como assim dá pau?!
tenta este que eh o do ftp (anonimo) para o source...
oac.hsc.uth.tmc.edu
em
/public/unix/WWW/rtf2html.tar

flws..

Tx.NET,

Desculpe cara, não sei o que estou fazendo de errado, mas não consigo baixar este arquivo de jeito nenhum... pode por gentileza me esclarecer com faço?

Valeu!

----------------------------------------------------------------------

Baixei o arquivo deste endereço:
www.tug.org/tex-archive/support/rtf2html/rtf2html.c

mas isto é na linguagem c, se alguém souber como posso usar isto na web, por favor me informe.

Valeu!


Evite posts consecutivos dentro do mesmo tópico, use o botao editar do topico em questao para inserir novas informações

Kara.. infelizmente vc nao pode fazer isso somente com ASP.

Talvez se vc criasse um componente em VB que lesse o RTF e gerasse o HTML valido.. e exportasse para o COM + .. (Server.CreateObject)... seria uma alternativa.

eu tentei converter o seu codigo para c# mais nao deu muito certo nao

sera que poderas converte-lo?

Kara, esse arquivo pode ser usado como arquivo de configuração sim..
E ai a definição do Washington fika de acordo com as expectativas.

De qualquer jeito, vc pode usar a namespace System.XML para ler utilizando um XmlDocument ... ai segue mais uma forma de ler seu XML:

<?xml version="1.0" encoding="utf-8" ?>
<appSettings>
<add key="TesteKey" value="123456" />
</appSettings>

// Importe a namespace no toppo do seu codigo ...
using System.Xml;

// ...
public String GetKey(String strKey)
{

  XmlDocument xmlDoc = new XmlDocument();
  XmlNode xmlNd;
  String strRet = "";

  xmlDoc.Load(@"C:\C#\XmlKey\webconfig.xml");
  xmlNd = xmlDoc.SelectSingleNode("/appSettings/add[@key='" + strKey + "']");

  if (xmlNd != null)
    strRet = xmlNd.Attributes["value"].Value;

  return strRet;

}

// Pra usar, passe o nome da chave
strVar = this.GetKey("TesteKey") //Vai retornar "123456"

PS: Nao mexo com C#, entao pode haver alguns erros de sintaxe.
Verifque se vc tem permissão de leitura sobre o arquivo

O metodo selectSingleNode seleciona um node (que é um elemento filho do XML) que esteja no caminho do XML. Por isso, eu passei o caminho dos elementos que chamam add.. e pedi pra recuperar somente o que tenha o atributo Key com o valor passado como parametro para o metodo.

Depois disso, se ele achou (nao retorna Null), insere na string de retorno o atributo Value do elemento encontrado.

Falowz.

joga sua session em uma variavel e trata ela

eu tentei fazer isso , mais não funcionou .. saca só:

<%
If IsEmpty(Session("login")) Then
Response.redirect("login_errado.asp")
Else
Response.Write("<b>Bem Vindo:</b> <u>" & Session("nome_completo"))
End if

function destaca(frase)
  destaca = replace(frase, Session("nome_completo"), "<b>" & Session("nome_completo") & "<b>")
end function

dai na hora de destacar:

<%
set rs = objConnection.Execute("SELECT (max(previstoxrealizado.realizado) *100 / metas.vlr_meta) AS TOTAL, metas.central, metas.mes FROM previstoxrealizado, metas WHERE previstoxrealizado.mes = metas.mes and previstoxrealizado.central = metas.central and metas.mes = '" & mes & "' GROUP BY central ORDER BY Total DESC ")
%>
<table width="285" border="1" cellpadding="0" cellspacing="0" bordercolor="#C0C0C0">
<%
If not rs.EOF Then
Do until rs.eof
if count mod 2 = 0 then
%>
<tr bgcolor="#FFFFFF">
<td width="56"><div align="right"><font face="Verdana, Arial" color="#003366" size="1"><%=Round(Rs("total"), 2)%>
                           %&nbsp; </font></div></td>
<td width="221"><font face="verdana" size="1">&nbsp;<%=destaca(rs("central"))%></font></td>
</tr>
<%else%>
<tr bgcolor="#F0F0F0">
<td width="56"><div align="right"><font face="Verdana, Arial" color="#003366" size="1"><%=Round(Rs("total"), 2)%>
                            %&nbsp; </font></div></td>
<td width="221"><font face="verdana" size="1">&nbsp;<%=destaca(rs("central"))%></font></td>
</tr>
<% end if
count = count + 1
%>
<%  rs.MoveNext
  Loop
  End if
%>

na verdade esse campo <%=destaca(rs("central"))%> é um campo que tem o mesmo nome da session , achei que eles sendo iguais funcionaria o replace, só que não funcionou...

na verdade eu gostaria que minha pagina ficace assim:

Olá Bem Vindo Apae Jaú

Resultados:

%       NOME
21%  Apae SP
22%  Apae Jaú
33%  Apae MG

Seguinte amigo..

essa tua função de destacar frase está mais que perfeito para o objetivo .. acontece que vc não fechou a tag <b> corretamente.. pode conferir lá.. se vc quiser usando a minha function.. tente algo do tipo:

Response.Write FormatWord(Rs("central"), Session("nome_completo"), "b")

e ae pessoal, eu queria destacar uma palavra em meu site ,

por exemplo eu tenho uma pagina que tem um texto, eu gostaria que toda vez que aparecer essa palavra ela fosse destacada

ex. a palavras Casa Grande que estiver nesse texto ficasse com uma cor vermelha

na verdade casa grande é uma variavel que eu recebo de um formulário..

alguém tem alguma idéia de como eu posso fazer ?

Vamos lá.. um replace da palavra pela palavra envolta pela tag resolve o problema:

Function FormatWord(Texto, Palavra, Formatacao)
  Dim sTmp

  sTmp = "<" & Formatacao & ">"
  sTmp = sTmp & Palavra

  If InStr(Formatacao, " ") > 0 Then
    sTmp = sTmp & "</" & Left(Formatacao, InStr(Formatacao, " ") - 1) & ">"
  Else
    sTmp = sTmp & "</" & Formatacao & ">"
  End If

  FormatWord = Replace(Texto, LCase(Palavra), LCase(sTmp))
End Function

Response.Write FormatWord("A bola é azul.", "azul", "font color=0000bb") & "<br>"
Response.Write FormatWord("A bola é azul.", "Bola", "b")

uhm, acho que eles pensaram que eu estava falando de "JavaScript", aquela: <script></script>, não é esta não ^^

Ok Ed, vou procurar saber mais sobre C#.

Obrigado.

Olha só.. de uma olhadinha em J# tbm para ver se vc gosta.

Nunca programei JScript server.. mas sendo uma das tantas lingugens q a plataforma oferece, deve haver classes de acesso a dados da mesma forma que com as outras.

Lembre-se que agora o q importa eh a plataforma. As linguagens são apenas formas diferentes de interpretação do framework.

Sendo server JAMAIS ela será exposta ao client.. uma vez que o processamento transforma em HTML.
Ainda no assunto.. ela pode ser sim escrita na mesma camada que o HTML.. (não precisa ser code-behind), porem ela nao é compilada e a chamada é feita da mesma forma que um script client somente usando runat=server para diferenciar:

<script language="language" runat="server">...</script>

ae galera! consegui o codigo!
a quem possa interessar!
ta ae

texto = rs("mensagem")
texto = trim(texto)
'para retirar os espaços em branco
 Dim i, j
    ' Percorro o inicio pra verificar...
    For i=1 To Len(texto) Step 2
     If Asc(Mid(texto,i,1))<>13 Then Exit For
    Next 
    texto=Mid(texto,i,Len(texto))
    ' Percorro o fim pra verificar...
    For j=Len(texto) To 1 Step -2
     If Asc(Mid(texto,j,1))<>10 Then Exit For
    Next 
    texto=Mid(texto,1,j)
texto = (replace(texto,chr(13),"<br>"))
'usando o replace pra ter as quebras no meio do texto

valeu ai galera!!!

So lembrando, não criei esse codigo não.
achei ele prontinho na pagina, so acresceneti o TRIM
ate mais

Ai vai uma versão alternativa que eu tenho aqui.
Similar a função Trim, a regra é usar InStr / InStrRev para verificar enquanto existir uma string/caracter no comeco e no fim da string. (O caracter é passado como parâmetro):

  Function TrimAlt(strBuf, strChar)
    While InStr(strBuf, strChar) = 1
      strBuf = Mid(strBuf, Len(strChar) + 1)
    Wend
    
    While InStrRev(strBuf, strChar) = Len(strBuf) - (Len(strChar) - 1) And Len(strBuf) > 0
      strBuf = Left(strBuf, Len(strBuf) - Len(strChar))
    Wend
    
    TrimAlt = strBuf
  End Function

Segue como exemplo:

  Dim strTeste

  strTeste = vbCrLf & vbCrLf & "Teste123" & vbCrLf & "Teste123" & VbCrLf
  Response.Write(Replace(TrimAlt(strTeste, vbCrLf), vbCrLf, "<br />")`)

dependedo da versão do IIS acho que não suporta descer niveis não...

por isso ele disse que funcionava em um server e nesse não...

As vezes isso foi bloqueado pelo server.. experimenta usar o include virtual..

Com left nao sei se rola, pois

1/3/2005 left 2 = 1/
21/3/2005 left 2 = 21

Queria ver se consigo com day, month e year!

Não converta o tipo para texto não.. se vc tem um tipo Datetime no banco de dados é pra fazer uso dele e aproveitar todas suas caracteristicas e funcionalidades para datas..

Na tua query la encima vc usou Day, Month e Year.. está correto ..
Agora olha só confere ai:

and month(b_data) = "& c_mes

Uma outra coisa que vc pode fazer antes de ir jogando querys no ASP é testá-las no BD antes .. Day(), Month() e Year() devem ser suportadas pelo MySQL.. se forem está correto

Olá... poxa agora me encontrei em outra duvida...

olha so o cod:

<%
dim caminho
dim fs
Set fs = Server.CreateObject("Scripting.FileSystemObject")
caminho = "C:\Inetpub\wwwroot\teste\dolar.csv"
'Verificando se o arquivo existe
Response.Write fs.FileExists(caminho)
'Abre o arquivo
Set objFile = fs.OpenTextFile(caminho)
'Enquanto o arquivo CSV nao termina
Do While Not objFile.AtEndOfStream
'Armarena uma linha do CSV
strText = objFile.readLine
Response.Write(strText & "<br>")
Loop
%>

o caminho tem que ser uma url...

então seria: caminho = "http://www.investsho...lude/Dolar.csv"

no caso em vez de OpenTextFile usaria o q?

Agradeço...

NOPS mew rapaz

FSO consegue fazer I/O de arquivos apenas no proprio server onde ocorre..
Para ler/gravar arquivos externos.. sobre outros dominios, vc deve usar um outro componente... XmlHttp ou semelhante...

Procure por XmlHttp no forum que vc vai encontrar alguns exemplos.

Essa abaixo é uma das formas alternativas que vc pode trabalhar com isso evitando Loop sobre Loop (que seria uma tremenda perda de performance, abrir recordset dentro do Loop).

strConnString = "Provider=SQLOLEDB; Data Source=(local); User Id=sa; Password=; Initial Catalog=pubs"

Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")

'A ideia neste SELECT é selecionar todas as SubCategorias e suas respectivas categorias
'Com Left Outer Join, todas as categorias serão mostradas, tendo ou não uma sub-categoria

strSql = "SELECT a.nomecategoria, b.nomesubcategoria "
strSql = strSql & "FROM tbCategorias a LEFT OUTER JOIN "
strSql = strSql & "tbSubCategorias b ON a.cod_categoria = b.cod_categoria "
strSql = strSql & "ORDER BY a.nomecategoria ASC, b.nomesubcategoria ASC"

objConn.Open(strConnString)
objRs.Open strSql, objConn

If Not objRs.EOF Then
  strHtml = "<table>"

  'Guarda o nome da Categoria Anterior
  'O Loop fará da seguinte forma, no primeiro registro, já começa mostrando a categoria e a sub-categoria
  'Depois do MoveNext se nao for EOF, verifica se a categoria alterou com a guardada na variavel strCatAnterior
  'Se nao mudou mostra a proxima sub-categoria
  'Se mudou mostra o cabeçalho da atual e já mostra o registro da sub-categoria

  strCatAnterior = objRs("nomecategoria")
  strHtml = strHtml & "<tr><td>" & strCatAnterior & "</td></tr>"
  Do While Not objRs.EOF
    'Tratando o Caso de uma categoria sem sub-categoria
    If Not IsNull(objRs("nomesubcategoria")) Then
     strHtml = strHtml & "<tr><td> &raquo; " & objRs("nomesubcategoria") & "</td></tr>"
 	 End If

    objRs.MoveNext

    If Not objRs.EOF Then
      strCatAtual = objRs("nomecategoria")
      If strCatAnterior <> strCatAtual Then
        strCatAnterior = strCatAtual
     	 strHtml = strHtml & "<tr><td>" & strCatAnterior & "</td></tr>"
      End If
    End If
  Loop

  strHtml = strHtml & "</table>"
End If

objRs.Close
objConn.Close

'No Final de tudo processa o Response.Write com o conteúdo da Variável
'Ou seja, vc processa essa ação no começo do WebForm, fecha a Connection e o Recordset e quando for usar ..
'Lança um Response.Write na variavel strHtml

Response.Write (strHtml)