Jump to content

  2. → Viewing Profile: Tópicos: jarrier_paulo

jarrier_paulo

Member Since 29/10/2004
Offline Last Active 18/11/2009, 10:18
-----

Topics I've Started

Contar Registros

14/10/2009, 09:42

Galera eu estou com um problema que deve ser comum, tenho um código que conta os registro de um determinada tabela, o contador funcionava perfeitamente quando o banco de dados era access agora que mudei para mysql ele não funciona mais, alguém poderia me ajudar?

O código com erro é o seguinte:

Microsoft VBScript runtime error '800a000d'

Type mismatch

/agendateste/web/grupo.asp, line 118


a linha 118 é onde esta isso aqui ( if rc("count") < 10 then ).

<!--#include file="conexao.asp"-->
<%
	if Session("usu_id") = "" then
	  Response.Redirect("Default.asp?error=1")
	end if

	Dim Conexao, strSQL, rs, rc
	
	call abre_conexao
	
	if Request.QueryString("grp_id_exc") <> "" then
	  strSQL = "select * from tbl_grupo where grp_id = " & Request.QueryString("grp_id_exc")
	  set rs = Conexao.execute(strSQL)
	  if rs("usu_id") <> Session("usu_id") then
		Response.Redirect("defaut.asp?error=1")
	  end if
	  strSQL = "delete from tbl_contato where ctt_tipo = '" & rs("grp_descricao") & "'"
	  set rs = Conexao.execute(strSQL)
	  strSQL = "delete from tbl_grupo where grp_id = " & Request.QueryString("grp_id_exc")
	  set rs = Conexao.execute(strSQL)
	end if
	
	strSQL = "select * from tbl_grupo where usu_id = " & Session("usu_id")
	if Request.Form("edt_grp_descricao_pesquisa") <> "" then
		strSQL = strSQL & " and grp_descricao like '%" & Request.Form("edt_grp_descricao_pesquisa") & "%'"
	end if
	strSQL = strSQL & " order by grp_descricao"
	set rs = Conexao.execute(strSQL)
%>
<!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=iso-8859-1">
<title>Agenda - </title>
  <link href="css.css" rel="stylesheet" type="text/css">
  <link href="facebox.css" rel="stylesheet" type="text/css">
  <script src="js/jquery-1.2.2.pack.js" type="text/javascript"></script>
  <script src="js/facebox.js" type="text/javascript"></script>
  <script src="js/funcoes.js" type="text/javascript"></script>
  <script type="text/javascript">
		jQuery(document).ready(function($) {
		  $('a[rel*=facebox]').facebox()
		})
  </script>

  <script language="JavaScript" type="text/javascript">
  
	function MM_goToURL() { //v3.0
	var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
	  for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
	}
	
	function confirma_excluir(endereco){
	  if (confirm("Atenção: Todos os contatos que pertencem a este grupo serão apagados. Tem certeza que deseja excluir o grupo?")) {
		document.location=endereco;
	}
	}
	
  </script>
  <style type="text/css">
<!--
.style1 {font-size: 16px}
body {
	background-image: url(imagens/img_fundo.jpg);
	background-repeat: no-repeat;
}
-->
  </style>
</head>

<body>
  <div id="global2">
	<div id="fundo3"></div>
	<div id="agenda">
	  <table height="25" cellpadding="0" cellspacing="0" border="0">
		<tr>
		  <td width="36"><img src="imagens/spacer.gif" /></td>
		  <td align="center" valign="middle"><span class="verdana18666666">Administrar Grupos</span></td>
		</tr>
	  </table>
	</div>
	<div id="cabecalho">
	  <table width="719" height="22" cellpadding="0" cellspacing="0" border="0">
		<tr>
		  <td width="5"><img src="imagens/spacer.gif" /></td>
		  <td width="98" style="border-right-color:#CCCCCC;border-right-style:solid;border-right-width:1px;"><span class="verdana12666666bold">C&oacute;digo</span></td>
		  <td width="423" style="border-right-color:#CCCCCC;border-right-style:solid;border-right-width:1px;"><span class="verdana12666666bold">&nbsp;Descri&ccedil;&atilde;o do Grupo</span></td>
		  <td width="132" style="border-right-color:#CCCCCC;border-right-style:solid;border-right-width:1px;"><span class="verdana12666666bold">&nbsp;Qtde. Contatos</span></td>
		  <td width="40"><img src="imagens/spacer.gif" /></td>
		  <td width="21"><img src="imagens/spacer.gif" /></td>
		</tr>
	  </table>
	</div>
	<div id="corpo">
	  <table width="697" cellpadding="0" cellspacing="0" border="0" background="imagens/bgcorpo.jpg">
