DIMINUIR FOTO

MAFACILITY 15/10/2009 22:49:26
#325441
Tenho o seguinte código de pesquisa de imóveis que diz as características do imóveis e mostra a foto da fachada dos imóveis pesquisados(bd access), onde a pesquisa funciona normalmente.
obs1: as fotos não são gravadas no banco só o caminho(/images/nome.jpg)
Quando a pesquisa é bem sucedida a foto do imóvel é impressa na tela em tamanho original, ou seja, a foto fica grande demais. Como faço para diminuir esta foto em minha pesquisa, sem ter que editá-la offline? Aí está o código.
Obs2: Uso visual web developer 2008.

<%
Dim strURL

Dim codimo
Dim cnnSearch
Dim rstSearch
Dim strDBPath

Dim strSQL
Dim strSearch
inicio = Timer

[ô]#Função que tira todos os acentos das palavras
function TiraAcento(StrAcento)
for i = 1 to len(StrAcento)
Letra = mid(StrAcento, i, 1)
Select Case Letra
Case [Ô]á[Ô],[Ô]Á[Ô],[Ô]à[Ô],[Ô]À[Ô],[Ô]ã[Ô],[Ô]Ã[Ô],[Ô]â[Ô],[Ô]Â[Ô],[Ô]â[Ô],[Ô]ä[Ô],[Ô]Ä[Ô]
Letra = [Ô]A[Ô]
Case [Ô]é[Ô],[Ô]é[Ô],[Ô]ê[Ô],[Ô]Ê[Ô],[Ô]Ë[Ô],[Ô]ë[Ô],[Ô]È[Ô],[Ô]è[Ô]
Letra = [Ô]E[Ô]
Case [Ô]í[Ô],[Ô]Í[Ô],[Ô]ï[Ô],[Ô]Ï[Ô],[Ô]Ì[Ô],[Ô]ì[Ô]
Letra = [Ô]I[Ô]
Case [Ô]ó[Ô],[Ô]Ó[Ô],[Ô]ô[Ô],[Ô]Ô[Ô],[Ô]õ[Ô],[Ô]Õ[Ô],[Ô]ö[Ô],[Ô]Ö[Ô],[Ô]ò[Ô],[Ô]Ã’[Ô]
Letra = [Ô]O[Ô]
Case [Ô]ú[Ô],[Ô]Ú[Ô],[Ô]Ù[Ô],[Ô]ù[Ô],[Ô]ú[Ô],[Ô]û[Ô],[Ô]ü[Ô],[Ô]Ü[Ô],[Ô]Û[Ô]
Letra = [Ô]U[Ô]
Case [Ô]ç[Ô],[Ô]Ç[Ô]
Letra = [Ô]C[Ô]
Case [Ô]ñ[Ô]
Letra = [Ô]N[Ô]
End Select
texto = texto & Letra
next
TiraAcento = texto
end function


strURL = Request.ServerVariables([Ô]URL[Ô])

strSearch = Request.QueryString([Ô]search[Ô])

%><title>:: LAPORT IMÓVEIS - PESQUISA IMÓVEL ::</title>
<p> </p>
<td bgcolor=[Ô]#f5f5f5[Ô] width=[Ô]35%[Ô]> <div align=[Ô]center[Ô]><font color=[Ô]#000099[Ô]><b><font face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô] size=[Ô]2[Ô]><font color=[Ô]#CCCCCC[Ô]>
<a></a></font></font></b></font></div></td>
<td bgcolor=[Ô]#f5f5f5[Ô] width=[Ô]30%[Ô]> <div align=[Ô]center[Ô]><font color=[Ô]#000099[Ô]><b><font face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô] size=[Ô]2[Ô]>
<a></a></font></b></font></div></td>
<td width=[Ô]18%[Ô] bgcolor=[Ô]#f5f5f5[Ô]> <div align=[Ô]center[Ô]><font color=[Ô]#000099[Ô]><b><font color=[Ô]#999999[Ô] size=[Ô]2[Ô] face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô]></font></b></font></div></td>
<td bgcolor=[Ô]#f5f5f5[Ô] width=[Ô]35%[Ô]> <div align=[Ô]center[Ô]><font color=[Ô]#000099[Ô]><b><font face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô] size=[Ô]2[Ô] color=[Ô]#CCCCCC[Ô]></b></font></div></td>
</tr>
</table>
<p align=[Ô]center[Ô]><FONT color=royalblue face=Tahoma size=2><STRONG><font color=[Ô]#000033[Ô]>
» Pesquise seu Imóvel:</font></STRONG></FONT></p>
<form action=[Ô]<%= strURL %>[Ô] method=[Ô]get[Ô]>
<div align=[Ô]center[Ô]>
<input name=[Ô]search[Ô] value=[Ô]<%= strSearch %>[Ô] />
<input name=[Ô]submit[Ô] type=[Ô]submit[Ô] value=[Ô]Pesquisar[Ô] />
</div>
</form>
<p align=[Ô]center[Ô]>
<%
If strSearch <> [Ô][Ô] Then

strDBPath = Server.MapPath([Ô]imob.mdb[Ô])

Const adUseClient = 3

Set cnnSearch = Server.CreateObject([Ô]ADODB.Connection[Ô])

cnnSearch.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & strDBPath & [Ô];[Ô]
cnnSearch.CursorLocation = adUseClient

