<%@LANGUAGE="VBSCRIPT"%> <% ' Declarando as informações de Aviso ' Declarando as variáveis Dim VS_Pagina Dim VS_EMAIL Dim VS_Contato Dim Conn Dim RS // cnpj Parceiro e Responsavel pelo cliente. VS_DocSujei = "27348822000114" Call Abre_Conexao // Localiza o Logo Tipo do Parceiro. VS_LogoTipo = fLocLTCli(VS_DocSujei) // Localiza o EMAIL do Parceiro. VS_EMDocSujei = fLocEMCli(VS_DocSujei) IF (VS_DocSujei <> "27348822000114") Then Response.Write("Acesso não permitido! Cnpj: " & VS_DocSujei) Response.End() End IF %> Shoes Net World | Empresa Shoes Net World | Empresa