<%
  while not rs.eof
	  strSQL = "select count(*) as count from tbl_contato where usu_id = " & Session("usu_id") & " and ctt_tipo= '" & rs("grp_descricao") & "'"
	set rc = Conexao.execute(strSQL)
%>

		<tr onMouseOver="this.style.backgroundColor='#EEEEEE';" onmouseout="this.style.backgroundColor='';">
		  <td height="22" width="5"><img src="imagens/spacer.gif" /></td>
		  <td width="98" style="border-right-color:#CCCCCC;border-right-style:solid;border-right-width:1px;"><span class="verdana12666666">&nbsp;
		  <%
		  if rs("grp_id") < 10 then
			Response.Write("000" & rs("grp_id"))
		  elseif rs("grp_id") < 100 then
			Response.Write("00" & rs("grp_id"))
		  elseif rs("grp_id") < 1000 then
			Response.Write("0" & rs("grp_id"))
		  end if
		  %>
		  </span></td>
		  <td width="423" style="border-right-color:#CCCCCC;border-right-style:solid;border-right-width:1px;"><span class="verdana12666666">&nbsp;<%=rs("grp_descricao")%></span></td>
		  <td width="132" style="border-right-color:#CCCCCC;border-right-style:solid;border-right-width:1px;"><span class="verdana12666666">
		  <%
		  if rc("count") < 10 then
			Response.Write("000" & rc("count"))
		  elseif rs("grp_id") < 100 then
			Response.Write("00" & rc("count"))
		  elseif rs("grp_id") < 1000 then
			Response.Write("0" & rc("count"))
		  end if
		  %>&nbsp;<a href="contato.asp?ctt_tipo=<%=rs("grp_descricao")%>">Detalhar</a>
		  </span></td>
		  <td width="20"><a href="#alterar<%=rs("grp_id")%>" onclick="divBackON();" rel="facebox"><img src="imagens/+.jpg" alt="Editar Grupo" border="0" /></a></td>
		  <td width="20"><a href="#" onclick="confirma_excluir('grupo.asp?grp_id_exc=<%=rs("grp_id")%>')"><img src="imagens/-.jpg" alt="Excluir Grupo" border="0" /></a></td>
		</tr>
<%
	  rs.movenext
	  if not rs.eof then
%>
		<tr>
		  <td height="8"><img src="imagens/spacer.gif" /></td>
		  <td height="8" style="border-right-color:#CCCCCC;border-right-style:solid;border-right-width:1px;"><img src="imagens/spacer.gif" /></td>
		  <td height="8" style="border-right-color:#CCCCCC;border-right-style:solid;border-right-width:1px;"><img src="imagens/spacer.gif" /></td>
		  <td height="8" style="border-right-color:#CCCCCC;border-right-style:solid;border-right-width:1px;"><img src="imagens/spacer.gif" /></td>
		  <td height="8"><img src="imagens/spacer.gif" /></td>
		  <td height="8"><img src="imagens/spacer.gif" /></td>
		</tr>
<%
	end if
  wend