strSQL = [Ô]SELECT codimo, tipoimo, obsimo, precoimo, foto [Ô] _
& [Ô]FROM imovel [Ô] _
& [Ô]WHERE obsimo LIKE [ô]%[Ô] & TiraAcento(Replace(strSearch, [Ô][ô][Ô], [Ô][ô][ô][Ô])) & [Ô]%[ô] [Ô] _
& [Ô]OR precoimo LIKE [ô]%[Ô] & TiraAcento(Replace(strSearch, [Ô][ô][Ô], [Ô][ô][ô][Ô])) & [Ô]%[ô] [Ô] _
& [Ô]OR tipoimo LIKE [ô]%[Ô] & TiraAcento(Replace(strSearch, [Ô][ô][Ô], [Ô][ô][ô][Ô])) & [Ô]%[ô] [Ô] _
& [Ô]OR codimo LIKE [ô]%[Ô] & TiraAcento(Replace(strSearch, [Ô][ô][Ô], [Ô][ô][ô][Ô])) & [Ô]%[ô] [Ô] _
& [Ô]ORDER BY obsimo;[Ô]

Set rstSearch = cnnSearch.Execute(strSQL)
intContador = rstSearch.RecordCount

%>
</p></td>
</tr>
</table>
<p align=[Ô]center[Ô]><br>
<font size=[Ô]1[Ô] face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô]>[ Foram encontradas <b><%=intContador%></b>
ocorrências ] </font> </p>
<div align=[Ô]center[Ô]>
<table border=[Ô]0[Ô] cellpadding=[Ô]4[Ô] cellspacing=[Ô]1[Ô] bgcolor=[Ô]#FFFFFF[Ô][Ô]
style=[Ô]width: 502px[Ô]>
<tr>
<th width=[Ô]90[Ô] bgcolor=[Ô]#999999[Ô]><FONT color=royalblue face=Tahoma size=2><STRONG><font color=[Ô]#FFFFFF[Ô]>::CÓDIGO::</font></STRONG></FONT></th>
<th width=[Ô]350[Ô] bgcolor=[Ô]#999999[Ô]><FONT color=royalblue face=Tahoma size=2><STRONG><font color=[Ô]#FFFFFF[Ô]>::
IMÓVEL::</font></STRONG></FONT></th>
<th width=[Ô]100[Ô] bgcolor=[Ô]#999999[Ô]><FONT color=royalblue face=Tahoma size=2><STRONG><font color=[Ô]#FFFFFF[Ô]>::
TIPO ::</font></STRONG></FONT></th>
<th width=[Ô]140[Ô] bgcolor=[Ô]#999999[Ô]><FONT color=royalblue face=Tahoma size=2><STRONG><font color=[Ô]#FFFFFF[Ô]>::
PREÇO ::</font></STRONG></FONT></th>
<th width=[Ô]162[Ô] bgcolor=[Ô]#FF6600[Ô]><FONT color=royalblue face=Tahoma size=2><STRONG><font color=[Ô]#FFFFFF[Ô]>::
FOTO ::</font></STRONG></FONT></th>
</tr>
<%
Do While Not rstSearch.EOF
%>
<tr>
<td bgcolor=[Ô]#3299CC[Ô]><div align=[Ô]center[Ô]><font size=[Ô]1[Ô] face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô]><a href=[ô]<%= rstSearch.Fields([Ô]codimo[Ô]).Value%>.html[ô]><%=codimo%><%= rstSearch.Fields([Ô]codimo[Ô]).Value%></font></div></td>
<td bgcolor=[Ô]#3299CC[Ô]>
<div align=[Ô]center[Ô]><font size=[Ô]1[Ô] face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô]><%= rstSearch.Fields([Ô]obsimo[Ô]).Value %></font></div></td>
<td bgcolor=[Ô]#3299CC[Ô]>
<div align=[Ô]center[Ô]><font size=[Ô]1[Ô] face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô]><%= rstSearch.Fields([Ô]tipoimo[Ô]).Value %></font></div></td>
<td bgcolor=[Ô]#3299CC[Ô]>
<div align=[Ô]center[Ô]><font size=[Ô]1[Ô] face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô]><%= rstSearch.Fields([Ô]precoimo[Ô]).Value & [Ô],00[Ô] %></font></div></td>
<td bgcolor=[Ô]#E8E8E8[Ô]>
<div align=[Ô]center[Ô]><font size=[Ô]1[Ô] face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô]><img src=[Ô]<%=rstSearch([Ô]foto[Ô])%>[Ô] alt=[Ô]Imagem não disponível[Ô]></font></div></td> [ô] <= aqui a foto é impressa
</tr>
</tr>
<%

rstSearch.MoveNext
Loop
%>
</table>
<font size=[Ô]1[Ô] face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô]><br>
 Sua busca foi processada em
<%response.write FormatNumber( Timer - inicio, 2 )%>
segundos.</font><br>
<%

rstSearch.Close
Set rstSearch = Nothing
cnnSearch.Close
Set cnnSearch = Nothing
End If

%>
</div></td>
</tr>
</table>
<p> </p>
MAFACILITY 15/10/2009 22:58:21
#325442
quem quiser dar uma olhada para ver como fica aq o link: http://www.laportimoveis.com.br/procura3.asp , preencha a caixa de texto com 2 quartos.
JUNIORNET 16/10/2009 08:45:10
#325449 Resposta escolhida
Bom dia MAFACILITY

Defina o tamanha que a imagem deve aparecer(width=[Ô][Ô] height=[Ô][Ô]) fica assim.
  <img src=[Ô]<%=rstSearch([Ô]foto[Ô])%>[Ô] alt=[Ô]Imagem não disponível[Ô] width=[Ô][Ô] height=[Ô][Ô]>


Ai você coloca os valores para as propriedades.

Ve se resolve.

Junior
MAFACILITY 16/10/2009 14:01:38
#325479
Valeu Juniornet funcionou perfeitamente, muito obrigado.
Tópico encerrado , respostas não são mais permitidas
Voltar