LINK

MAFACILITY 19/09/2009 15:38:02
#323269
Tenho um software de Imobiliária feito em vb6 com bd acess, o bd é atualizado todos os dias no meu servidor na Web, o visitante tem acesso a uma pesquisa que postarei o código abaixo. O que eu quero fazer é o seguinte, qdo o visitante fizer uma pesquisa e os dados vierem na tela, eu quero que o campo código vire um link para página correspondente ao imóvel(todos os imóveis tem o nome das páginas correspondente ao código do imóvel, exemplo: imovel c/ cod = 3, pagina 3.html). Não sei qual é a melhor saída para isso, se é criar um campo no link no bd, ou criar alguma rotina que ao clicar no código abra a pág. correspondente. ATENÇÃO: SOU NOVATO EM ASP. Código da pesquisa abaixo:

<%

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>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 href=[Ô]form_inclusao.asp[Ô]></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 href=[Ô]form_exclui.asp[Ô] class=[Ô]menu[Ô]></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[Ô]><a [ô]href=[Ô]escolhe_pra_auterar.asp[Ô] class=[Ô]menu[Ô]></a></font></b></font></div></td>
</tr>
</table>
<p align=[Ô]center[Ô]><FONT color=royalblue face=Tahoma size=2><STRONG><font color=[Ô]#000033[Ô]>
::Pesquise seu Imóvel(EX: Imovel » Casa 2 quartos; Closet; etc. ou Preço » 95000 ou Tipo » Sítio; Terreno; Apartamento)::</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 [Ô] _
& [Ô]FROM imovel [Ô] _
& [Ô]WHERE obsimo LIKE [ô]%[Ô] & TiraAcento(Replace(strSearch, [Ô][ô][Ô], [Ô][ô][ô][Ô])) & [Ô]%[ô] [Ô] _
& [Ô]OR precoimo LIKE [ô]%[Ô] & TiraAcento(Replace(strSearch, [Ô][ô][Ô], [Ô][ô][ô][Ô])) & [Ô]%[ô] [Ô] _
& [Ô]OR tipoimo 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>
</tr>
<%
Do While Not rstSearch.EOF
%>
<tr>
<td bgcolor=[Ô]#3299CC[Ô]><font size=[Ô]1[Ô] face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô]><%= rstSearch.Fields([Ô]codimo[Ô]).Value %></font></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[Ô]>
</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>
MEMLUZ 21/09/2009 10:09:00
#323305 Resposta escolhida
Basta você colocar um <a href=[Ô]pagina.asp?codigo=<%= rstSearch.Fields([Ô]codimo[Ô]).Value%> [Ô] />, sendo que pagina.asp é a pagina que trata o imovel.

outra coisa, para melhorar seu codigo use:

rstSearch([Ô]codimo[Ô])

em vez de

rstSearch.Fields([Ô]codimo[Ô]).Value

abs,
Mem
MAFACILITY 21/09/2009 17:43:53
#323360
MENLUZ, VALEU VOU TESTAR...
MAFACILITY 21/09/2009 19:11:31
#323369
formou o link, mas deu erro [Ô]pagina não encontrada[Ô]. Mas deixa eu explicar melhor, tenho os seguintes campos na tabela access:
codimo
imovel
tipoimo
precoimo
Faço a pesquisa, o código funciona perfeitamente. é o seguinte: propositadamente as paginas em html que foram criadas para os imoveis tem o mesmo código do imóvel correspondente, ou seja, codigo do imóvel = 3 página htm html = 3.html. O que eu queria é o seguinte: após a pesquisa o campo codimo linkado, concatenando o codimo + html. Exemplo:
codigo(codimo) imovel(imovel) tipo(tipoimo) preço(precoimo)
3 (link) casa 2 quartos casa 150.000,00

ao clicar no [Ô]3[Ô] carregar a pagina 3.html
MEMLUZ 23/09/2009 09:47:28
#323484


Basta voce colocar no seu link :

<a href=[ô]<%=codimo%>.html[ô]><%=codimo%></a>

Só que ele vai procurar essa pagina na pasta atual.
Outra coisa, já que vc esta usando ASP, normalmente voce não faz uma pagina para cada imovel, e sim uma pagina generica que pega os dados daquele imovel.

Assim, voce teria uma pagina detalhes_imoveis.asp, aonde vc passaria por querystring o codigo do imovel.

Dentro dela, ela pegaria os dados e mostraria.
Isso facilita a manutenção e mantem o site no mesmo padrão.

Abs,
Mem
MAFACILITY 24/09/2009 13:14:08
#323578
MEMLUZ O LINK FOI CRIADO NO CÓDIGO, MAS AO CLICAR ME RETORNA A PÁGINA .HTML, ESTOU COLOCANDO A LINHA ABAIXO, VEJA SE FIZ ALGO ERRADO.
<td bgcolor=[Ô]#3299CC[Ô]><font size=[Ô]1[Ô] face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô]><a href=[ô]<%=codimo%>.html[ô]><%=codimo%><%= rstSearch.Fields([Ô]codimo[Ô]).Value%></font></div></td>

SE QUISER DAR UMA OLHADA CLIQUE NESSE LINK: http://www.laportimoveis.com.br/procura2.asp

OBRIGADO
MAFACILITY 24/09/2009 19:07:37
#323608
MEMLUZ DEU CERTO, FIZ UMA MODIFICAÇÃO NO QUE VC ME PASSOU E FUNCIONOU PERFEITAMENTE DÊ UMA OLHADA, NÃO SEI SE FIZ ALGUMA GAMBIARRA, RSRSRS, MAS DEU CERTO

<td bgcolor=[Ô]#3299CC[Ô]><font size=[Ô]1[Ô] face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô]><a href=[ô]<%= rstSearch.Fields([Ô]codimo[Ô]).Value%>.html[ô]><%=codimo%><%= rstSearch.Fields([Ô]codimo[Ô]).Value%></font></div></td>

OBRIGADO, ESTOU ENCERRENDO O TÓPICO
Tópico encerrado , respostas não são mais permitidas
Voltar