%>
	  </table>
	</div>
	<div id="fundo2">
	  <table width="505" height="43" cellpadding="0" cellspacing="0" border="0">
	  <form action="grupo.asp" method="post">
		<tr>
		  <td width="217" align="left" valign="middle"><span class="verdana18666666">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span></td>
		  <td width="214" align="left" valign="middle"><input type="text" size="30" name="edt_grp_descricao_pesquisa" /></td>
		  <td width="74" valign="middle"><input type="submit" value="Buscar" /></td>
		</tr>
	  </form>
	  </table>
	</div>
	<div id="botoes">
	  <table width="282" height="24" cellpadding="0" cellspacing="0" border="0">
		<tr>
		  <td width="60"><a href="#novo" onclick="divBackON();" rel="facebox"><img src="imagens/novo.JPG" alt="Criar Novo Grupo" border="0" /></a></td>
		  <td width="222"><input type="button" value="Fechar Grupos" onclick="MM_goToURL('parent','contato.asp');return document.MM_returnValue" /></td>
		</tr>
	  </table>
	</div>
  </div>
	  <div id="overlay"></div>
	<div id="novo" style="display:none;">
	  <form action="fun_cad_grupo.asp" language="JavaScript" method="post">
	  <table width="594" height="99" cellpadding="0" cellspacing="0" border="0">
		<tr>
		  <td align="center" valign="middle">
			<table width="542" height="99" cellpadding="0" cellspacing="0" border="0">
			<tr bgcolor="#cccccc">
			  <td height="24" colspan="3" align="left"><span class="verdana18666666">&nbsp;Novo Grupo</span></td>
			  <td width="62" valign="middle"><img src="imagens/spacer.gif" /></td>
			  <td width="61" valign="middle"><img src="imagens/spacer.gif" /></td>
			</tr>
			<tr>
			  <td height="24" width="93"><img src="imagens/spacer.gif" /></td>
			  <td width="280"><img src="imagens/spacer.gif" /></td>
			  <td width="46"><img src="imagens/spacer.gif" /></td>
			  <td width="62"><img src="imagens/spacer.gif" /></td>
			  <td width="61"><img src="imagens/spacer.gif" /></td>
			</tr>
			<tr>
			  <td height="27" valign="middle" align="left"><span class="verdana14666666">Descri&ccedil;&atilde;o:</span></td>
			  <td colspan="4" valign="middle" align="left"><input type="text" size="70" name="edt_descricao" /></td>
			</tr>
			<tr bgcolor="#cccccc">
			  <td height="24" colspan="3" align="right" valign="middle"><input type="submit" value="Salvar" /></td>
			  <td colspan="2" align="center" valign="middle"><input type="reset" value="Limpar" /></td>
			</tr>
			</table>
		  </td>
		</tr>
	  </table>
	  </form>
	</div>
<%
	strSQL = "select * from tbl_grupo where usu_id = " & Session("usu_id") & " order by grp_descricao"
	set rs = Conexao.execute(strSQL)
	while not rs.eof
%>
	
	<div id="alterar<%=rs("grp_id")%>" style="display:none;">
	  <form action="fun_alt_grupo.asp?grp_id=<%=rs("grp_id")%>" onSubmit="return contato_Validator(this)" language="JavaScript" method="post">
	  <table width="594" height="99" cellpadding="0" cellspacing="0" border="0">
		<tr>
		  <td align="center" valign="middle">
			<table width="542" height="99" cellpadding="0" cellspacing="0" border="0">
			<tr bgcolor="#cccccc">
			  <td height="24" colspan="3" align="left"><span class="verdana18666666">&nbsp;Novo Grupo</span></td>
			  <td width="62" valign="middle"><img src="imagens/spacer.gif" /></td>
			  <td width="61" valign="middle"><img src="imagens/spacer.gif" /></td>
			</tr>
			<tr>
			  <td height="24" width="93"><img src="imagens/spacer.gif" /></td>
			  <td width="280"><img src="imagens/spacer.gif" /></td>
			  <td width="46"><img src="imagens/spacer.gif" /></td>
			  <td width="62"><img src="imagens/spacer.gif" /></td>
			  <td width="61"><img src="imagens/spacer.gif" /></td>
			</tr>
			<tr>
			  <td height="27" valign="middle" align="left"><span class="verdana14666666">Descri&ccedil;&atilde;o:</span></td>
			  <td colspan="4" valign="middle" align="left"><input type="text" size="70" name="edt_descricao" value="<%=rs("grp_descricao")%>" /></td>
			</tr>
			<tr bgcolor="#cccccc">
			  <td height="24" colspan="3" align="right" valign="middle"><input type="submit" value="Salvar" /></td>
			  <td colspan="2" align="center" valign="middle"><input type="reset" value="Limpar" /></td>
			</tr>
			</table>
		  </td>
		</tr>
	  </table>
	  </form>
	</div>
<%
	  rs.movenext
	wend
%>
</body>
</html>

Contar Registros

13/10/2009, 21:55

Galera eu estou com um problema que deve ser comum, tenho um código que conta os registro de um determinada tabela, o contador funcionava perfeitamente quando o banco de dados era access agora que mudei para mysql ele não funciona mais, alguém poderia me ajudar?

O código com erro é o seguinte:

Microsoft VBScript runtime error '800a000d'

Type mismatch

/agendateste/web/grupo.asp, line 118


a linha 118 é onde esta isso aqui ( if rc("count") < 10 then ).

