Flash + AJAX + BD

xanburzum · Outubro 13, 2009

é gerado algum erro !?!?!?!

FaustiniJr · Outubro 13, 2009

simplesmente fica em branco as paginas...

http://www.playlist.ddns.com.br:8080/geomap/default.asp

e testando a lista, para ver se puxa algo do sql, tb não dá nada...

http://www.playlist.ddns.com.br:8080/geomap/lista_cliente.asp?estado=MG,true

FaustiniJr · Outubro 13, 2009

Detalhes dos erros da página da Web

Agente de Usuário: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.0; Trident/4.0; SLCC1; .NET CLR 2.0.50727; InfoPath.2; .NET CLR 3.5.30729; .NET CLR 3.0.30618)

Carimbo de data/hora: Tue, 13 Oct 2009 20:33:48 UTC

Mensagem: Objeto esperado

Linha: 16

Caractere: 2

Código: 0

URI: http://www.playlist.ddns.com.br:8080/geomap/

conteudo da linha:

12. //DADOS BD

13. host ="playlist.ddns.com.br"

14. usuario ="enquete"

15. senha ="******"

16. banco ="EnquetesSite"

FaustiniJr · Outubro 14, 2009

eu fiz uma tabela em xls com a mesma estrutura do sql, tem como eu passar a fazer consulta nessa tabela XLS?

Estou querendo apenas testar, colocando o site em um servidor diferente para verificar se o erro possa estar no servidor da empresa... pois não vejo mais onde procurar erros.

FaustiniJr · Outubro 14, 2009

ninguem sabe me informar qual o problema ou como passar o bd pra xls nao?

FaustiniJr · Outubro 14, 2009

para vocês entenderem o que estou tentando fazer, entrem na página >> http://www.tudoradio.com/radios.php

As diferençãs são:

- estou usando um flash

- estou usando a lp ASP

- o servidor é local (SQL)

Salgado · Outubro 14, 2009

Então vamos por partes. Façamos 1º funcionar as buscas em seu BD.

Crie um FORM básico, em HTML mesmo e mostre também como está o seu script de pesquisa no BD.

FaustiniJr · Outubro 14, 2009

ok... ta criado o form no arq form.htm..

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>

<body>
<form id="form1" name="form1" method="post" action="">
  <p>
    <label>radio
      <input type="text" name="tfName" id="tfName" />
    </label>
  </p>
  <p>cidade
    <label>
      <input type="text" name="tfCity" id="tfCity" />
    </label>
  </p>
  <p>estado
    <label>
      <input type="text" name="tfEstado" id="tfEstado" />
    </label>
  </p>
  <p>país
    <label>
      <input type="text" name="tfPais" id="tfPais" />
    </label>
  </p>
</form>
</body>
</html>

abaixo, meu script de pesquisa ao BD no arq default.asp:

<%//Definindo as variaveis que serão utilizadas no código
dim host, usuario, senha, banco, cn, sql, rs

//Dados de acesso ao BD
host    ="sql.playlist.com.br"
usuario ="enquete"
senha   ="******"
banco   ="EnquetesSite"

//Conectando ao BD 
cn="ODBC;DSN=SQL;Driver=SQL Server;Server=Servidor;uid=enquete;pwd=******;database=EnquetesSite"

//Consultando o BD
set rs = bd.execute(sql)sql = "SELECT DISTINCT estado FROM clientes"

//Executa a consulta ao BD
rs.Open sql, cn

//Percorre a tabela selecionando os estados e enviando para lista_cliente.asp
i = 0
if not rs.eof then
    do until rs.eof
   i = i + 1
   if i <> 1 then
      estado = estado & "," & rs("estado")
   else
      estado = estado & rs("estado")
   end if
   rs.movenext
   loop
 end if
%>

FaustiniJr · Outubro 15, 2009

Desculpa a gonorância ae.. mas é que estava com cabeça quente e não interpretei direito... fiz o form simples, buscando apenas os estados e me retornou corretamente... fiz o seguinte codigo:

<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Clientes Playlist</title>

<!-- Função que consulta os estados no BD -->
<%
//DADOS BD
host	="servidor"
usuario	="enqueteplaylist"
senha	="******"
banco	="EnquetesSitePlaylist"

//CONEXÃO AO BD
set conexao =Server.CreateObject("Adodb.Connection")
conexao.ConnectionString ="ODBC;DSN=SQL;Driver=SQL Server;Server=servidor;uid=enqueteplaylist;pwd=******;database=EnquetesSitePlaylist"
conexao.Open

