<% 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> </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....