<!--#include file="conexao.asp"-->
<%
	if Session("usu_id") = "" then
	  Response.Redirect("Default.asp?error=1")
	end if

	Dim Conexao, strSQL, rs, rc
	
	call abre_conexao
	
	if Request.QueryString("grp_id_exc") <> "" then
	  strSQL = "select * from tbl_grupo where grp_id = " & Request.QueryString("grp_id_exc")
	  set rs = Conexao.execute(strSQL)
	  if rs("usu_id") <> Session("usu_id") then
		Response.Redirect("defaut.asp?error=1")
	  end if
	  strSQL = "delete from tbl_contato where ctt_tipo = '" & rs("grp_descricao") & "'"
	  set rs = Conexao.execute(strSQL)
	  strSQL = "delete from tbl_grupo where grp_id = " & Request.QueryString("grp_id_exc")
	  set rs = Conexao.execute(strSQL)
	end if
	
	strSQL = "select * from tbl_grupo where usu_id = " & Session("usu_id")
	if Request.Form("edt_grp_descricao_pesquisa") <> "" then
		strSQL = strSQL & " and grp_descricao like '%" & Request.Form("edt_grp_descricao_pesquisa") & "%'"
	end if
	strSQL = strSQL & " order by grp_descricao"
	set rs = Conexao.execute(strSQL)
%>
<!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=iso-8859-1">
<title>Agenda - </title>
  <link href="css.css" rel="stylesheet" type="text/css">
  <link href="facebox.css" rel="stylesheet" type="text/css">
  <script src="js/jquery-1.2.2.pack.js" type="text/javascript"></script>
  <script src="js/facebox.js" type="text/javascript"></script>
  <script src="js/funcoes.js" type="text/javascript"></script>
  <script type="text/javascript">
		jQuery(document).ready(function($) {
		  $('a[rel*=facebox]').facebox() 
		})
  </script>

  <script language="JavaScript" type="text/javascript">
  
	function MM_goToURL() { //v3.0
	var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
	  for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
	}
	
	function confirma_excluir(endereco){
	  if (confirm("Atenção: Todos os contatos que pertencem a este grupo serão apagados. Tem certeza que deseja excluir o grupo?")) {
		document.location=endereco;
	}
	}
	
  </script>
  <style type="text/css">
<!--
.style1 {font-size: 16px}
body {
	background-image: url(imagens/img_fundo.jpg);
	background-repeat: no-repeat;
}
-->
  </style>
</head>

<body>
  <div id="global2">
	<div id="fundo3"></div>
	<div id="agenda">
	  <table height="25" cellpadding="0" cellspacing="0" border="0">
		<tr>
		  <td width="36"><img src="imagens/spacer.gif" /></td>
		  <td align="center" valign="middle"><span class="verdana18666666">Administrar Grupos</span></td>
		</tr>
	  </table>
	</div>
	<div id="cabecalho">
	  <table width="719" height="22" cellpadding="0" cellspacing="0" border="0">
		<tr>
		  <td width="5"><img src="imagens/spacer.gif" /></td>
		  <td width="98" style="border-right-color:#CCCCCC;border-right-style:solid;border-right-width:1px;"><span class="verdana12666666bold">C&oacute;digo</span></td>
		  <td width="423" style="border-right-color:#CCCCCC;border-right-style:solid;border-right-width:1px;"><span class="verdana12666666bold">&nbsp;Descri&ccedil;&atilde;o do Grupo</span></td>
		  <td width="132" style="border-right-color:#CCCCCC;border-right-style:solid;border-right-width:1px;"><span class="verdana12666666bold">&nbsp;Qtde. Contatos</span></td>
		  <td width="40"><img src="imagens/spacer.gif" /></td>
		  <td width="21"><img src="imagens/spacer.gif" /></td>
		</tr>
	  </table>
	</div>
	<div id="corpo">
	  <table width="697" cellpadding="0" cellspacing="0" border="0" background="imagens/bgcorpo.jpg">
<%
  while not rs.eof
	  strSQL = "select count(*) as count from tbl_contato where usu_id = " & Session("usu_id") & " and ctt_tipo= '" & rs("grp_descricao") & "'"
	set rc = Conexao.execute(strSQL)