//CONSULTA AO BD
set rs =conexao.execute("SELECT DISTINCT estado FROM clientes")

//PERCORRE O BD E INFORMA OS ESTADOS CONSULTADOS PARA O FLASH E PARA A LISTAGEM
i = 0
if not rs.eof then 
   do until rs.eof
   i = i + 1
   if i <> 1 then
      estados = estados & "," & rs("estado")
   else
      estados = estados & rs("estado")
   end if
   rs.movenext
   loop 
end if
%>

<script type="text/javascript" src="mostraEstados.js"></script>

</head>

<body>
<form name="form1" method="post" action="">
  estado
  <label>
    <input name="tfEstado" type="text" id="tfEstado" value="<% =estados %>">
  </label>
</form>
</body>
</html>

o resultado, vcs podem conferir em http://playlist.ddns.com.br:8080/geomap/teste.asp

agora que to ficando doido mesmo com esse problema, vendo que a consulta está correta...

FaustiniJr · Outubro 15, 2009

já que essa parte, o resultado saiu corretamente no campo, pois será dessa forma que quero que o flash reconheça os estados, tentei agora incluir o flash ao site para ver se ele vai conseguir buscar as informações, mas nada deu... veja o que fiz:

teste.asp

<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Clientes Playlist</title>

<!-- Função que consulta os estados no BD -->
<%
//DADOS BD
host	="server"
usuario	="enqueteplaylist"
senha	="***"
banco	="EnquetesSitePlaylist"

//CONEXÃO AO BD
set conexao =Server.CreateObject("Adodb.Connection")
conexao.ConnectionString ="ODBC;DSN=SQL;Driver=SQL Server;Server=server;uid=enqueteplaylist;pwd=***;database=EnquetesSitePlaylist"
conexao.Open

//CONSULTA AO BD
set rs =conexao.execute("SELECT DISTINCT estado FROM clientes WHERE pais='BR'")

//PERCORRE O BD E INFORMA OS ESTADOS CONSULTADOS PARA O FLASH E PARA A LISTAGEM
i = 0
if not rs.eof then 
   do until rs.eof
   i = i + 1
   if i <> 1 then
      estados = estados & "," & rs("estado")
   else
      estados = estados & rs("estado")
   end if
   rs.movenext
   loop 
end if
%>

</head>

<body>
<p>
  <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="710" height="500" title="geomap">
    <param name="movie" value="geomap.swf">
    <param name="quality" value="high">
    <param name="FlashVars" value="vEstados=<%=estados%>">
    <param name="wmode" value="opaque">
    <embed src="geomap.swf" quality="high" wmode="opaque" pluginspage="http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="710" height="500"></embed>
  </object>

</p>
<form name="form1" method="post" action="">
  estado
  <label>
    <input name="tfEstado" type="text" id="tfEstado" value="<%=estados%>">
  </label>
</form>
</body>
</html>

deixei o form, para verem que ele consegue fazer a busca normalmente... mas o flash nao...

e no flash, está assim o código:

//vEstados="SP,MG,RJ";
var my_array:Array = vEstados.split(",");
//trace(my_array[0]);
for (var i = 0; i<my_array.length; i++) {
   tEstado(my_array[i]);
}

function tEstado(estado) {
   var my_color1:Color = new Color(estado);
   my_color1.setRGB(0xF7D137);
   eval(estado).onRollOver = function() {
      var my_color2:Color = new Color(this);
      my_color2.setRGB(0xE3C035);
	  this.swapDepths(AM);
   };
   eval(estado).onRollOut = function() {
      var my_color3:Color = new Color(this);
      my_color3.setRGB(0xF7D137);
	  this.swapDepths(AM);
   };
   eval(estado).onRelease = function() {
      getURL("javascript:mostraEstados('"+estado+"');");
   };
}

Salgado · Outubro 16, 2009

Possivelmente é algum problema em seu Flash. Teste passando parâmetros fixos para ele.

FaustiniJr · Outubro 20, 2009

Ainda não testei o flash, mas hoje me veio isso em mente, que só poderia ser o flash... sendo ele, existe outra forma de enviar os resultados do sql sem ser pelo FlashVars?

Patrique · Outubro 20, 2009

Tem como em ajax mano, mais você que enviar este resultados para onde?

FaustiniJr · Outubro 20, 2009

