<% response.expires = 0 Dim varLogin, varCodcli, varCadastro varCadastro = session("xcadastro") if session("xstatus") = 1 then varLogin = session("xlogin") varCodcli = TRIM(session("xcodcliente")) else response.redirect "../registro/cadastro.asp" end if %> <% DIM strTot, rsTot, conexaodb strTot = "SELECT COUNT(codigo) AS Totemp FROM anuncio " strTot = strTot & "WHERE codcliente = '" & varCodcli & "' " call abreConexao set rsTot = conexaodb.Execute(strTot) %> <% if rsTot("Totemp") >= 5 AND varLogin <> "abim200000" then response.redirect "lotado.asp" end if %> <% Dim rsNeg, strSQL set rsNeg = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM negocio ORDER BY codigo ASC" set rsNeg = conexaodb.Execute(strSQL) Dim rsSegin, strSQL1 set rsSegin = Server.CreateObject("ADODB.Recordset") strSQL1 = "SELECT * FROM segmento ORDER BY codigo ASC" set rsSegin = conexaodb.Execute(strSQL1) %> :: ABIM Comex
English Español
Sobre a ABIM Áreas de Atuação Objetivos Produtos e Serviços Por que associar-se Fale Conosco
  Login Senha  
 
 
Cadastre-se aqui
 
         
  Buscar Negócios:
  
 
   Enviar Anúncios
   Ver Anúncios
  
   Por que exportar
   Consórcios de Exportação
   Cotações de Frete
   BMF
   Legislação - SISCOMEX
   Calendário de Feiras
   Fuso Horário
 
<% if varCadastro = "pf" then %> Editar meu cadastro <% else %> Editar cadastro da empresa <% end if %>

Envie sua oferta ou demanda
  
     

Empresa:   <% = session("xempresa") %>
Responsável:   <% = session("xidentidade") %>
e-mail:   <% = session("xemail") %>
País:  <% = session("xpais") %>
   
Negócio:     
Setor:    
Texto:  
     
   
 
  Sobre ABIM Comex  -  Por que associar-se   -  Termos de Serviço  -  Política de Privacidade
© Copyright 2004 - ABIM Associeted Business International Market
<% rsSegin.Close rsTot.Close rsNeg.Close call fechaConexao %>