%>

		<tr onMouseOver="this.style.backgroundColor='#EEEEEE';" onmouseout="this.style.backgroundColor='';">
		  <td height="22" width="5"><img src="imagens/spacer.gif" /></td>
		  <td width="98" style="border-right-color:#CCCCCC;border-right-style:solid;border-right-width:1px;"><span class="verdana12666666">&nbsp;
		  <%
		  if rs("grp_id") < 10 then
			Response.Write("000" & rs("grp_id"))
		  elseif rs("grp_id") < 100 then
			Response.Write("00" & rs("grp_id"))
		  elseif rs("grp_id") < 1000 then
			Response.Write("0" & rs("grp_id"))
		  end if
		  %>
		  </span></td>
		  <td width="423" style="border-right-color:#CCCCCC;border-right-style:solid;border-right-width:1px;"><span class="verdana12666666">&nbsp;<%=rs("grp_descricao")%></span></td>
		  <td width="132" style="border-right-color:#CCCCCC;border-right-style:solid;border-right-width:1px;"><span class="verdana12666666">
		  <%
		  if rc("count") < 10 then
			Response.Write("000" & rc("count"))
		  elseif rs("grp_id") < 100 then
			Response.Write("00" & rc("count"))
		  elseif rs("grp_id") < 1000 then
			Response.Write("0" & rc("count"))
		  end if
		  %>&nbsp;<a href="contato.asp?ctt_tipo=<%=rs("grp_descricao")%>">Detalhar</a>
		  </span></td>
		  <td width="20"><a href="#alterar<%=rs("grp_id")%>" onclick="divBackON();" rel="facebox"><img src="imagens/+.jpg" alt="Editar Grupo" border="0" /></a></td>
		  <td width="20"><a href="#" onclick="confirma_excluir('grupo.asp?grp_id_exc=<%=rs("grp_id")%>')"><img src="imagens/-.jpg" alt="Excluir Grupo" border="0" /></a></td>
		</tr>
<%
	  rs.movenext
	  if not rs.eof then
%>
		<tr>
		  <td height="8"><img src="imagens/spacer.gif" /></td>
		  <td height="8" style="border-right-color:#CCCCCC;border-right-style:solid;border-right-width:1px;"><img src="imagens/spacer.gif" /></td>
		  <td height="8" style="border-right-color:#CCCCCC;border-right-style:solid;border-right-width:1px;"><img src="imagens/spacer.gif" /></td>
		  <td height="8" style="border-right-color:#CCCCCC;border-right-style:solid;border-right-width:1px;"><img src="imagens/spacer.gif" /></td>
		  <td height="8"><img src="imagens/spacer.gif" /></td>
		  <td height="8"><img src="imagens/spacer.gif" /></td>
		</tr>
<% 
	end if
  wend
%>
	  </table>
	</div>
	<div id="fundo2">
	  <table width="505" height="43" cellpadding="0" cellspacing="0" border="0">
	  <form action="grupo.asp" method="post">
		<tr>
		  <td width="217" align="left" valign="middle"><span class="verdana18666666">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span></td>
		  <td width="214" align="left" valign="middle"><input type="text" size="30" name="edt_grp_descricao_pesquisa" /></td>
		  <td width="74" valign="middle"><input type="submit" value="Buscar" /></td>
		</tr>
	  </form>
	  </table>
	</div>
	<div id="botoes">
	  <table width="282" height="24" cellpadding="0" cellspacing="0" border="0">
		<tr>
		  <td width="60"><a href="#novo" onclick="divBackON();" rel="facebox"><img src="imagens/novo.JPG" alt="Criar Novo Grupo" border="0" /></a></td>
		  <td width="222"><input type="button" value="Fechar Grupos" onclick="MM_goToURL('parent','contato.asp');return document.MM_returnValue" /></td>
		</tr>
	  </table>
	</div>
  </div>
	  <div id="overlay"></div>
	<div id="novo" style="display:none;">
	  <form action="fun_cad_grupo.asp" language="JavaScript" method="post">
	  <table width="594" height="99" cellpadding="0" cellspacing="0" border="0">
		<tr>
		  <td align="center" valign="middle">
			<table width="542" height="99" cellpadding="0" cellspacing="0" border="0">
			<tr bgcolor="#cccccc">
			  <td height="24" colspan="3" align="left"><span class="verdana18666666">&nbsp;Novo Grupo</span></td>
			  <td width="62" valign="middle"><img src="imagens/spacer.gif" /></td>
			  <td width="61" valign="middle"><img src="imagens/spacer.gif" /></td>
			</tr>
			<tr>
			  <td height="24" width="93"><img src="imagens/spacer.gif" /></td>
			  <td width="280"><img src="imagens/spacer.gif" /></td>
			  <td width="46"><img src="imagens/spacer.gif" /></td>
			  <td width="62"><img src="imagens/spacer.gif" /></td>
			  <td width="61"><img src="imagens/spacer.gif" /></td>
			</tr>
			<tr>
			  <td height="27" valign="middle" align="left"><span class="verdana14666666">Descri&ccedil;&atilde;o:</span></td>
			  <td colspan="4" valign="middle" align="left"><input type="text" size="70" name="edt_descricao" /></td>
			</tr>
			<tr bgcolor="#cccccc">
			  <td height="24" colspan="3" align="right" valign="middle"><input type="submit" value="Salvar" /></td>
			  <td colspan="2" align="center" valign="middle"><input type="reset" value="Limpar" /></td>
			</tr>
			</table>
		  </td>
		</tr>
	  </table>
	  </form>
	</div>
