% '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 %>
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