<%
set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Dir = Request.ServerVariables("SCRIPT_NAME")
Dir = StrReverse(Dir)
Dir = Mid(Dir, InStr(1, Dir, "/"))
Dir = StrReverse(Dir)
letra = request("l")
If letra = "" then
pagina = "semletra.htm"
Else
pagina = letra &".htm"
End if
Arquivo = Server.MapPath(Dir) & "\" & pagina
Set InStream = FileObject.OpenTextFile (Arquivo,1, False)
conteudo = Trim(InStream.ReadAll)
%>
||||||||||||_______.:.______ Azecor Corretora de Seguros
________.:.__________ ||||||||||||||||||||