quero enviar pro AC no flash... que vai capturar esses resultados e colorir os estados em que tenho cliente... poderia ter feito de forma definitiva, mas caso um estado novo apareça, não tenho que filtar alterando o código do flash só pra adicionar mais um estado...

FaustiniJr · Outubro 20, 2009

antes de testar o flash, cheguei a modificar minha conexão, agora conectando com um arq .mdb, ainda assim permanecendo com erro, vejam só como ficaram meus arquivos após a troca da forma de conexão:

//default.asp

<%@LANGUAGE="VBSCRIPT" %>
<%
'******* Conecta à Base de Dados
set conn = createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("/pages/bd.mdb")
set rs = createobject("adodb.recordset")
set rs.activeconnection = conn

'******* Percorre o BD e informa os estados requiridos
i = 0
if not rs.eof then
   do until rs.eof
   i = i + 1
   if i <> 1 then
      estados = estados & "," & rs("estado")
   else
      estados = estados & rs("estado")
   end if
   rs.movenext
   loop
end if
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Clientes Playlist</title>

<script type="text/javascript" src="mostraEstados.js"></script>

</head>

<body>

<table width="882" border="1">
  <tr>
    <th width="710" scope="col"><script language="JavaScript" type="text/javascript">
	AC_FL_RunContent(
		'codebase', 'http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=8,0,0,0',
		'width', '550',
		'height', '400',
		'src', 'geomap',
		'quality', 'high',
		'pluginspage', 'http://www.adobe.com/go/getflashplayer',
		'align', 'middle',
		'play', 'true',
		'loop', 'true',
		'scale', 'showall',
		'wmode', 'window',
		'devicefont', 'false',
		'id', 'geomap',
		'bgcolor', '#ffffff',
		'name', 'geomap',
		'menu', 'true',
		'allowFullScreen', 'false',
		'allowScriptAccess','sameDomain',
		'movie', 'geomap',
		'salign', ''
		); //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=8,0,0,0" width="710" height="500" id="geomap" align="middle">
        <param name="allowScriptAccess" value="sameDomain" />
        <param name="allowFullScreen" value="false" />
        <param name="FlashVars" value="vEstados=<%=estados%>" />
        <param name="movie" value="geomap.swf" />
        <param name="quality" value="high" />
        <param name="bgcolor" value="#ffffff" />
        <embed src="geomap.swf" quality="high" bgcolor="#ffffff" width="550" height="400" name="geomap" align="middle" allowscriptaccess="sameDomain" allowfullscreen="false" type="application/x-shockwave-flash" pluginspage="http://www.adobe.com/go/getflashplayer" />      
</object>
    </noscript></th>
    <div id="divRepre">
    <th width="156" scope="col"><iframe id="lista" src="exibeClientes.asp" style="width:323px; height: 500px;" frameborder="0" scrolling="no" marginheight="0" marginwidth="0"> </iframe></th>
    </div>
  </tr>
</table>
<p>  </p>
</head>
<body bgcolor="#ffffff">
</body>
</html>

//exibeClientes.asp

<% @ LANGUAGE="VBSCRIPT" %>
<% Response.Expires = 0 %>
<%

Response.Expires = 0

'******* Conecta à Base de Dados
set conn = createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("/pages/bd.mdb")
set rs = createobject("adodb.recordset")
set rs.activeconnection = conn

'******* Carrega Parametro do Formulário
ini = Request.Querystring("ini")
rad = Request.Form("radio")
cid = Request.Form("cidade")
est = Request.Form("estado")
pai = Request.Form("pais")
img = Request.Form("logo")
web = Request.Form("site")


rad = replace(server.HTMLEncode(rad),"'","`")
cid = replace(server.HTMLEncode(cid),"'","`")
est = replace(server.HTMLEncode(est),"'","`")
pai = replace(server.HTMLEncode(pai),"'","`")
img = replace(server.HTMLEncode(img),"'","`")
web = replace(server.HTMLEncode(web),"'","`")

'******* Verifica e Inclui Novo Registo (inativo)
if (rad <> "" AND cid <> "" AND est <> "" AND pai <> "" AND img <> "" AND web <> "") then
sqli = "INSERT INTO clientes (radio,cidade,estado,pais,logo,site) VALUES ('" & rad & "','" & cid & "','" & est & "','" & pai & "','" & img & "','" & web & "')"
rs.open sqli
ini = 1
end if

