<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Set objFileSys = Server.CreateObject("scripting.FileSystemObject") Set Thefolder = objFileSys.GetFolder(strCaminho_titleimg) Set Thefiles = TheFolder.files For Each Thefiles in TheFiles if TheFiles.Name = "title"&strTipContent&".gif" then TipContent = TheFiles.Name exit for end if next Set objFileSys = nothing Set Thefolder = nothing Set Thefiles = nothing %> <% 'Set objFileSys = Server.CreateObject("scripting.FileSystemObject") 'Set Thefolder = objFileSys.GetFolder(strCaminho_icoImg) 'Set Thefiles = TheFolder.files 'For Each Thefiles in TheFiles 'if TheFiles.Name = strTipContent&".jpg" then 'TipContent = TheFiles.Name 'exit for 'end if 'next 'Set objFileSys = nothing 'Set Thefolder = nothing 'Set Thefiles = nothing %>
<%if isEmpty(TipContent) then%><%else%><%end if%>
Prezado(a) Cliente,

Para ter acesso a está área, solicitamos que faça o seu cadastro no link abaixo. O preenchimento é rápido e tem como objetivo poder atendê-lo melhor a cada dia.
Lembramos que todas as informações preenchidas são confidenciais e portanto sigilosas.

Se vc já preencheu o cadastro efetue o login e navegue a vontade.

Obrigado.

<%if strMsg <> "" then%>
<%=strMsg%>

<%end IF%>
Digite seu CPF ou CNPJ, sem traços ou pontos
Senha:

">

Não é Cadastrado? Clique Aqui
Esqueceu sua Senha? Clique Aqui