<% 'Err.Clear 'On Error Resume Next vpaginax = Request("pagina") if trim(vpaginax) = "" or isnull(vpaginax) then vpaginax = "1" else vpgsel = request("pgsel") vpgcidade = request("pgcidade") vpgestado = request("pgestado") vpgsegmento = request("pgsegmento") vpglocal = request("pglocal") vano = request("vano") end if if vano = "" then vanoselecao = request.Form("ano_selecao") else vanoselecao = vano end if if trim(vanoselecao) = "" or isnull (vanoselecao) then vanoselecao = "Todos" vcompano = "" vcompano2 = "" else if vanoselecao <> "" and ucase(vanoselecao) <> "TODOS" then vcompano = "where ano = '" & vanoselecao & "' " vcompano2 = " and ano = '" & vanoselecao & "' " else vcompano = "" vcompano2 = "" end if end if 'response.Write(request.Form("selecao")) dim fs set fs=Server.CreateObject("Scripting.FileSystemObject") Dim vtxtArquivo Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/banco/tradeshow.mdb") & ";Persist Security Info=False" IF trim(request.Form("busca_feira")) <> "" then SQL3 = "SELECT * FROM calendario where feira LIKE '%" & request.Form("busca_feira") & "%' ORDER BY inicio_da_feira" Set rs=OBJdbConnection.Execute(SQL3) ELSE if (request.Form("selecao")="" or vpgsel = "Todos") and vpgcidade= "" and vpgestado= "" and vpgsegmento= "" and vpglocal= "" then vselecao = "todos" vdesc_selecao = "Todos" SQL = "SELECT * FROM calendario " & vcompano & " ORDER BY inicio_da_feira" Set rs=OBJdbConnection.Execute(SQL) else vselecao = request.Form("selecao") if vselecao = "cidade" or vpgcidade <> "" then vdesc_selecao = "Cidade" SQL = "SELECT DISTINCT cidade,ano FROM calendario " & vcompano & " ORDER BY cidade" Set rs2=OBJdbConnection.Execute(SQL) if request.Form("cidade_sel") <> "" or vpgcidade <> "" then if request.Form("cidade_sel") <> "" then vcidade2 = replace(request.Form("cidade_sel"),"_"," ") else vcidade2 = replace(vpgcidade,"_"," ") vselecao = "cidade" end if SQL = "SELECT * FROM calendario where CIDADE ='" & vcidade2 & "'" & vcompano2 & " ORDER BY inicio_da_feira" 'response.Write(sql) vpgcidade2 = vcidade2 Set rs=OBJdbConnection.Execute(SQL) else SQL2 = "SELECT * FROM calendario " & vcompano & " ORDER BY inicio_da_feira" Set rs=OBJdbConnection.Execute(SQL2) vcidade2 = " " end if end if if vselecao = "estado" or vpgestado <> "" then vdesc_selecao = "Estado" SQL = "SELECT DISTINCT estado,ano FROM calendario " & vcompano & " ORDER BY estado" 'response.Write(sql) Set rs2=OBJdbConnection.Execute(SQL) if request.Form("estado_sel") <> "" or vpgestado <> "" then if request.Form("estado_sel") <> "" then vestado2 = replace(request.Form("estado_sel"),"_"," ") else vestado2 = replace(vpgestado,"_"," ") vselecao = "estado" end if SQL = "SELECT * FROM calendario where ESTADO ='" & vestado2 & "'" & vcompano2 & " ORDER BY inicio_da_feira" vpgestado2 = vestado2 Set rs=OBJdbConnection.Execute(SQL) else SQL2 = "SELECT * FROM calendario " & vcompano & " ORDER BY inicio_da_feira" Set rs=OBJdbConnection.Execute(SQL2) end if end if if vselecao = "segmento" or vpgsegmento <> "" then vdesc_selecao = "Segmento" SQL = "SELECT DISTINCT segmento_1,segmento_2,segmento_3,segmento_4,ano FROM calendario " & vcompano Set rs2=OBJdbConnection.Execute(SQL) SQL2 = "DELETE * FROM TEMP_SEGMENTO" Set rs3=OBJdbConnection.Execute(SQL2) rs2.movefirst do while not rs2.eof if rs2("segmento_1") <> "" then vsegtemp = rs2("segmento_1") sql3 = "INSERT INTO TEMP_SEGMENTO (segmento) VALUES('" & vsegtemp & "')" Set rs3=OBJdbConnection.Execute(sql3) end if if rs2("segmento_2") <> "" then vsegtemp = rs2("segmento_2") sql3 = "INSERT INTO TEMP_SEGMENTO (segmento) VALUES('" & vsegtemp & "')" Set rs3=OBJdbConnection.Execute(sql3) end if if rs2("segmento_3") <> "" then vsegtemp = rs2("segmento_3") sql3 = "INSERT INTO TEMP_SEGMENTO (segmento) VALUES('" & vsegtemp & "')" Set rs3=OBJdbConnection.Execute(sql3) end if if rs2("segmento_4") <> "" then vsegtemp = rs2("segmento_4") sql3 = "INSERT INTO TEMP_SEGMENTO (segmento) VALUES('" & vsegtemp & "')" Set rs3=OBJdbConnection.Execute(sql3) end if rs2.movenext loop SQL = "SELECT DISTINCT segmento FROM TEMP_SEGMENTO ORDER BY segmento" Set rs2=OBJdbConnection.Execute(SQL) if request.Form("segmento_sel") <> "" or vpgsegmento <> "" then if request.Form("segmento_sel") <> "" then vsegmento2 = replace(request.Form("segmento_sel"),"_"," ") else vsegmento2 = replace(vpgsegmento,"_"," ") vselecao = "segmento" end if SQL = "SELECT * FROM calendario where (segmento_1 ='" & vsegmento2 & "'" & " OR segmento_2 ='" & vsegmento2 & "'" & " OR segmento_3 ='" & vsegmento2 & "'" & " OR segmento_4 ='" & vsegmento2 & "') " & vcompano2 & " ORDER BY inicio_da_feira" vpgsegmento2 = vsegmento2 'response.Write(sql) Set rs=OBJdbConnection.Execute(SQL) else SQL = "SELECT * FROM calendario " & vcompano & " ORDER BY inicio_da_feira" Set rs=OBJdbConnection.Execute(SQL) end if end if if vselecao = "local" or vpglocal <> "" then vdesc_selecao = "Local de exposição" SQL = "SELECT DISTINCT local_exposicao,ano FROM calendario order by local_exposicao" & vcompano Set rs2=OBJdbConnection.Execute(SQL) if request.Form("local_sel") <> "" or vpglocal <> "" then if request.Form("local_sel") <> "" then vlocal2 = replace(request.Form("local_sel"),"_"," ") else vlocal2 = replace(vpglocal,"_"," ") vselecao = "local" end if SQL = "SELECT * FROM calendario where LOCAL_exposicao ='" & vlocal2 & "'" & vcompano2 & " ORDER BY inicio_da_feira" vpglocal2 = vlocal2 Set rs=OBJdbConnection.Execute(SQL) else SQL = "SELECT * FROM calendario " & vcompano & " ORDER BY inicio_da_feira" Set rs=OBJdbConnection.Execute(SQL) end if end if if vselecao = "todos" then vdesc_selecao = "Todos" SQL2 = "SELECT * FROM calendario ORDER BY inicio_da_feira" Set rs=OBJdbConnection.Execute(SQL2) end if end if END IF 'SQL = "UPDATE calendario set feira = 'Expo Guará' WHERE item = 1 " 'Set RSCustomerList=OBJdbConnection.Execute(SQL) vachou = 0 if not rs.eof then vachou = 1 vcr = 0 vcontareg = 250 do while not rs.eof vcr = vcr + 1 rs.movenext loop if vcr < 5 then vcontareg = 270 end if if vcr > 4 and vcr <=8 then vcontareg = 490 end if if vcr > 8 and vcr <=12 then vcontareg = 720 end if if vcr > 12 then vcontareg = 930 end if rs.movefirst ' FAZ CONTAGEM DE PAGINAS NA SELECAO vtotalregistros = 0 vtotalf=0 do while not rs.eof vtotalregistros = vtotalregistros + 1 rs.movenext loop vfor = ((vpaginax -1) * 10) + 1 if vfor = 1 then rs.movefirst else rs.movefirst for y = 1 to vfor -1 if not rs.eof then rs.movenext end if next end if vtpag = ROUND(vtotalregistros / 10,1) if vtpag > int(vtpag) then vtpag = int(vtpag) + 1 end if vap = "" if vtpag = 0 then vtpag = 1 end if for y = 1 to vtpag vap = vap & y & "^" next varray = Split(vap,"^") vtx = (vcr - vfor) + 1 if vtx < 5 then vcontareg = 270 end if if vtx > 4 and vtx <=8 then vcontareg = 490 end if if vtx > 8 and vtx <=12 then vcontareg = 720 end if if vtx > 12 then vcontareg = 930 end if end if %>
T : (11)2859-5568 | E-mail : contato@tradeshow.com.br

