Jump to content

Legionario-rs

Members
  • Content count

    93
  • Joined

  • Last visited

Community Reputation

0 Comum

About Legionario-rs

  • Birthday 02/05/1980

Informações Pessoais

  • Sexo
    Masculino
  • Localização
    Araranguá/SC

Contato

  • Site Pessoal
    http://www.webartecia.com.br

Recent Profile Visitors

599796 profile views
  1. Legionario-rs

    Erro na busca

    Bom dia pessoal, Será que alguém pode me dar uma luz sobre isso? Vou postar o código mas acontece o seguinte: Mesmo com os itens configurados para não serem mostrados ele continua mostrando mas somente quando faço a pesquisa. Tem outros modos de listar todos os itens estes funcionam perfeitamente mas na pesquisa acontece isso. Se alguém poder ajudar agradeço. <% Dim col,colu,lista,cid_id,cid_nome,nome,lista_anunciante,msgnada lista=Request.querystring("lista") cid_id=Request.querystring("cid_id") cid_nome=Request.querystring("cid_nome") nome=Request.querystring("nome") %> <div class="site-section bg-light"> <div class="container"> <div class="row justify-content-center mb-5"> <div class="col-md-7 text-center border-primary"> <h3><font color="green">Anunciantes Ativos</font></h3> </div> </div> <div class="row"> <% Select Case lista Case "cidade" set lista_anunciante = lojaDB.Execute("SELECT * FROM anunciantes WHERE cid_id="& cid_id &" AND disp='S' ORDER BY nome") msgnada = "<h5>No momento não dispomos de nenhum comércio nesta região.</h5>" Case "busca" set lista_anunciante = lojaDB.Execute("SELECT * FROM anunciantes WHERE nome LIKE '%"& nome &"%' OR descricaop LIKE '%"& nome &"%' OR descricaog LIKE '%"& nome &"%' OR imagem LIKE '%"& nome &"%' OR imagem2 LIKE '%"& nome &"%' OR imagem3 LIKE '%"& nome &"%' OR imagem4 LIKE '%"& nome &"%' OR imagem5 LIKE '%"& nome &"%' OR imagem6 LIKE '%"& nome &"%' OR imagem7 LIKE '%"& nome &"%' OR imagem8 LIKE '%"& nome &"%' OR imagem9 LIKE '%"& nome &"%' OR imagem10 LIKE '%"& nome &"%' AND disp='S' ORDER BY nome") msgnada = "<h5>Nenhum comércio localizado com esse nome.</h5>" Case Else %> <script>window.location="./index.asp"</script> <% End Select If lista_anunciante.EOF Then Response.Write "" & msgnada & "" Else %> <% col=1 if not lista_anunciante.eof then colu=2 response.write "" while not lista_anunciante.eof Dim com_cid_id,com_id,com_nome,com_descricaop,com_imagem,com_data,com_mapalink,com_whats while not lista_anunciante.EOF com_cid_id = lista_anunciante("cid_id") com_id = lista_anunciante("id") com_nome = lista_anunciante("nome") com_descricaop = lista_anunciante("descricaop") com_imagem = lista_anunciante("imagem") com_data = lista_anunciante("data") com_mapalink = lista_anunciante("mapalink") com_whats = lista_anunciante("whats") %> <div class="col-md-6 mb-4 mb-lg-4 col-lg-4"> <div class="listing-item"> <div class="listing-image"> <img src="images/<%=com_imagem%>" alt="<%=com_nome%>" class="img-fluid"> </div> <div class="listing-item-content"> <a href="<%=com_mapalink%>" class="bookmark" data-toggle="tooltip" data-placement="left" title="Localização" target="new"><span class="icon-map"></span></a> <h2><a href="http://api.whatsapp.com/send?1=pt_BR&phone=<%=com_whats%>" style="position:absolute; top:-30px;" class="bookmark" target="new"><span class="icon-whatsapp"></span></a></h2> <h2 class="mb-1"><a href="detalheanunciante.asp?com_id=<%=com_id%>&url_comp=<%=Server.UrlEncode(Request.ServerVariables("QUERY_STRING"))%>"><%=left(com_nome ,23) %>...</a></h2> <span class="address"><%=com_descricaop%></span> </div> </div> </div> <% if colu=col then response.write "<tr><td>" colu=1 else response.write "<td>" colu=colu+1 end if lista_anunciante.movenext wend wend response.write "" end if end if lista_anunciante.close set lista_anunciante=nothing %> </div> </div> </div>
  2. Legionario-rs

    Erro na busca

    Boa tarde pessoal, Será que alguém pode me dar uma luz sobre isso? Vou postar o código mas acontece o seguinte: Mesmo com os itens configurados para não serem mostrados ele continua mostrando mas somente quando faço a pesquisa. Tem outros modos de listar todos os itens estes funcionam perfeitamente mas na pesquisa acontece isso. Se alguém poder ajudar agradeço. <% Dim col,colu,lista,cid_id,cid_nome,nome,lista_anunciante,msgnada lista=Request.querystring("lista") cid_id=Request.querystring("cid_id") cid_nome=Request.querystring("cid_nome") nome=Request.querystring("nome") %> <div class="site-section bg-light"> <div class="container"> <div class="row justify-content-center mb-5"> <div class="col-md-7 text-center border-primary"> <h3><font color="green">Anunciantes Ativos</font></h3> </div> </div> <div class="row"> <% Select Case lista Case "cidade" set lista_anunciante = lojaDB.Execute("SELECT * FROM anunciantes WHERE cid_id="& cid_id &" AND disp='S' ORDER BY nome") msgnada = "<h5>No momento não dispomos de nenhum comércio nesta região.</h5>" Case "busca" set lista_anunciante = lojaDB.Execute("SELECT * FROM anunciantes WHERE nome LIKE '%"& nome &"%' OR descricaop LIKE '%"& nome &"%' OR descricaog LIKE '%"& nome &"%' OR imagem LIKE '%"& nome &"%' OR imagem2 LIKE '%"& nome &"%' OR imagem3 LIKE '%"& nome &"%' OR imagem4 LIKE '%"& nome &"%' OR imagem5 LIKE '%"& nome &"%' OR imagem6 LIKE '%"& nome &"%' OR imagem7 LIKE '%"& nome &"%' OR imagem8 LIKE '%"& nome &"%' OR imagem9 LIKE '%"& nome &"%' OR imagem10 LIKE '%"& nome &"%' AND disp='S' ORDER BY nome") msgnada = "<h5>Nenhum comércio localizado com esse nome.</h5>" Case Else %> <script>window.location="./index.asp"</script> <% End Select If lista_anunciante.EOF Then Response.Write "" & msgnada & "" Else %> <% col=1 if not lista_anunciante.eof then colu=2 response.write "" while not lista_anunciante.eof Dim com_cid_id,com_id,com_nome,com_descricaop,com_imagem,com_data,com_mapalink,com_whats while not lista_anunciante.EOF com_cid_id = lista_anunciante("cid_id") com_id = lista_anunciante("id") com_nome = lista_anunciante("nome") com_descricaop = lista_anunciante("descricaop") com_imagem = lista_anunciante("imagem") com_data = lista_anunciante("data") com_mapalink = lista_anunciante("mapalink") com_whats = lista_anunciante("whats") %> <div class="col-md-6 mb-4 mb-lg-4 col-lg-4"> <div class="listing-item"> <div class="listing-image"> <img src="images/<%=com_imagem%>" alt="<%=com_nome%>" class="img-fluid"> </div> <div class="listing-item-content"> <a href="<%=com_mapalink%>" class="bookmark" data-toggle="tooltip" data-placement="left" title="Localização" target="new"><span class="icon-map"></span></a> <h2><a href="http://api.whatsapp.com/send?1=pt_BR&phone=<%=com_whats%>" style="position:absolute; top:-30px;" class="bookmark" target="new"><span class="icon-whatsapp"></span></a></h2> <h2 class="mb-1"><a href="detalheanunciante.asp?com_id=<%=com_id%>&url_comp=<%=Server.UrlEncode(Request.ServerVariables("QUERY_STRING"))%>"><%=left(com_nome ,23) %>...</a></h2> <span class="address"><%=com_descricaop%></span> </div> </div> </div> <% if colu=col then response.write "<tr><td>" colu=1 else response.write "<td>" colu=colu+1 end if lista_anunciante.movenext wend wend response.write "" end if end if lista_anunciante.close set lista_anunciante=nothing %> </div> </div> </div>
  3. Legionario-rs

    Mostrar quantidade de registros

    Bom dia pessoal, Alguém pode postar um modelo de script que conte a quantidade de registros de uma tabela chamada comércios e imprima na tela desta forma: Restaurantes - (6) Lanchonetes - (5) Bares - (10) Agradeço demais
  4. Legionario-rs

    Mostra imagem

    Boa noite pessoal, Vou postar o código inteiro da página quem sabe alguém pode me ajudar, abraço!!! <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <% Dim veic_id,veic_nome,veic_tipocambio,veic_tipocombustivel,veic_placa,veic_km,veic_tipomarca,veic_tipoportas,veic_tipocabine,veic_tiposuspensao,veic_tipotracao,veic_comp_valor,veic_obs,veic_anofabricacao,veic_anomodelo,veic_cor,veic_preco,veic_img_01,veic_img_02,veic_img_03,veic_img_04,veic_img_05,veic_img_06,veic_img_07,veic_img_08,veic_img_09,veic_img_10,veic_img_11,veic_img_12,veic_img_13,veic_img_14,veic_img_15,veic_airbag,veic_airbagduplo,veic_alarme,veic_arcondicionado,veic_arquente,veic_bagageiro,veic_bancoseletricos,veic_bancosdecouro,veic_blindado,veic_cameradere,veic_cdplayer,veic_computadordebordo,veic_contagiros,veic_desembacador,veic_direcaohidraulica,veic_disqueteira,veic_faroldeneblina,veic_freiosabs,veic_freiosadisco,veic_interface,veic_kitmultimidia,veic_limpadortraseiro,veic_lonamaritima,veic_mp3player,veic_partidaeletrica,veic_pilotoautomatico,veic_protetordecacamba,veic_radio,veic_retrovisoreseletricos,veic_rodasdeligaleve,veic_sensordechuva,veic_sensordeestacionamento,veic_tetosolar,veic_travaseletricas,veic_turbo,veic_vidroseletricos,veic_vidrosverdes,veic_volanteregulaaltura,veic_deficiente,veic_interclima,veic_intercooler,veic_rodoar,veic_sofacama,veic_detalhe,url_comp veic_id = Request.querystring("veic_id") url_comp = Server.UrlEncode(Request.querystring("url_comp")) set veic_detalhe = lojaDB.Execute("SELECT * FROM veiculos WHERE id="& veic_id &" AND disp='S'") veic_nome = veic_detalhe("nome") veic_anofabricacao = veic_detalhe("anofabricacao") veic_anomodelo = veic_detalhe("anomodelo") veic_cor = veic_detalhe("cor") veic_tipocambio = veic_detalhe("tipocambio") veic_tipocombustivel = veic_detalhe("tipocombustivel") veic_placa = veic_detalhe("placa") veic_km = veic_detalhe("km") veic_tipomarca = veic_detalhe("tipomarca") veic_tipoportas = veic_detalhe("tipoportas") veic_tipocabine = veic_detalhe("tipocabine") veic_tiposuspensao = veic_detalhe("tiposuspensao") veic_tipotracao = veic_detalhe("tipotracao") veic_comp_valor = veic_detalhe("comp_valor") veic_obs = veic_detalhe("obs") veic_preco = veic_detalhe("preco") veic_img_01 = veic_detalhe("img_01") veic_img_02 = veic_detalhe("img_02") veic_img_03 = veic_detalhe("img_03") veic_img_04 = veic_detalhe("img_04") veic_img_05 = veic_detalhe("img_05") veic_img_06 = veic_detalhe("img_06") veic_img_07 = veic_detalhe("img_07") veic_img_08 = veic_detalhe("img_08") veic_img_09 = veic_detalhe("img_09") veic_img_10 = veic_detalhe("img_10") veic_img_11 = veic_detalhe("img_11") veic_img_12 = veic_detalhe("img_12") veic_img_13 = veic_detalhe("img_13") veic_img_14 = veic_detalhe("img_14") veic_img_15 = veic_detalhe("img_15") veic_airbag = veic_detalhe("airbag") veic_airbagduplo = veic_detalhe("airbagduplo") veic_alarme = veic_detalhe("alarme") veic_arcondicionado = veic_detalhe("arcondicionado") veic_arquente = veic_detalhe("arquente") veic_bagageiro = veic_detalhe("bagageiro") veic_bancoseletricos = veic_detalhe("bancoseletricos") veic_bancosdecouro = veic_detalhe("bancosdecouro") veic_blindado = veic_detalhe("blindado") veic_cameradere = veic_detalhe("cameradere") veic_cdplayer = veic_detalhe("cdplayer") veic_computadordebordo = veic_detalhe("computadordebordo") veic_contagiros = veic_detalhe("contagiros") veic_desembacador = veic_detalhe("desembacador") veic_direcaohidraulica = veic_detalhe("direcaohidraulica") veic_disqueteira = veic_detalhe("disqueteira") veic_faroldeneblina = veic_detalhe("faroldeneblina") veic_freiosabs = veic_detalhe("freiosabs") veic_freiosadisco = veic_detalhe("freiosadisco") veic_interface = veic_detalhe("interface") veic_kitmultimidia = veic_detalhe("kitmultimidia") veic_limpadortraseiro = veic_detalhe("limpadortraseiro") veic_lonamaritima = veic_detalhe("lonamaritima") veic_mp3player = veic_detalhe("mp3player") veic_partidaeletrica = veic_detalhe("partidaeletrica") veic_pilotoautomatico = veic_detalhe("pilotoautomatico") veic_protetordecacamba = veic_detalhe("protetordecacamba") veic_radio = veic_detalhe("radio") veic_retrovisoreseletricos = veic_detalhe("retrovisoreseletricos") veic_rodasdeligaleve = veic_detalhe("rodasdeligaleve") veic_sensordechuva = veic_detalhe("sensordechuva") veic_sensordeestacionamento = veic_detalhe("sensordeestacionamento") veic_tetosolar = veic_detalhe("tetosolar") veic_travaseletricas = veic_detalhe("travaseletricas") veic_turbo = veic_detalhe("turbo") veic_vidroseletricos = veic_detalhe("vidroseletricos") veic_vidrosverdes = veic_detalhe("vidrosverdes") veic_volanteregulaaltura = veic_detalhe("volanteregulaaltura") veic_deficiente = veic_detalhe("deficiente") veic_interclima = veic_detalhe("interclima") veic_intercooler = veic_detalhe("intercooler") veic_rodoar = veic_detalhe("rodoar") veic_sofacama = veic_detalhe("sofacama") veic_detalhe.Close set veic_detalhe = Nothing %> <!-- main --> <div id="main2"> <div id="intro2"> <h2><font color=red><%=veic_nome%></font> - <a href="<%=Request.ServerVariables("HTTP_REFERER")%>">Voltar</a></h2> </div> <!-- bits --> <div id="bits"> <div class="bit"> <div class="photo"> <img src="./images/<%=veic_img_01%>" width=680 title="<%=veic_nome%>" /> </div> <p><b>Opcionais e Observações:</b></p> <div class="bit last2"> <%If veic_airbag="Air Bag, " Then Response.Write "Air Bag, " End If%> <%If veic_airbagduplo="Air Bag Duplo, " Then Response.Write "Air Bag Duplo, " End If%> <%If veic_alarme="Alarme, " Then Response.Write "Alarme, " End If%> <%If veic_arcondicionado="Ar Condicionado, " Then Response.Write "Ar Condicionado, " End If%> <%If veic_arquente="Ar Quente, " Then Response.Write "Ar Quente, " End If%> <%If veic_bagageiro="Bagageiro, " Then Response.Write "Bagageiro, " End If%> <%If veic_bancoseletricos="Bancos Elétricos, " Then Response.Write "Bancos Elétricos, " End If%> <%If veic_bancosdecouro="Bancos de Couro, " Then Response.Write "Bancos de Couro, " End If%> <%If veic_blindado="Blindado, " Then Response.Write "Blindado, " End If%> <%If veic_cameradere="Camera de Ré, " Then Response.Write "Camera de Ré, " End If%> <%If veic_cdplayer="CD Player, " Then Response.Write "CD Player, " End If%> <%If veic_computadordebordo="Computador de Bordo, " Then Response.Write "Computador de Bordo, " End If%> <%If veic_contagiros="Contagiros, " Then Response.Write "Contagiros, " End If%> <%If veic_desembacador="Desembaçador, " Then Response.Write "Desembaçador, " End If%> <%If veic_direcaohidraulica="Direcão Hidráulica, " Then Response.Write "Direcão Hidráulica, " End If%> <%If veic_disqueteira="Disqueteira, " Then Response.Write "Disqueteira, " End If%> <%If veic_faroldeneblina="Farol de Neblina, " Then Response.Write "Farol de Neblina, " End If%> <%If veic_freiosabs="Freios ABS, " Then Response.Write "Freios ABS, " End If%> <%If veic_freiosadisco="Freios a Disco, " Then Response.Write "Freios a Disco, " End If%> <%If veic_interface="Interface, " Then Response.Write "Interface, " End If%> <%If veic_kitmultimidia="Kit Multimidia, " Then Response.Write "Kit Multimidia, " End If%> <%If veic_limpadortraseiro="Limpador Traseiro, " Then Response.Write "Limpador Traseiro, " End If%> <%If veic_lonamaritima="Lona Marítima, " Then Response.Write "Lona Marítima, " End If%> <%If veic_mp3player="MP3 Player, " Then Response.Write "MP3 Player, " End If%> <%If veic_partidaeletrica="Partida Elétrica, " Then Response.Write "Partida Elétrica, " End If%> <%If veic_pilotoautomatico="Piloto Automático, " Then Response.Write "Piloto Automático, " End If%> <%If veic_protetordecacamba="Protetor de Caçamba, " Then Response.Write "Protetor de Caçamba, " End If%> <%If veic_radio="Rádio, " Then Response.Write "Rádio, " End If%> <%If veic_retrovisoreseletricos="Retrovisores Elétricos, " Then Response.Write "Retrovisores Elétricos, " End If%> <%If veic_rodasdeligaleve="Rodas de Liga Leve, " Then Response.Write "Rodas de Liga Leve, " End If%> <%If veic_sensordechuva="Sensor de Chuva, " Then Response.Write "Sensor de Chuva, " End If%> <%If veic_sensordeestacionamento="Sensor de Estacionamento, " Then Response.Write "Sensor de Estacionamento, " End If%> <%If veic_tetosolar="Teto Solar, " Then Response.Write "Teto Solar, " End If%> <%If veic_travaseletricas="Travas Elétricas, " Then Response.Write "Travas Elétricas, " End If%> <%If veic_turbo="Turbo, " Then Response.Write "Turbo, " End If%> <%If veic_vidroseletricos="Vidros Elétricos, " Then Response.Write "Vidros Elétricos, " End If%> <%If veic_vidrosverdes="Vidros Verdes, " Then Response.Write "Vidros Verdes, " End If%> <%If veic_volanteregulaaltura="Volante c/ Reg. de Altura, " Then Response.Write "Volante c/ Reg. de Altura, " End If%> <%If veic_deficiente="Adapt. para Deficiente, " Then Response.Write "Adapt. para Deficiente, " End If%> <%If veic_interclima="Inter Clima, " Then Response.Write "Inter Clima, " End If%> <%If veic_intercooler="Inter Cooler, " Then Response.Write "Inter Cooler, " End If%> <%If veic_rodoar="Rodoar, " Then Response.Write "Rodoar, " End If%> <%If veic_sofacama="Sofa-cama, " Then Response.Write "Sofa-cama, " End If%> <br><br><br> Obs.: <%=veic_obs%> </div> </div> <div class="clear"></div> </div> <!-- /bits --> </div> <!-- /main --> <!-- side --> <% Dim lista_veiculos,malha1,temp1,lista_categoria,lista,cat_id,lista_fabricacoes,anofabricacao,lista_modelos,anomodelo,lista_cambios,tipocambio,lista_combustiveis,tipocombustivel,lista_marcas,tipomarca,lista_porta,tipoportas,lista_cabines,tipocabine,lista_suspensoes,tiposuspensao,lista_tracoes,tipotracao set lista_veiculos = lojaDB.Execute("SELECT * FROM veiculos WHERE id="& veic_id &" AND disp='S'") If Not (lista = "nao") Then %> <% While not lista_veiculos.EOF set lista_marcas = lojaDB.Execute("SELECT nome FROM marca WHERE id=" & lista_veiculos("tipomarca")) set lista_cabine = lojaDB.Execute("SELECT nome FROM cabine WHERE id=" & lista_veiculos("tipocabine")) set lista_fabricacoes = lojaDB.Execute("SELECT nome FROM fabricacao WHERE id=" & lista_veiculos("anofabricacao")) set lista_modelos = lojaDB.Execute("SELECT nome FROM modelo WHERE id=" & lista_veiculos("anomodelo")) set lista_cambios = lojaDB.Execute("SELECT nome FROM cambio WHERE id=" & lista_veiculos("tipocambio")) set lista_combustiveis = lojaDB.Execute("SELECT nome FROM combustivel WHERE id=" & lista_veiculos("tipocombustivel")) set lista_porta = lojaDB.Execute("SELECT nome FROM portas WHERE id=" & lista_veiculos("tipoportas")) set lista_suspensoes = lojaDB.Execute("SELECT nome FROM suspensao WHERE id=" & lista_veiculos("tiposuspensao")) set lista_tracoes = lojaDB.Execute("SELECT nome FROM tracao WHERE id=" & lista_veiculos("tipotracao")) %> <div id="side"> <h2>Mais Informações</h2> <div class="news"> <h3>Preço:</h3> <p><font size="5" color="red"><b><%If lista_veiculos("preco")>"R$ 0.00" Then Response.Write lista_veiculos("preco") End If%><%If lista_veiculos("preco")="R$ 0.00" Then Response.Write "(48)3522-1122" End If%></b></font></p> <h3><%=veic_comp_valor%></h3> </div> <div class="news"> <h3>Dados:</h3> <p>Marca: <% If lista_marcas.EOF Then %> <font color=red><font size=1><b>Sem Informação</b></font></font> <% Else Response.Write lista_marcas("nome") End If %> <br> Fabricação/Modelo: <% If lista_fabricacoes.EOF Then %> <font color=red><font size=1><b>Sem Informação</b></font></font> <% Else Response.Write lista_fabricacoes("nome") End If %> / <% If lista_modelos.EOF Then %> <font color=red><font size=1><b>Sem Informação</b></font></font> <% Else Response.Write lista_modelos("nome") End If %> <br> Câmbio: <% If lista_cambios.EOF Then %> <font color=red><font size=1><b>Sem Informação</b></font></font> <% Else Response.Write lista_cambios("nome") End If %> <br> Combustível: <% If lista_combustiveis.EOF Then %> <font color=red><font size=1><b>Sem Informação</b></font></font> <% Else Response.Write lista_combustiveis("nome") End If %> <br> Portas: <% If lista_porta.EOF Then %> <font color=red><font size=1><b>Sem Informação</b></font></font> <% Else Response.Write lista_porta("nome") End If %> <br> Suspensão: <% If lista_suspensoes.EOF Then %> <font color=red><font size=1><b>Sem Informação</b></font></font> <% Else Response.Write lista_suspensoes("nome") End If %> <br> Tração: <% If lista_tracoes.EOF Then %> <font color=red><font size=1><b>Sem Informação</b></font></font> <% Else Response.Write lista_tracoes("nome") End If %> <br> Cabine: <% If lista_cabine.EOF Then %> <font color=red><font size=1><b>Sem Informação</b></font></font> <% Else Response.Write lista_cabine("nome") End If %> <br> Cor: <%=veic_cor%> <br> Placa: <%=veic_placa%> <br> Km: <%=veic_km%> </p> </div> <div class="news"> <h3>Mais fotos:</h3> <p> <a href="./images/<%=veic_img_01%>" rel="lightbox[roadtrip]" title="<%=veic_nome%>"><img src="./images/<%=veic_img_01%>" width=71 height=40 title="<%=veic_nome%>" /></a> <a href="./images/<%=veic_img_02%>" rel="lightbox[roadtrip]" title="<%=veic_nome%>"><img src="./images/<%=veic_img_02%>" width=71 height=40 title="<%=veic_nome%>" /></a> <a href="./images/<%=veic_img_03%>" rel="lightbox[roadtrip]" title="<%=veic_nome%>"><img src="./images/<%=veic_img_03%>" width=71 height=40 title="<%=veic_nome%>" /></a> <a href="./images/<%=veic_img_04%>" rel="lightbox[roadtrip]" title="<%=veic_nome%>"><img src="./images/<%=veic_img_04%>" width=71 height=40 title="<%=veic_nome%>" /></a> <a href="./images/<%=veic_img_05%>" rel="lightbox[roadtrip]" title="<%=veic_nome%>"><img src="./images/<%=veic_img_05%>" width=71 height=40 title="<%=veic_nome%>" /></a> <a href="./images/<%=veic_img_06%>" rel="lightbox[roadtrip]" title="<%=veic_nome%>"><img src="./images/<%=veic_img_06%>" width=71 height=40 title="<%=veic_nome%>" /></a> <a href="./images/<%=veic_img_07%>" rel="lightbox[roadtrip]" title="<%=veic_nome%>"><img src="./images/<%=veic_img_07%>" width=71 height=40 title="<%=veic_nome%>" /></a> <a href="./images/<%=veic_img_08%>" rel="lightbox[roadtrip]" title="<%=veic_nome%>"><img src="./images/<%=veic_img_08%>" width=71 height=40 title="<%=veic_nome%>" /></a> <a href="./images/<%=veic_img_09%>" rel="lightbox[roadtrip]" title="<%=veic_nome%>"><img src="./images/<%=veic_img_09%>" width=71 height=40 title="<%=veic_nome%>" /></a> <a href="./images/<%=veic_img_10%>" rel="lightbox[roadtrip]" title="<%=veic_nome%>"><img src="./images/<%=veic_img_10%>" width=71 height=40 title="<%=veic_nome%>" /></a> <a href="./images/<%=veic_img_11%>" rel="lightbox[roadtrip]" title="<%=veic_nome%>"><img src="./images/<%=veic_img_11%>" width=71 height=40 title="<%=veic_nome%>" /></a> <a href="./images/<%=veic_img_12%>" rel="lightbox[roadtrip]" title="<%=veic_nome%>"><img src="./images/<%=veic_img_12%>" width=71 height=40 title="<%=veic_nome%>" /></a> <a href="./images/<%=veic_img_13%>" rel="lightbox[roadtrip]" title="<%=veic_nome%>"><img src="./images/<%=veic_img_13%>" width=71 height=40 title="<%=veic_nome%>" /></a> <a href="./images/<%=veic_img_14%>" rel="lightbox[roadtrip]" title="<%=veic_nome%>"><img src="./images/<%=veic_img_14%>" width=71 height=40 title="<%=veic_nome%>" /></a> <a href="./images/<%=veic_img_15%>" rel="lightbox[roadtrip]" title="<%=veic_nome%>"><img src="./images/<%=veic_img_15%>" width=71 height=40 title="<%=veic_nome%>" /></a> </p> </div> <h3>Contato ou visita clique abaixo:</h3> <p> <a href="contato.asp"><img src="./images/solicitar.png" title="Solicitar" width=100 border=0 /></a> </p> </div> <!-- /side --> <% lista_veiculos.MoveNext Wend %> <% End If %>
  5. Legionario-rs

    Mostra imagem

    Oi bia, obrigado pela resposta mas não está no css não o erro está aqui <%=veic_img_01%> mas se faço sem i "if" ele funciona como no exemplo: <a href="./images/<%=veic_img_01%>" rel="lightbox[roadtrip]" title="<%=veic_nome%>"><img src="./images/<%=veic_img_01%>" width=71 height=40 title="<%=veic_nome%>" /></a> Mas preciso fazer da forma proposta no tópico para ocultar o item quando não houver nada no campo "img_01" do banco mas quando houver algo cadastrado ele mostra a imagem com o "lightbox"...
  6. Legionario-rs

    Mostra imagem

    Opa bom dia xan... não gera nenhum erro simplesmente não mostra a imagem fica um espaço vazio como se não localizasse onde está o arquivo de imagem...
  7. Legionario-rs

    Separar nomes dos arquivos

    Problema resolvido pessoal, podem fechar o tópico. Obrigado
  8. Legionario-rs

    Mostra imagem

    Boa tarde pessoal, Tenho a seguinte linha de código: <%If veic_img_01="" Then Response.Write "" End If%><%If veic_img_01 > "" Then Response.Write "<a href=""images/<%=veic_img_01%>"" rel=""lightbox[roadtrip]"" title=""<%=veic_nome%>""><img src=""./images/<%=veic_img_01%>"" width=""71"" height=""40"" title=""<%=veic_nome%>"" /></a>" End If%> Se funcionasse corretamente ela iria mostrar a imagem se houvesse algo registrado no banco se não, não mostraria nada. Ela até faz isso mas não mostra a imagem quando ela está cadastrada fica como se não houvesse imagem mesmo tendo ele dá erro nos itens a seguir: <%=veic_img_01%> - Aparece duas vezes pois uma é a miniatura da imagem e a outra é o lightbox <%=veic_nome%> - Nome da imagem. Se puderem me ajudar ou tiverem alguma solução diferente pra fazer isso agradeço.
  9. Legionario-rs

    Upload não mostra o nome dos arquivos

    Podem fechar o tópico, obrigado.
  10. Legionario-rs

    Separar nomes dos arquivos

    Boa tarde pessoal, Tenho o seguinte trecho do cód. <%response.buffer=true Server.ScriptTimeout = 99999999%> <% Set Upload = Server.CreateObject("Persits.Upload.1") Upload.IgnoreNoPost = True Upload.Save "xxx" For Each File in Upload.Files Response.Write "<input type=text size=10 id=upimg_01 value="&File.Filename&">" Next %> Nele eu consigo visualizar nome por nome dos arquivos enviados mas dispostos da seguinte forma: "imagem1.jpg, imagem2.jpg... assim por diante até a imagem 15 pois o upload feito tem 15 imagens no total. Eu preciso que sejam mostrados os nomes das imagens separados pois preciso atribuir uma "id" para cada nome de imagem que será repassado para um novo formulário que ai realiza o cadastro. Só preciso separar o nome de cada imagem em uma input diferente mas não consigo. Se alguém puder ajudar agradeço.
  11. Legionario-rs

    Upload não mostra o nome dos arquivos

    Bom dia, xanburzum Não está é por isso acredito eu que gera o erro pois o script envias as fotos mas como o input é "multiple" ele não retorna o nome do arquivo. o formulário de captação das imagens está desta forma: <h3>Cadastro de veículos - Envio de fotos</h3><br> <FORM NAME="Upload" method="POST" enctype="multipart/form-data" ACTION="envia_fotos.asp"> <table width=950 border="0"> <tr> <style> .thumb { width: 172px; border: 1px solid #000; margin: 5px 5px 5px 5px; } </style> <td><fieldset><legend>Selecionar arquivos</legend><input type="file" id="files" name="files[]" multiple /></fieldset></td> </tr><tr> <td><fieldset><legend>Fotos escolhidas</legend> <output id="list"></output> </fieldset></td> <script> function handleFileSelect(evt) { var files = evt.target.files; // FileList object // Loop through the FileList and render image files as thumbnails. for (var i = 0, f; f = files; i++) { // Only process image files. if (!f.type.match('image.*')) { continue; } var reader = new FileReader(); // Closure to capture the file information. reader.onload = (function(theFile) { return function(e) { // Render thumbnail. var span = document.createElement('span'); span.innerHTML = ['<img class=thumb" src="', e.target.result, '" title="', escape(theFile.name), '"/&gt].join(''); document.getElementById('list').insertBefore(span, null); }; })(f); // Read in the image file as a data URL. reader.readAsDataURL(f); } } document.getElementById('files').addEventListener('change', handleFileSelect, false); </script> </td></tr> <table border="0"> <td><fieldset><legend>Enviar</legend><input class="submit-button" type=submit value=" Clique para enviar ao servidor! "> </form> </td></tr> Já tentei de tudo e não tem maneira de fazer funcionar. Eu preciso que depois de enviar os arquivos me retorne os nomes das imagens enviadas dentro de uma input="text" para ser enviado para outro formulário. Quando eu faço sem o "multiple" funciona parfeito. Bhá pessoal, nada mesmo né... Bom dia pessoal, Sei que to ficando chato já mas isso tá me deixando maluco... Se faço o cadastro sem o multiple na tag input ou seja com vários campos de upload tudo funciona que é uma beleza mas se uso o multiple na input ele não pega os nomes das imagens. Esse cód. acima funciona bem sem o multiple. Se alguma alma santa puder dar uma olhada e me indicar como faço pra funcionar agradeço. Abraço!!!
  12. Legionario-rs

    Upload não mostra o nome dos arquivos

    Opa, aqui... response.write nome_arquivo2 Na verdade o script era diferente eu que modifiquei esta parte Upload.Save pasta Set Fotos = Upload.Files("img_01,img_02,img_03,img_04,img_05,img_06,img_07,img_08,img_09,img_10,img_11,img_12,img_13,img_14,img_15") nome_arquivo1 = Fotos.Filename("img_01") nome_arquivo2 = Fotos.Filename("img_02") nome_arquivo3 = Fotos.Filename("img_03") nome_arquivo4 = Fotos.Filename("img_04") nome_arquivo5 = Fotos.Filename("img_05") nome_arquivo6 = Fotos.Filename("img_06") nome_arquivo7 = Fotos.Filename("img_07") nome_arquivo8 = Fotos.Filename("img_08") nome_arquivo9 = Fotos.Filename("img_09") nome_arquivo10 = Fotos.Filename("img_10") nome_arquivo11 = Fotos.Filename("img_11") nome_arquivo12 = Fotos.Filename("img_12") nome_arquivo13 = Fotos.Filename("img_13") nome_arquivo14 = Fotos.Filename("img_14") nome_arquivo15 = Fotos.Filename("img_15") Originalmente era assim: Upload.Save pasta Set Foto1 = Upload.Files("FILE1") Set Foto2 = Upload.Files("FILE2") Set Foto3 = Upload.Files("FILE3") nome_arquivo = Foto1.FileName nome_arquivo2 = Foto2.FileName nome_arquivo3 = Foto3.FileName response.Write nome_arquivo &"<br>" response.Write nome_arquivo2 &"<br>" response.Write nome_arquivo3 &"<br>" response.End() Este script é aqui do fórum mesmo... Ele retorna o erro: Linha 27 - nome_arquivo1 = Fotos.Filename("img_01") Microsoft VBScript runtime error '800a01a8' Object required: '' /admin/AspUpload.asp, line 27 Boa noite pessoal... Ninguém se habilita?? Abraço!!!
  13. Boa tarde pessoal, Alguém saberia me dizer porque o script abaixo não mostra o que está no "response.write"? Ele envia os arquivos pra pasta destino mas não mostra o nome do arquivo. Pode ser um erro bobo mas estou tanto tempo emcima disso e de outros scripts que não to vendo o erro... se alguem poder ajudar agradeço muito... Em tempo: o form é tipo multiple... <!--#include file="conexao2.inc"--> <!--#include file="estilo.inc"--> <h3>Arquivos enviados</h3><br> <table width=960> <tr><td> <fieldset><legend>Info</legend>Seus arquivos foram enviados. Verifique se foram estas as fotos enviadas, se estiver tudo correto clique em "Enviar para cadastro" e finalize o cadastramento do veículo.</fieldset></td> </td></tr> </table> <br><br> <form method="post" name="upload" action="cad_veiculos.asp"> <%response.buffer=true Server.ScriptTimeout = 99999999%> <% 'AspUpload Set Upload = Server.CreateObject("Persits.Upload") Upload.ProgressID = Request.QueryString("PID") 'faz parte do carregando Upload.OverwriteFiles = False pasta = Server.MapPath("../images/") Upload.Save pasta Set Fotos = Upload.Files("img_01,img_02,img_03,img_04,img_05,img_06,img_07,img_08,img_09,img_10,img_11,img_12,img_13,img_14,img_15") nome_arquivo1 = Fotos.Filename("img_01") nome_arquivo2 = Fotos.Filename("img_02") nome_arquivo3 = Fotos.Filename("img_03") nome_arquivo4 = Fotos.Filename("img_04") nome_arquivo5 = Fotos.Filename("img_05") nome_arquivo6 = Fotos.Filename("img_06") nome_arquivo7 = Fotos.Filename("img_07") nome_arquivo8 = Fotos.Filename("img_08") nome_arquivo9 = Fotos.Filename("img_09") nome_arquivo10 = Fotos.Filename("img_10") nome_arquivo11 = Fotos.Filename("img_11") nome_arquivo12 = Fotos.Filename("img_12") nome_arquivo13 = Fotos.Filename("img_13") nome_arquivo14 = Fotos.Filename("img_14") nome_arquivo15 = Fotos.Filename("img_15") response.Write"<table border=0>" response.Write"<td><fieldset><legend>Foto da Capa" response.Write"</legend>" response.Write"<input type=text size=26 name=img_01 value=" response.write nome_arquivo2 response.Write"></fieldset></td>" response.Write"<td><fieldset><legend>Foto da Capa" response.Write"</legend>" response.Write"<input type=text size=26 name=img_01 value=" response.write nome_arquivo2 response.Write"></fieldset></td>" response.Write"<td><fieldset><legend>Foto da Capa" response.Write"</legend>" response.Write"<input type=text size=26 name=img_01 value=" response.write nome_arquivo3 response.Write"></fieldset></td>" response.Write"<td><fieldset><legend>Foto da Capa" response.Write"</legend>" response.Write"<input type=text size=26 name=img_01 value=" response.write nome_arquivo4 response.Write"></fieldset></td>" response.Write"<td><fieldset><legend>Foto da Capa" response.Write"</legend>" response.Write"<input type=text size=26 name=img_01 value=" response.write nome_arquivo5 response.Write"></fieldset></td>" response.Write"<td><fieldset><legend>Foto da Capa" response.Write"</legend>" response.Write"<input type=text size=26 name=img_01 value=" response.write nome_arquivo6 response.Write"></fieldset></td>" response.Write"<td><fieldset><legend>Foto da Capa" response.Write"</legend>" response.Write"<input type=text size=26 name=img_01 value=" response.write nome_arquivo7 response.Write"></fieldset></td>" response.Write"<td><fieldset><legend>Foto da Capa" response.Write"</legend>" response.Write"<input type=text size=26 name=img_01 value=" response.write nome_arquivo8 response.Write"></fieldset></td>" response.Write"<td><fieldset><legend>Foto da Capa" response.Write"</legend>" response.Write"<input type=text size=26 name=img_01 value=" response.write nome_arquivo9 response.Write"></fieldset></td>" response.Write"<td><fieldset><legend>Foto da Capa" response.Write"</legend>" response.Write"<input type=text size=26 name=img_01 value=" response.write nome_arquivo10 response.Write"></fieldset></td>" response.Write"<td><fieldset><legend>Foto da Capa" response.Write"</legend>" response.Write"<input type=text size=26 name=img_01 value=" response.write nome_arquivo11 response.Write"></fieldset></td>" response.Write"<td><fieldset><legend>Foto da Capa" response.Write"</legend>" response.Write"<input type=text size=26 name=img_01 value=" response.write nome_arquivo12 response.Write"></fieldset></td>" response.Write"<td><fieldset><legend>Foto da Capa" response.Write"</legend>" response.Write"<input type=text size=26 name=img_01 value=" response.write nome_arquivo13 response.Write"></fieldset></td>" response.Write"<td><fieldset><legend>Foto da Capa" response.Write"</legend>" response.Write"<input type=text size=26 name=img_01 value=" response.write nome_arquivo14 response.Write"></fieldset></td>" response.Write"<td><fieldset><legend>Foto da Capa" response.Write"</legend>" response.Write"<input type=text size=26 name=img_01 value=" response.write nome_arquivo15 response.Write"></fieldset></td>" response.Write"<td><fieldset><legend>Enviar Fotos" response.Write"</legend>" response.Write"<input class=submit-button type=submit value="" Enviar para cadastro "">" response.Write"</form>" response.Write"</fieldset></td></td></tr>" response.Write"</table>" %> <br><br> <br><br> <br>
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.