1 reply to this topic

[luckynho]

<%
dim mostrapg, objto, objto1, pgatual, chave
  chave   = Request("chave")
  pgatual = Request("pgatual")
  mostrapg = 15000000
  if Len(pgatual) = 0 then pgatual = 1
  Set objto = Server.CreateObject("ADODB.Connection")
	objto.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("te_database.mdb") &";"
  Set objto1 = Server.CreateObject("ADODB.RecordSet")
	objto1.CursorLocation = 3	
	objto1.CursorType	 = 3
	objto1.CacheSize	  = mostrapg
	if len(chave) = 0 then
	  objto1.Open "select * from fornecedores order by fornecedor asc", objto,,&H0001
	else
	  objto1.Open "select * from fornecedores where estado like '%" & chave & "%' order by fornecedor asc", objto,,&H0001
	end if
	objto1.PageSize	   = mostrapg
  if  not objto1.EOF then
	objto1.AbsolutePage = pgatual
	qtpg = objto1.PageCount
	for i =0 to mostrapg
		  trs = trs & "<tr>" &_
		"<td height='22'><font color='cc0000'>"& objto1("fornecedor") &"<br></font>"& objto1("endereco") &","& objto1("numero") &""& objto1("complemento") &"<br>"& objto1("bairro") &" - "& objto1("cidade") &"/"& objto1("estado") &"<br>Cep:"& objto1("cep") &"<br>Tel.:"& objto1("telefone1") &"<br>Email:<a href='mailto:"& objto1("email") &"'>"& objto1("email") &"</a></td>" &_
		"" &_

		"</tr>"
	  objto1.MoveNext
	  if objto1.EOF then exit for
	Next
  end if
%>
===============================================
<table width="70%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
	<td><font size="2" face="Trebuchet MS"><b>Busca Fornecedor</b></font> </td>
  </tr>
  <tr>
	<td ><table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
	  <tr>
		<td width="84%">
		  <form action="busca_fornecedor.asp" method="get">
			<font size="2" face="Trebuchet MS"> <b> </b></font>
		  </form></td>
		</tr>
	  <tr>
		<td>
		  <table width="91%" border="0" cellspacing="2" cellpadding="1" align="center">
			<tr align="center">
			  <td width="784"><script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0','width','550','height','400','src','mapa_brasil','quality','high','pluginspage','http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash','movie','mapa_brasil' ); //end AC code
			  </script>
				<noscript>
				<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0" width="550" height="400">
				  <param name="movie" value="mapa_brasil.swf">
				  <param name="quality" value="high">
				  <embed src="mapa_brasil.swf" quality="high" pluginspage="http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="550" height="400"></embed>
				</object>
				</noscript>				</td>
			  <td width="784"><%= trs%></td>
			</tr>
		</table></td>
	  </tr>
	</table></td>
  </tr>
  <tr>
	<td>&nbsp;</td>
  </tr>
  <tr>
	<td></td>
  </tr>
</table>

Tem um mapa em flash.... e partir desse mapa, quando clica ele tras resultado dos fornecedores de cada estado.
É simples minha duvida...

Ao mostrar o resultado, gostaria de escrever na tela ex:

Resultado buscado por: SP

Cliente Tal
Rua tal
Cep Tal


e se nao tiver nenhum cliente cadastrado em tal regiao.. gostaria de apresentar uma msg dizendo que nao tem ninguem cadastrado.


Helppp please....

[JurisCode]

vc vai ter que montar querystrings em cada area clicável do site:

set rs = conexao.execute ("select * from TABELA WHERE região='" & REQUEST.QUERYSTRING("região") & "'")
essa funçãozinha vai fazer uma busca na base de dados por referências que tenham a região da querystring no campo REGIAO

os links clicaveis deveriam ter o seguinte formato:

<a href="pagina.asp?regiao=nome_da_regial">coordenadas do link</a>

vc vai fazer uma tabela na base de dados com os campos para os valores relativos a

CLIENTE | ENDEREÇO | CEP | REGIÃO

daí vc faz um if

if RS.EOF then
response.write "nenhum cliente cadastrado nessa região"
else

do while not RS.EOF
response.write "<br><br>cliente: " & RS("cliente") & "<br> Rua: " & RS("endereço") & "<br>CEP: " & RS("CEP")
RS.MoveNext
loop
end if

Edição feita por: JurisCode, 30/11/2007, 19:04.