ISAPE Rewrite 3

[fabinhosantos 0]

Pessoal

 

Estou preparando um site para divulgar eventos, gostaria que os eventos

fossem exibidos no google com url amigavel e que tambem o usuario

podesse acessar o evento diretamente.

 

EX:

www.meusite.com.br/evento.asp?id=2 ( atual )

www.meusite.com.br/evento/2/sao-joao-2011 ( nova forma )

 

evento = nome da pagina

id = id do evento no banco de dados

sao-joao-2011 = titulo do evento no banco de dados

 

Não entendo muito de SEO, essas novas url ficariam no sitemap? então ele teria que ser dinâmico certo?

 

Se Alguem tiver dicas e exemplos de como fazer eu agradeço.

 

valeu

[fabinhosantos 0]

Pessoal consegui assim:

 

RewriteEngine on
RewriteCompatibility2 On
RepeatLimit 200
RewriteBase 

RewriteRule ^/.htaccess$ /erros/404.asp
RewriteRule ^/evento/([0-9]+)(/[a-zA-Z0-9_-]+)?(.html)?$ /evento.asp?id=$1

 

Dessa forma não pesa para o site?

 

PROBLEMA:

 

Gente, estou gerando meu sitemap dinamicamente mas não estou conseguindo remover acentos e caracteres especiais usando as funções abaixo:

 

Function RemoveAcentos(ByVal Texto)
   Dim ComAcentos
   Dim SemAcentos
   Dim Resultado
Dim Cont
   'Conjunto de Caracteres com acentos
   ComAcentos = "ÁÍÓÚÉÄÏÖÜËÀÌÒÙÈÃÕÂÎÔÛÊáíóúéäïöüëàìòùèãõâîôûêÇç'"
   'Conjunto de Caracteres sem acentos
   SemAcentos = "AIOUEAIOUEAIOUEAOAIOUEaioueaioueaioueaoaioueCc-"
   Cont = 0
   Resultado = Texto
   Do While Cont < Len(ComAcentos)
Cont = Cont + 1
Resultado = Replace(Resultado, Mid(ComAcentos, Cont, 1), Mid(SemAcentos, Cont, 1))
   Loop
   RemoveAcentos = Resultado
End Function

Function RemoveCaracteresEspeciais(Palavra) 
Dim I 
Dim LCA(47) 
Dim LSA(47) 
'aqui vamos por o que queremos retirar
LCA(0) = "º" 
LCA(1) = "ª" 
LCA(2) = "°" 
LCA(3) = "'" 
LCA(4) = "¨" 
LCA(5) = "¬" 
LCA(6) = "&" 
LCA(7) = "°" 
LCA(8) = "¹" 
LCA(9) = "|" 
LCA(10) = "²" 
LCA(11) = "+" 
LCA(12) = "." 
LCA(13) = "/" 
LCA(14) = "!" 
LCA(15) = "@" 
LCA(16) = "#" 
LCA(17) = "$" 
LCA(18) = "%" 
LCA(19) = "(" 
LCA(20) = ")" 
LCA(21) = "~" 
LCA(22) = "^" 
LCA(23) = "{" 
LCA(24) = "}" 
LCA(25) = "]" 
LCA(26) = "[" 
LCA(27) = "\" 
LCA(28) = ";" 
LCA(29) = ":" 
LCA(30) = ">" 
LCA(31) = "<" 
LCA(32) = "*"
LCA(33) = "="
LCA(34) = " "
'aqui vamos por o que queremos no lugar de cada no código original está para remover os acentos. aqui eu mudei para retirar numeros e caracteres especiais.
LSA(0) = "" 
LSA(1) = "" 
LSA(2) = "" 
LSA(3) = "" 
LSA(4) = "" 
LSA(5) = "" 
LSA(6) = "" 
LSA(7) = "" 
LSA(8) = "" 
LSA(9) = "" 
LSA(10) = "" 
LSA(11) = "" 
LSA(12) = "" 
LSA(13) = "" 
LSA(14) = "" 
LSA(15) = "" 
LSA(16) = "" 
LSA(17) = "" 
LSA(18) = "" 
LSA(19) = "" 
LSA(20) = "" 
LSA(21) = "" 
LSA(22) = "" 
LSA(23) = "" 
LSA(24) = "" 
LSA(25) = "" 
LSA(26) = "" 
LSA(27) = "" 
LSA(28) = "" 
LSA(29) = "" 
LSA(30) = "" 
LSA(31) = "" 
LSA(32) = ""
LSA(33) = ""
LSA(34) = "-"
For i= 0 to UBound(LCA) 
Resultado = Replace(Palavra,LCA(i),LSA(i)) 
If Palavra <> Resultado Then 
	Palavra = "" 
	Palavra = Resultado 
End IF 
Next 
RemoveCaracteresEspeciais = Resultado 
End Function 


nova_url = RemoveAcentos(RemoveCaracteresEspeciais(RS("titulo"))) & ".html"

 

A única coisa que estou conseguindo é substituir espaço em branco por - entre as palavras.

 

OBS:

1- eu já tentei também com outras funções que achei pela net mas não remove os acentos...

 

2- minha página está definida como: response.Charset="utf-8", tem alguma coisa haver?

 

Se alguém puder me ajudar eu agradeço...

 

 

 

 

Pessoal

 

Estou preparando um site para divulgar eventos, gostaria que os eventos

fossem exibidos no google com url amigavel e que tambem o usuario

podesse acessar o evento diretamente.

 

EX:

www.meusite.com.br/evento.asp?id=2 ( atual )

www.meusite.com.br/evento/2/sao-joao-2011 ( nova forma )

 

evento = nome da pagina

id = id do evento no banco de dados

sao-joao-2011 = titulo do evento no banco de dados

 

Não entendo muito de SEO, essas novas url ficariam no sitemap? então ele teria que ser dinâmico certo?

 

Se Alguem tiver dicas e exemplos de como fazer eu agradeço.

 

valeu