'******* Inicializa Variaveis
ini = int(ini)
if ini <= 0 then ini = 1 end if
reg = 0
npg = 10
pgt = ini - 1
voltar = "Voltar"


'******* Consulta BD e lista Clientes
sql = "SELECT * FROM clientes WHERE estado='" & Request("estados") & "' "
rs.open sql

do while not rs.eof
reg = reg + 1
if rs("site") <> "" then
   site = " - <a href='http://" & rs("site") & "'>[Site]</a>"
   else
   site = " - [Site]"
end if
if rs("logo") <> "" then
	logo = "<img src=" &rs("logo") & " width='"40"' height='"40"'>"
end if
if reg >= ini AND reg <= ini+npg-1 then
pgt = pgt + 1
clientes = clientes & "<table width="200" border="0">  <tr>    <th rowspan="2" scope="col">logo</th>    <th scope="col">" & rs("radio") & "</th>
<th scope="col">" & site & "</th>   </tr>  <tr>    <th colspan="2" scope="row">" & rs("cidade") & "," & rs("estado") & "-" & rs("pais") & "</th>
</tr></table>"
end if

 rs.movenext
 loop
 if reg > ini+npg-1 then
   proximo = " <a href='default.asp?ini=" & ini + npg & "'> [ Próximos ]</a>"
   else
   proximo = " [ Próximos ]"
 end if
 if ini-npg > 0 then
   voltar = " <a href='default.asp?ini=" & ini - npg & "'> [ Anteriores ]</a>"
   else
   voltar = " [ Anteriores ]"
 end if

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Nossos Clientes</title>
</head>

<body>
<tr>
<td align="middle" bgColor="#004184" colSpan="2" width="436">
      <font face="Tahoma" style="font-size: 9pt">
            <span style="COLOR: #CEE4F5"><b>Clientes - <% Response.Write est %></b>
            </span>
      </font>
</td>
</tr>
<% Response.Write clientes %>
<font face="Tahoma" style="font-size: 9pt" color="#004184"></font>
<tr bgColor="#ffffff">
    <td width="150">
        <font face="Tahoma" style="font-size: 9pt">
              <span style="COLOR: #004184">
                    <b> Total: <% Response.Write reg %>
                    </b>
              </span>
        </font>
    </td>
    <td align="right" width="280">
        <span style="FONT-SIZE: 13px; COLOR: black">
              <% Response.Write ini & " a " & pgt & " - " & voltar & proximo %>
        </span>
        <span style="FONT-SIZE: 9pt; ">
              <font color="#004184" face="Tahoma"><br>
              </font>
        </span>
    </td>
</tr>
</body>
</html>

//mostraEstados.js

try{
   xmlhttp = new XMLHttpRequest();
}catch(ee){
   try{
      xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
   }catch(e){
      try{
         xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
      }catch(E){
        xmlhttp = false;
      }
   }
}
function fxmlhttp(xmlhttp,conteudo) {
   xmlhttp.onreadystatechange=function() {
      if (xmlhttp.readyState==4){
         var texto=xmlhttp.responseText;
         texto=texto.replace(/\+/g," ")
         texto=unescape(texto);
         conteudo.innerHTML = texto;
      } 
   }
   xmlhttp.send(null)
}
function mostraEstados(oestado) {
   var conteudo=document.getElementById("divRepre");
   xmlhttp.open("GET", "exibeClientes.asp?estado="+oestado,true);
   fxmlhttp(xmlhttp,conteudo);
}

vou fazer o teste definindo os estados no flash, tirando a tag FlashVars e linkando os estados no flash diretamente (ex: /exibeClientes.asp?estado="MG")

FaustiniJr · Outubro 20, 2009

//geomap.fla

vEstados="AM,AP,BA,CE,DF,ES,GO,MA,MG,MS,MT,PA,PB,PE,PI,PR,RJ,RN,RO,RR,RS,SC,SE,SP,TO";

var my_array:Array = vEstados.split(",");
trace(my_array[0]);
for (var i = 0; i<my_array.length; i++) {
   tEstado(my_array[i]);
}

function tEstado(estado) {
   var my_color1:Color = new Color(estado);
   my_color1.setRGB(0xF7D137);
   eval(estado).onRollOver = function() {
      var my_color2:Color = new Color(this);
      my_color2.setRGB(0xE3C035);
	  this.swapDepths(AM);
   };
   eval(estado).onRollOut = function() {
      var my_color3:Color = new Color(this);
      my_color3.setRGB(0xF7D137);
	  this.swapDepths(AM);
   };
   eval(estado).onRelease = function() {
      getURL("javascript:mostraEstados('"+estado+"');");
   };
}

