Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

sys_br

[Resolvido] Exibir Imagem so se existir

Por , em ASP Clássico

Recommended Posts

sys_br    0

sys_br
Postado

Ola td bem.....

 

Estou precisando de algo que so exiba a imagem se o CAMPO (imagem) no bd estiver preenchido caso contrario exibir outra imagem tipo aquelas sem imagem ou uma mensagem ! Da tabela produtos estou exibindo Nome Tipo Descrição IMAGEM e a data que o produto foi adicionado mais provavelmente algum produto nao tera imagem !

 

Obrigado !

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

Fazendo uam condição isso resolve!!!

 

ASP
If RS("Campo_Imagem") = "" Then

    Response.Write("<img src=""sem_imagem.gif"">")

Else

    Response.Write("<img src="""&RS("Campo_Imagem")&""">")

End If

Compartilhar este post

Link para o post
Compartilhar em outros sites

sys_br    0

sys_br
Postado

retornando.Resultado Negativo ( o erro e q nao aparece a imgem ambas imagens ! )

coloquei o codigo que você me passo ....estou aprendendo asp

vou passar o script e peço a sua ajuda para me ajudar adapta Obrigado...... http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

 

ASP
<!--#include file="conectar.asp"-->

<% AbreConexao

id_prod = request.querystring("id_prod")

Sql1 = "SELECT * FROM produtos WHERE id_prod =" & id_prod & ""

Set rs = Server.CreateObject("ADODB.Recordset")    

rs.Open SQL1, ConStr, 3, 3

cliquesa = rs("cliques")

cliquesb = "1"

x = cliquesa + cliquesb

Sql = "UPDATE produtos SET cliques = '" & x & "' WHERE id_prod = " & id_prod & " "

Conexao.Execute(Sql) %>

<html>

<head>

<LINK REL="StyleSheet" HREF="style.css" TYPE="text/css">

<title>Aministração</title>

</head>

<p> </p>

    <form method="post" action="m_prod.asp"><center>

  <div align="center">

    <table border="0" cellpadding="0" cellspacing="0" height="266" width="718">

      <tr>

        <td align="right" height="32" width="128">

                <p align="center"><b>Nome</b></td>

        <td width="591" height="32">

             <p>

        <input type="text" name="nome" size="33" value="<%= rs("nome")%>"> </p>

        </td>

      </tr>

      <tr>

        <td align="right" height="32" width="128">

                 </td>

        <td width="591" height="32">

             

                <%

                If RS("campo_da_imagem") = "" Then

    Response.Write("<img src=""sem_imagem.gif"">")

Else

    Response.Write("<img src=""imagens/""&RS("campo_da_imagem")&">")

End If

                %>

      </tr>

      <tr>

        <td align="right" height="32" width="128">

                <p align="center">

                <b>Categoria <% AbreConexao

Sql = "SELECT * FROM cat"

Set RsView = Server.CreateObject("ADODB.Recordset")    

RsView.Open SQL, ConStr, 3, 3

Conexao.Execute(Sql) %></b></td>

        <td width="591" height="32"><font face="Tahoma">

                     

                      <select size="1" name="categoria">

                      <% while not RsView.EOF%>

                          <option value="<%= RsView("id_cat")%>"><%= RsView("categoria")%></option>

                          <% RsView.MoveNext

                          wend %>

              </select> <font color="#FF0000">Item de escolha obrigatória caso

                contrario causara o cadastramento Incorreto !</font></td>

      </tr>

 

<% RsView.close

FechaConexao

Set RsView = nothing %></font></td>

      </tr>

       <tr>

        <td align="right" height="165" width="128">

                <p align="center"><b>Descrição<br>

                <br>

                <br>

 </b></td>

        <td width="591" height="165"><font face="Tahoma">

                <textarea rows="7" name="descricao" cols="22"><%= rs("descricao")%></textarea> </font></td>

      </tr>

      <tr>

        <td width="718" colspan="2" height="41">

          <p align="center">

          <input type="hidden" name="id_prod" value="<%= rs("id_prod")%>">

        <input type="submit" value="  Alterar  ">       <input type="reset" value="  Voltar dados iniciais  " name="reset">

        </td>

      </tr>

    </table>

    </center>

  </div>

</form>

<% rs.close

FechaConexao

Set rs = nothing %>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

foi uma aspas faltando tente agora

 

ASP
<%

If RS("campo_da_imagem") = "" Then

Response.Write("<img src=""sem_imagem.gif"">")

Else

Response.Write("<img src=""imagens/"""&RS("campo_da_imagem")&""">")

End If

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito