<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Function Nome_Url(ByVal Palavra)
cacento = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ^~ºª°´`'?!.,#/“”:+–%$()"
sacento = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN"
texto = ""
If Palavra <> "" Then
For x = 1 To Len(Palavra)
letra = Mid(Palavra, x, 1)
pos_acento = InStr(cacento, letra)
If pos_acento > 0 Then
letra = Mid(sacento, pos_acento, 1)
End If
texto = texto & letra
Next
texto = LCASE(texto)
Nome_Url = Replace(texto," ","-")
End If
End Function
Set Menu_cmd = Server.CreateObject ("ADODB.Command")
Menu_cmd.ActiveConnection = MM_Loja_STRING
Menu_cmd.CommandText = "SELECT * FROM menu where menuarea = 3 ORDER BY MenuOrdem ASC"
Menu_cmd.Prepared = true
Set Menu = Menu_cmd.Execute
%>
Sindicato Seth