//AC de cada Estado (ex: Minas Gerais)

on (rollOver) {
	gotoAndStop(2);
}

on (rollOut) {
	gotoAndPlay(1);
}

on (release) {
      getURL(" /exibeClientes.asp?estado='"MG"' ");
}

FaustiniJr · Outubro 20, 2009

Remodifiquei novamente para o sql... rsrs... e testei com as variaveis no flash ja definidos, ficando assim cada arq:

//default.htm

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Clientes Playlist</title>

<script type="text/javascript" src="mostraEstados.js"></script>

</head>

<body>

<table width="882" border="1">
  <tr>
    <th width="710" scope="col">
      <noscript>
      <object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=8,0,0,0" width="710" height="500" id="geomap" align="middle">
        <param name="allowScriptAccess" value="sameDomain" />
        <param name="allowFullScreen" value="false" />
        <param name="movie" value="geomap.swf" />
        <param name="quality" value="high" />
        <param name="bgcolor" value="#ffffff" />
        <embed src="geomap.swf" quality="high" bgcolor="#ffffff" width="550" height="400" name="geomap" align="middle" allowscriptaccess="sameDomain" allowfullscreen="false" type="application/x-shockwave-flash" pluginspage="http://www.adobe.com/go/getflashplayer" />      
      </object>
    </noscript></th>
    <th width="156" scope="col">
    <div id="divRepre">
    	<iframe id="lista" src="exibeClientes.asp" style="width:323px; height: 500px;" frameborder="0" scrolling="no" marginheight="0" marginwidth="0"> </iframe>
    </div>
    </th>
  </tr>
</table>
</body>
</html>

//exibeClientes.asp

<%@LANGUAGE="VBSCRIPT"%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

<!-- FunÃ§Ã£o que consulta e exibe os clientes/estado na tela -->
<%
//DADOS BD
host	="playlist.ddns.com.br,1434"
usuario	="enqueteplaylist"
senha	="***"
banco	="EnquetesSitePlaylist"

//CONEXÃƒO AO BD
set conexao	=Server.CreateObject("Adodb.Connection")
conexao.ConnectionString ="ODBC;DSN=SQL;Driver=SQL Server;Server=playlist.ddns.com.br,1434;uid=enqueteplaylist;pwd=***;database=EnquetesSitePlaylist"
conexao.Open

//CONSULTA AO BD
set rs = conexao.execute("SELECT * FROM clientes WHERE estado='"&Request("estado") & "'")

%> 

</head>
<body>

</body>
</html>

//mostraEstados.js

try{
   xmlhttp = new XMLHttpRequest();
}catch(ee){
   try{
      xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
   }catch(e){
      try{
         xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
      }catch(E){
        xmlhttp = false;
      }
   }
}
function fxmlhttp(xmlhttp,conteudo) {
   xmlhttp.onreadystatechange=function() {
      if (xmlhttp.readyState==4){
         var texto=xmlhttp.responseText;
         texto=texto.replace(/\+/g," ")
         texto=unescape(texto);
         conteudo.innerHTML = texto;
      } 
   }
   xmlhttp.send(null)
}
function mostraEstados(oestado) {
   var conteudo=document.getElementById("divRepre");
   xmlhttp.open("GET", "exibeClientes.asp?estado="+oestado,true);
   fxmlhttp(xmlhttp,conteudo);
}

//gemomap.swf

vEstados="AM,AP,BA,CE,DF,ES,GO,MA,MG,MS,MT,PA,PB,PE,PI,PR,RJ,RN,RO,RR,RS,SC,SE,SP,TO";

var my_array:Array = vEstados.split(",");
trace(my_array[0]);
for (var i = 0; i<my_array.length; i++) {
   tEstado(my_array[i]);
}

function tEstado(estado) {
   var my_color1:Color = new Color(estado);
   my_color1.setRGB(0xF7D137);
   eval(estado).onRollOver = function() {
      var my_color2:Color = new Color(this);
      my_color2.setRGB(0xE3C035);
	  this.swapDepths(AM);
   };
   eval(estado).onRollOut = function() {
      var my_color3:Color = new Color(this);
      my_color3.setRGB(0xF7D137);
	  this.swapDepths(AM);
   };
   eval(estado).onRelease = function() {
      getURL("javascript:mostraEstados('"+estado+"');");
   };
}