<%
	strSQL = "select * from tbl_grupo where usu_id = " & Session("usu_id") & " order by grp_descricao"
	set rs = Conexao.execute(strSQL)
	while not rs.eof
%>
	
	<div id="alterar<%=rs("grp_id")%>" style="display:none;">
	  <form action="fun_alt_grupo.asp?grp_id=<%=rs("grp_id")%>" onSubmit="return contato_Validator(this)" language="JavaScript" method="post">
	  <table width="594" height="99" cellpadding="0" cellspacing="0" border="0">
		<tr>
		  <td align="center" valign="middle">
			<table width="542" height="99" cellpadding="0" cellspacing="0" border="0">
			<tr bgcolor="#cccccc">
			  <td height="24" colspan="3" align="left"><span class="verdana18666666">&nbsp;Novo Grupo</span></td>
			  <td width="62" valign="middle"><img src="imagens/spacer.gif" /></td>
			  <td width="61" valign="middle"><img src="imagens/spacer.gif" /></td>
			</tr>
			<tr>
			  <td height="24" width="93"><img src="imagens/spacer.gif" /></td>
			  <td width="280"><img src="imagens/spacer.gif" /></td>
			  <td width="46"><img src="imagens/spacer.gif" /></td>
			  <td width="62"><img src="imagens/spacer.gif" /></td>
			  <td width="61"><img src="imagens/spacer.gif" /></td>
			</tr>
			<tr>
			  <td height="27" valign="middle" align="left"><span class="verdana14666666">Descri&ccedil;&atilde;o:</span></td>
			  <td colspan="4" valign="middle" align="left"><input type="text" size="70" name="edt_descricao" value="<%=rs("grp_descricao")%>" /></td>
			</tr>
			<tr bgcolor="#cccccc">
			  <td height="24" colspan="3" align="right" valign="middle"><input type="submit" value="Salvar" /></td>
			  <td colspan="2" align="center" valign="middle"><input type="reset" value="Limpar" /></td>
			</tr>
			</table>
		  </td>
		</tr>
	  </table>
	  </form>
	</div>
<%
	  rs.movenext
	wend
%>
</body>
</html>

Dúvida Com Relação A Carregamento De Um Clipe Externo

01/08/2009, 21:05

Galera estou com uma dúvida com relação a um banner que criei:

- Tenho quatro arquivos swf que serão executados em um palco principal que é um outro swf. Neste swf principal adicionei quatro botões que chamam cada um dos quatro swf, até ai tudo bem eu consegui fazer tranqüilo, mas gostaria que quando o swf 1 fosse reproduzido no palco ele carregasse automaticamente o próximo swf 2 e assim por diante.

Alguém poderia me dar uma luz?

O código que estou utilizando para chamar os arquivos pelos botões é esse:

var link:URLRequest=new URLRequest("banner1.swf");

mcCarrega.gotoAndPlay(2);

banner1.addEventListener(MouseEvent.CLICK, clique);
banner2.addEventListener(MouseEvent.CLICK, clique);
banner3.addEventListener(MouseEvent.CLICK, clique);
banner4.addEventListener(MouseEvent.CLICK, clique);

function clique(evt:MouseEvent):void{
switch (evt.currentTarget){
case(banner1):
link=new URLRequest("banner1.swf");
break;
case(banner2):
link=new URLRequest("banner2.swf");
break;
case(banner3):
link=new URLRequest("banner3.swf");
break;
case(banner4):
link=new URLRequest("banner4.swf");
break;
}
mcCarrega.gotoAndPlay(2);
}


  1. Fórum WMO
  2. → Viewing Profile: Tópicos: jarrier_paulo
  3. Privacy Policy
  4. Regras ·
IPB Skin By Virteq