Ir para conteúdo

POWERED BY:

Arquivado

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

rd111072

[Resolvido] Mudar uma imagem não disponível por uma imagem padrão

Por , em ASP Clássico

Recommended Posts

rd111072    1

rd111072
Postado

Boa tarde.

 

Como faço para "Mudar uma imagem não disponível por uma imagem padrão"?

 

Vejam o código abaixo (a imagem seria foto01 e a padrão nd.jpg):

 

<%
foto01 = session("foto01")

 IF foto01=" " THEN
   foto01="nd.jpg"
END IF

db2 = Server.MapPath("2008_R/colonias.mdb") 
connstring2 = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db2 
Set Conn2 = Server.CreateObject("ADODB.Connection") 
Conn2.Open connstring2%>


<%
SQL6="select * from colonias order by id_cidade"
set RS6 = Conn2.Execute(SQL6)
%>


<body>


<h4>Pousadas</h4><br>
<%
Do While not RS6.eof%>
<%=RS6("nome")%><br>
<%=RS6("id_cidade")%>
<img src="http://www.site.org.br/image/<%=RS6("foto01")%>" width="162" height="102"><br>

<%
RS6.MoveNext
Loop



RS6.close
set RS6 = nothing



%>

Alguém sabe?

Compartilhar este post

Link para o post
Compartilhar em outros sites

gubergamo    0

gubergamo
Postado

Boa tarde.

 

Como faço para "Mudar uma imagem não disponível por uma imagem padrão"?

 

Vejam o código abaixo (a imagem seria foto01 e a padrão nd.jpg):

 

<%
foto01 = session("foto01")

 IF foto01=" " THEN
   foto01="nd.jpg"
END IF

db2 = Server.MapPath("2008_R/colonias.mdb") 
connstring2 = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db2 
Set Conn2 = Server.CreateObject("ADODB.Connection") 
Conn2.Open connstring2%>


<%
SQL6="select * from colonias order by id_cidade"
set RS6 = Conn2.Execute(SQL6)
%>


<body>


<h4>Pousadas</h4><br>
<%
Do While not RS6.eof%>
<%=RS6("nome")%><br>
<%=RS6("id_cidade")%>
<img src="http://www.site.org.br/image/<%=RS6("foto01")%>" width="162" height="102"><br>

<%
RS6.MoveNext
Loop



RS6.close
set RS6 = nothing



%>

Alguém sabe?

 

Amigo, porque você não faz o upload da foto numa coluna do BD? e se o valor do SELECT for NULL voce mostra a nd.jpg.. mais fácil e seguro.

se houver mais de uma foto, separe-as com "," e da um split nelas, algo do tipo

Compartilhar este post

Link para o post
Compartilhar em outros sites

desisto    0

desisto
Postado

troca:

IF foto01=" " THEN
   foto01="nd.jpg"
END IF

 

por:

IF foto01="" THEN
   foto01="nd.jpg"
END IF

 

foto01="" é diferente de foto01=" "

 

[]s

Compartilhar este post

Link para o post
Compartilhar em outros sites

Public2004    79

Public2004
Postado

Não entendi muito bem aquele if no início, eu faria direto no loop assim:

Do While not RS6.eof%>
<%=RS6("nome")%><br>
<%=RS6("id_cidade")%>
<%If RS6("foto01") = "" Then%>
<img src="http://www.site.org.br/image/nd.jpg" width="162" height="102"><br>
<%Else%>
<img src="http://www.site.org.br/image/<%=RS6("foto01")%>" width="162" height="102"><br>
<%End If%>
<%
RS6.MoveNext
Loop

Abs.

Compartilhar este post

Link para o post
Compartilhar em outros sites

rd111072    1

rd111072
Postado

Eu já faço o upload da foto para uma coluna do bd.

 

Tanto fez foto01="" quanto foto01=" ".

 

Public modifiquei e deu esse erro:

 

Error Type:

Microsoft VBScript compilation (0x800A03EE)

Expected ')'

/pousadas_teste.asp, line 34, column 36

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

você tem o valor da imagem no banco de dados, como você citou ... você tá fazendo assim

 

foto01 = session("foto01")

IF foto01=" " THEN
   foto01="nd.jpg"
END IF

O correto seria

 

foto01 = RS6("foto01")

IF foto01= "" THEN
   response.write "<img src='nd.jpg'>" 
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