//ac do estado no flash

on (rollOver) {
	gotoAndStop(2);
}

on (rollOut) {
	gotoAndPlay(1);
}

on (release) {
      getURL(" /exibeClientes.asp?estado='"MG"' ");
}

Permanece não exibindo o flash e dessa vez, não aparece erro nenhum no browser...

FaustiniJr · Outubro 26, 2009

Bom galera... resolvi fazer da seguinte forma: No flash, os estados terão definidos os links para onde será redirecionado a página, onde será exibido a lista de clientes, nessa página com a lista, estou fazendo em ASP, está exibindo normalmente os clientes, o problema agora que não estou sabendo trabalhar com tabela e quando tentei dividir a listagem, exibindo apenas 10 clientes por página, as próximas páginas não aparecem.

O que eu já fiz: http://www.playlist.ddns.com.br:8080/geomap/teste.asp

meu código:

<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Clientes Playlist</title>

<!-- Função que consulta os estados no BD -->
<%
//DADOS BD
host	="playlist.ddns.com.br"
usuario	="enqueteplaylist"
senha	="***"
banco	="EnquetesSitePlaylist"

//CONEXÃO AO BD
set conexao =Server.CreateObject("Adodb.Connection")
conexao.ConnectionString ="ODBC;DSN=SQL;Driver=SQL Server;Server=playlist.ddns.com.br;uid=enqueteplaylist;pwd=***;database=EnquetesSitePlaylist"
conexao.Open

//CONSULTA AO BD
set rs =conexao.execute("SELECT * FROM clientes")

'******* Inicializa Variaveis
ini = int(ini)
if ini <= 0 then ini = 1 end if
reg = 0
npg = 10
pgt = ini - 1
voltar = "Voltar"

'******* Consulta e Exibe Resultados
do while not rs.eof
reg = reg + 1
if rs("site") <> "" then
   site = " - <a href='http://" & rs("site") & "'>[Site]</a>"
   else
   site = " - [Site]"
end if
if reg >= ini AND reg <= ini+npg-1 then
pgt = pgt + 1
radios = radios & "<p><font face='Tahoma' style='font-size: 9pt'>" & "<strong>" & rs("radio") & "</strong>" & site & "</p>" & "<p>" & rs("cidade") & ", " & rs("estado") & " - " & rs("pais") & "</font></p><br />"
end if

 rs.movenext
 loop
 if reg > ini+npg-1 then
   proximo = " <a href='teste.asp?ini=" & ini + npg & "'> [ Próximos ]</a>"
   else
   proximo = " [ Próximos ]"
 end if
 if ini-npg > 0 then
   voltar = " <a href='teste.asp?ini=" & ini - npg & "'> [ Anteriores ]</a>"
   else
   voltar = " [ Anteriores ]"
 end if

%>

</head>

<body>
<tr>
<td align="middle" bgColor="#004184" colSpan="2" width="436">
      <font face="Tahoma" style="font-size: 9pt">
            <span style="COLOR: #CEE4F5"><b>Clientes - MG</b>
            </span>
      </font>
</td>
</tr>
<% Response.Write radios %>
<font face="Tahoma" style="font-size: 9pt" color="#004184"></font>
<tr bgColor="#ffffff">
    <td width="150">
        <font face="Tahoma" style="font-size: 9pt">
              <span style="COLOR: #004184">
                    <b> Total: <% Response.Write reg %>
                    </b>
              </span>
        </font>
    </td>
    <td align="right" width="280">
        <span style="FONT-SIZE: 13px; COLOR: black">
              <% Response.Write ini & " a " & pgt & " - " & voltar & proximo %>
        </span>
        <span style="FONT-SIZE: 9pt; ">
              <font color="#004184" face="Tahoma"><br>
              </font>
        </span>
    </td>
</tr>
</body>
</html>

Arquivado

Flash + AJAX + BD

Recommended Posts

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

FaustiniJr 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

FaustiniJr 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

FaustiniJr 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

FaustiniJr 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

FaustiniJr 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

FaustiniJr 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

FaustiniJr 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

FaustiniJr 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

FaustiniJr 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

FaustiniJr 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

FaustiniJr 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

FaustiniJr 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

FaustiniJr 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

FaustiniJr 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Fóruns

Tempo Real