TRADESHOW

Conheça o mundo das feiras de exposição

O seu evento pode ir além dos dias de programação

Leia mais sobre isso...

TRADESHOW - CALENDÁRIO DE FEIRAS & EVENTOS

Buscar por feira (digite nome ou parte do nome ) :
Feiras e eventos consultar por ano :

Pagina <% = vpaginax %>
  • > Consulta por :
  • <% if vselecao = "cidade" then %>
    > > Cidade :
    <% end if %> <% if vselecao = "estado" then %>
    > > Estado :
    <% end if %> <% if vselecao = "local" then %>
    > > Local :
    <% end if %> <% if vselecao = "segmento" then %>
    > > Segmento :
    <% end if %>
<% vtop = 0 %> <% vconta = 1 %> <% vtot = 1 %> <% vleft = 0 %> <% do while not rs.eof %>
    • <% = rs("feira")%>(<% = rs("codigo")%>)

    • <% = rs("resumo")%>

    • Segmento : <% if rs("segmento_1")<> "" then %> <% = rs("segmento_1")%> <% end if %> <% if rs("segmento_2")<> "" then %> | <% = rs("segmento_2")%> <% end if %> <% if rs("segmento_3")<> "" then %> | <% = rs("segmento_3")%> <% end if %> <% if rs("segmento_4")<> "" then %> | <% = rs("segmento_4")%> <% end if %>
    • De <% = rs("inicio_da_feira")%> Até <% = rs("fim_feira")%>
    • Local : <% = rs("local_exposicao")%>
    • Cidade : <% = rs("cidade")%> - <% = rs("estado")%>
<% rs.movenext %> <% vconta = vconta + 1 %> <% if vconta > 10 then %> <% exit do %> <% end if %> <% loop %>
<%if vachou = 1 then %>
Total : <% =vcr %> | Páginas :<% for w = 0 to Ubound(varray) %> <% if w+1 = cdbl(vpaginax) then %> <% vcolor = "#FF0000" %> <% else %> <% vcolor = "#0000FF" %> <% end if %> <% =varray(w)%> <% next %>
<% else %>
Total : Não foram encontrados resultados para a busca
<% end if %>

TRADESHOW - Trabalhando para o sucesso do seu evento

  • Filmagens e entrevistas

    Realizamos durante a feira uma entrevista onde o expositor poderá esclarecer o papel da empresa no mercado e mostrar com detalhes o custo x beneficio dos seus produtos.

    Leia mais...

  • Fotografia profissional

    Não deixe seu evento terminar em 3 dias, fotografamos seu Stand e fazemos uma matéria, divulgamos durante todo o ano até a próxima feira. O histórico de todas as suas exposições ficam gravados e registrados.

    Leia mais...

  • Call Center, E-Mail Marketing e Publicidade

    Não adianta expor na feira se você não informa seus principais clientes e procura atrair novos visitantes. Garanta a presença de clientes e aumente suas vendas na feira. Executamos uma campanha meses antes da feira para atrair cliente oferecendo descontos e vantagens para visitar o seu Stand e fechar bons negócios.

    Leia mais...

Serviços de Buffet, Drinks e Alimentos

BUFFET

Na hora de conversar sobre negócios, um Stand preparado para oferecer ao visitante um café ou um bom aperitivo faz com que ele se sinta bem em estar no ambiente, isso vai mostrar que a empresa se preoculpa com o bem estar e conforto dos seus clientes.

Hostess

Escolha a pessoa certa para representar o seu produto, recepcionistas bilingues, com estilo e elegância nossas Hostess vão apresentar o que há de melhor no seu Stand

Serviços especiais

Oferecemos serviços de hospedagesn com pacotes e preços reduzidos para os expositores e seus cliente

Serviços de translado e recepção em aeroportos, translado para hotel e feira, locação de automóveis, com interpretes bilingues

Montagem e desmontagem de Stands, criação e design. Construimos seu Stand de acordo com suas necessidades.

Banners para publicidade, grandes tamanhos, alta resolução, fotografamos, fazemos a diagramação, impressão e montagem