Jump to content

  2. →
  3. →

Photo

Saber Quant. De Mensagens

Started By Matrix2003 , 02/10/2004, 14:17

  • Faça o login para participar
7 replies to this topic

#1 Matrix2003

Matrix2003

    24 Horas

  • Banidos
  • PipPipPipPipPip
  • 414 posts
  • Sexo:Não informado
  • Localidade:Bauru/SP
  • Interesses:ASP SOMENTE ASP

Posted 02/10/2004, 14:17

olá amigos tenho um codigo de mural de recados e estou querendo mostrar a quant. de mensagens estou usando isto
<%
SET Con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("Dados/BDMuralRecados.mdb") &";Persist Security Info=False"

Sel = "SELECT COUNT(IdRecado) AS contador FROM MuralRecados"
SET Verifi = Con.Execute(Sel)

Response.Write Verifi("contador")
	%>

Só que esta dasndo este pau../
Erro de tempo de execução do Microsoft VBScript error '800a01f4' 

Variável não definida: 'Con' 

/minhas webs/mural/Default.asp, line 187

Pessoal espero ajudar sempre que possivél todos vocês, não se esqueça do nosso site www.onemasters.com agora com muito mais atualidades todos os dias..
Projetos e muito mais....Valeu
Ricardo Zanelati

#2 Luis Otávio

Luis Otávio

    Super Veterano

  • Usuários
  • 3113 posts
  • Sexo:Masculino
  • Localidade:Porto Alegre
  • Interesses:- Desenvolvimento de aplicações Web com linguagem server-side PHP.

    - Desenvolvimento de aplicações Web com linguagem cliente-side JavaScript, conhecedor e utilizador da biblioteca jQUERY e todas suas características.

    - Otimização de Desempenho aplicados a performance de banco de dados Mysql.

    - Otimização de Desempenho para servidores Web utilizando-se como Webserver NGINX em conjunto com Varnish.

    - Sólidos conhecimentos no CMS WordPress para novas implementações, manutenção, criação e otimização de Plugins.

    - Práticas de atendimento, relacionamento e suporte ao cliente. Trabalhando voltado ao público desde o lançamento da empresa iPORTO.COM, criando laços e vínculos com os mais de Mil clientes da empresa e os braços do grupo.

Posted 02/10/2004, 15:29

tente assim:

<%
set DB = createobject("adodb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("Dados/BDMuralRecados.mdb")
DB.open constr

Set objRS = Server.CreateObject("ADODB.Recordset")

strSql = "SELECT COUNT(IdRecado) AS contador FROM MuralRecados"
objRS.Open strSQL,DB,3,1
%>
<%=objRS("total")%>

veja se funfa..

;) (y)
* Otávio Nogueira
* Administração e Configuração de Servidores;
* Combinação Perfeita: NGINX + PHP + VARNISH + HAPROXY
* otavio*iporto.com ~ Tel: +55 51 3366 0177 | +55 51 4063 7343 |
* @iporto

#3 Matrix2003

Matrix2003

    24 Horas

  • Banidos
  • PipPipPipPipPip
  • 414 posts
  • Sexo:Não informado
  • Localidade:Bauru/SP
  • Interesses:ASP SOMENTE ASP

Posted 02/10/2004, 15:35

cara desculpe do loop mais esta com este erro
Erro de tempo de execução do Microsoft VBScript error '800a01f4'

Variável não definida: 'DB'

/minhas webs/mural/Default.asp, line 187
Pessoal espero ajudar sempre que possivél todos vocês, não se esqueça do nosso site www.onemasters.com agora com muito mais atualidades todos os dias..
Projetos e muito mais....Valeu
Ricardo Zanelati

#4 Luis Otávio

Luis Otávio

    Super Veterano

  • Usuários
  • 3113 posts
  • Sexo:Masculino
  • Localidade:Porto Alegre
  • Interesses:- Desenvolvimento de aplicações Web com linguagem server-side PHP.

    - Desenvolvimento de aplicações Web com linguagem cliente-side JavaScript, conhecedor e utilizador da biblioteca jQUERY e todas suas características.

    - Otimização de Desempenho aplicados a performance de banco de dados Mysql.

    - Otimização de Desempenho para servidores Web utilizando-se como Webserver NGINX em conjunto com Varnish.

    - Sólidos conhecimentos no CMS WordPress para novas implementações, manutenção, criação e otimização de Plugins.

    - Práticas de atendimento, relacionamento e suporte ao cliente. Trabalhando voltado ao público desde o lançamento da empresa iPORTO.COM, criando laços e vínculos com os mais de Mil clientes da empresa e os braços do grupo.

Posted 02/10/2004, 15:51

coloca esta linha:

/minhas webs/mural/Default.asp, line 187


ai para eu dar uma olhada...

pode ser?

;) (y)
* Otávio Nogueira
* Administração e Configuração de Servidores;
* Combinação Perfeita: NGINX + PHP + VARNISH + HAPROXY
* otavio*iporto.com ~ Tel: +55 51 3366 0177 | +55 51 4063 7343 |
* @iporto

#5 Matrix2003

Matrix2003

    24 Horas

  • Banidos
  • PipPipPipPipPip
  • 414 posts
  • Sexo:Não informado
  • Localidade:Bauru/SP
  • Interesses:ASP SOMENTE ASP

Posted 02/10/2004, 16:01

sei que é muito grande mais coloquei a pagina inteira e a linha separado
<%@Language="VBScript"%>
<%Option Explicit%>
<%Response.Expires = 0%>

<%
	'Ricardo das Neves Carlos
	'ricardo@promedia.com.br
	'Mural de recados
	'31/10/2003
%>

<%
	Dim objConn
	Dim varConn
	Dim varSql
	Dim rsMuralRecados
	Dim i
	
	'Cria a conexão com a base de dados
	Set objConn = Server.CreateObject("ADODB.Connection")
	varConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Dados\BDMuralRecados.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password="
	objConn.Open varConn
	
	'Seleciona todos os registros ordenando pelo ID
	varSql = "SELECT * "
	varSql = varSql & "FROM MuralRecados "
	varSql = varSql & "ORDER BY IdRecado DESC "
	
	'Seta a variável e define as propriedas
	Set rsMuralRecados = Server.CreateObject("ADODB.Recordset")
	rsMuralRecados.CursorType = 0
	rsMuralRecados.CursorLocation = 3
	rsMuralRecados.LockType = 3
	rsMuralRecados.PageSize = 2
	rsMuralRecados.CacheSize = 2
	rsMuralRecados.Open varSql, objConn
	
	'Verifica qual página deve ser exibida
	If Request.QueryString("Pagina") <> "" Then
  rsMuralRecados.AbsolutePage = Request.QueryString("Pagina")
	Else
  If Not rsMuralRecados.EOF Then
 	 rsMuralRecados.AbsolutePage = 1
  End If
	End If
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>::::: Site do Zanelati :::::::</TITLE>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META content="Site do Zanelati  - Ricardo Alexandre Zanelati" 
name=TITLE>
<META 
content="Site do Zanelati  - Site da empresa - Criação e desenvolvimeto de WebSites, Design Gráfico e Soluções Multimídia - trabalhos, portifólio, projetos, serviços, quem somos, etc... entre e confire." 
name=DESCRIPTION>
<META 
content="design, designer, Marcelo Magalhaes, Moisés Cruz, Moises, Aline, Aline Rodrigues, projetos, websites, preços, orçamentos, modelos on-line, templates, www, http, criação, desenvolvimento, JSP, ASP, PHP, sites, web, criando, design grafico, web design, Igreja Universal, Arca Universal, Bispo Macedo, Arca" 
name=KEYWORDS>
<META content=sitedozanelati@ig.com.br name=OWNER>
<META content="Moises Cruz, Aline Rodrigues e Marcelo Magalhaes" 
name=AUTHOR><LINK href="../images/estilos.css" rel=stylesheet 
type=text/css>
<LINK href="../images/padrao.css" rel="stylesheet" type="text/css">
<script src="../images/script.js"></SCRIPT>
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=780>
  <TBODY>
  <script language=JavaScript>
function RefreshStatus(){
window.status="Site do Zanelati, Uma nova Opção em Internet";
timer=setTimeout("RefreshStatus()", 6);
}
RefreshStatus();
</SCRIPT>
<script language="JavaScript">
  <!--
 	 function Paginacao(varPagina){
    window.location = ("Default.asp?Pagina=" + varPagina);
 	 }
 	 
 	 function NovoRecado(){
    window.open ("NovoRecado.asp", "NovoRecado", "width = 430, height = 225, top = 25, left = 25");
 	 }
  -->
  </script>

  <TR>
    <TD><a href="http://www.sitedozanelati.com"><font face="Verdana" size="1"><IMG border=0 height=104 src="../images/topo-logo.gif" 
      useMap=index.php#Map width=778></font></a></TD></TR>
  <TR>
    <TD background="../images/topo-menu.jpg" height=157 vAlign=top>
      <TABLE border=0 cellPadding=0 cellSpacing=0 width=780>
        <TBODY>
        <TR>
          <TD height=110 vAlign=top>
            <TABLE border=0 cellPadding=0 cellSpacing=0 height=50 width=780>
              <TBODY>
              <TR>
                <TD width=31><a href="mailto:sitedozanelati@ig.com.br"><font face="Verdana" size="1"><IMG border=0 height=24 
                  src="../images/spacer.gif" useMap=index.php#Map2 
                  width=31></font></a></TD>
                <TD width=386><font face="Verdana" size="1">&nbsp;</font></TD>
                <TD rowSpan=2 width=130><a href="http://www.sitedozanelati.com"><font face="Verdana" size="1"><IMG border=0 
                  height=44 src="../images/aempresa.gif" 
                width=86></font></a></TD>
                <TD rowSpan=2 width=125><a href="signupform.asp"><font face="Verdana" size="1"><IMG border=0 
                  height=44 src="../images/artistas.gif" 
                width=86></font></a></TD>
                <TD rowSpan=2 width=108><a href="../fale_conosco.asp"><font face="Verdana" size="1"><IMG border=0 
                  height=44 src="../images/fale.gif" 
              width=86></font></a></TD></TR>
              <TR>
                <TD><a href="mailto:zanelati2002@msn.com"><font face="Verdana" size="1"><IMG border=0 height=24 
                  src="../images/spacer.gif" useMap=index.php#Map3 
                  width=31></font></a></TD>
                <TD><font face="Verdana" size="1">&nbsp;</font></TD></TR></TBODY></TABLE></TD></TR>
        <TR>
          <TD align=middle height=45>
            <TABLE border=0 cellPadding=0 cellSpacing=0 width="95%">
              <TBODY>
              <TR align=middle>
                <TD><a href="../parceria/pedido.asp"><font face="Verdana" size="1"><IMG 
                  border=0 height=30 src="../images/quemsomos.gif" 
                  width=123></font></a></TD>
                <TD><a href="signupform.asp"><font face="Verdana" size="1"><IMG border=0 
                  height=30 src="../images/servicos.gif" 
                  width=123></font></a></TD>
                <TD><a href="../download.asp"><font face="Verdana" size="1"><IMG 
                  border=0 height=30 src="../images/portfolio.gif" 
                  width=123></font></a></TD>
                <TD><a href="../cartao.asp"><font face="Verdana" size="1"><IMG border=0 
                  height=30 src="../images/projetos.gif" 
                  width=123></font></a></TD>
                <TD><a href="../troca_banner/cadastro.asp"><font face="Verdana" size="1"><IMG 
                  border=0 height=30 src="../images/selfservice.gif" 
                  width=123></font></a></TD>
                <TD><a href="../fale_conosco.asp"><font face="Verdana" size="1"><IMG 
                  border=0 height=30 src="../images/faleconosco.gif" 
                  width=123></font></a></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=798>
  <TBODY>
  <TR>
    <TD background="../images/bg-esquerdo.gif" width=23>&nbsp;</TD>
    <TD align=middle height=290 vAlign=top width=519>
      <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
        <TBODY>
        <TR>
          <TD align=middle background="../images/baixo.jpg" 
height=82>
            <TABLE border=0 cellPadding=0 cellSpacing=0 width="98%">
              <TBODY>
              <TR>
                <TD>
                  <p align="center"><font face="Verdana" size="1"><script src="../troca_banner/js.asp"></script>
                  </font>
                </TD>
              </TR></TBODY></TABLE></TD></TR></TBODY></TABLE><font face="Verdana" size="1"><BR>
      </font>
      <TABLE border=0 cellPadding=0 cellSpacing=0 height=200 width="100%">
        <TBODY>
        <TR>
          <TD valign="top">
            <table border="0" width="100%" cellspacing="0" cellpadding="0" height="39">
              <tr>
                <td width="100%" height="15">
                  <p align="center"><font face="Verdana" size="1">Mural de
                  Recados</font>
                </td>
              </tr>
              <tr>
                <td width="100%" height="15"><font face="Verdana" size="1" color="#E0E0E0">.</font></td>
              </tr>
              <tr>
                <td width="100%" height="15">
                  <p align="center"><font face="Verdana" size="1">Deixe sua
                  mensagem</font>
                </td>
              </tr>
              <tr>
                <td width="100%" height="14">
                  <font face="Verdana" size="1" color="#FFFFFF">.</font>
                </td>
              </tr>
              <tr>
                                <td width="55%" align="center">Estamos Com [ <%
set DB = createobject("adodb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("Dados/BDMuralRecados.mdb")
DB.open constr

Set objRS = Server.CreateObject("ADODB.Recordset")

strSql = "SELECT COUNT(IdRecado) AS contador FROM MuralRecados"
objRS.Open strSQL,DB,3,1
%>
<%=objRS("total")%> ] Mensagens</td>
              </tr>
              <tr>
                <td width="100%" height="14">
                </td>
              </tr>
              <tr>
                <td width="100%" height="14">
                  <font face="Verdana" size="1" color="#FFFFFF">
                  .</font>
                </td>
              </tr>
              <tr>
                <td width="100%" height="1">
                  <p>&nbsp;  <table cellpadding="0" cellspacing="0" border="0" width="32" height="244" align="center">
 	 <tr>
    <td align="center" valign="middle" width="500" height="244">
   	 <table cellpadding="0" cellspacing="0" border="0" width="258" align="center">
      <%For i = 1 to rsMuralRecados.PagesiZe%>
     	 <%If rsMuralRecados.EOF = False Then%>
        <tr>
       	 <td width="316">
          <table border="0" width="257">
         	 <tr>
            <td width="249" valign="top">
                                                    <font face="Verdana" size="1">
           	 <font class="Texto2">
              Data/Hora Envio:
           	 </font>
           	 <font class="Texto1">
              <%=rsMuralRecados.Fields("DataInclusao") & " - " & rsMuralRecados.Fields("HoraInclusao")%>
           	 </font>
                                                    </font>
            </td>
         	 </tr>
         	 <tr>
            <td width="249">
                                                    <font face="Verdana" size="1">
           	 <font class="Texto2">
              De:
           	 </font>
           	 <font class="Texto1">
              <%=rsMuralRecados.Fields("De")%>
           	 </font>
                                                    </font>
            </td>
         	 </tr>
         	 <tr>
            <td width="249">
                                                    <font face="Verdana" size="1">
           	 <font class="Texto2">
              Para:
           	 </font>
           	 <font class="Texto1">
              <%=rsMuralRecados.Fields("Para")%>
           	 </font>
                                                    </font>
            </td>
         	 </tr>
         	 <tr>
            <td width="249">
                                                    <font face="Verdana" size="1">
           	 <font class="Texto2">
              Mensagem:
           	 </font>
           	 <font class="Texto1">
              <%=rsMuralRecados.Fields("Mensagem")%>
           	 </font>
                                                    </font>
            </td>
         	 </tr>
         	 <%rsMuralRecados.MoveNext%>
         	 <%If i <> rsMuralRecados.PageSize and NOT rsMuralRecados.EOF Then%>
            <tr>
           	 <td height="5" width="249">
           	 </td>
            </tr>
            <tr>
           	 <td height="1" bgcolor="#CCCCCC" width="249">
           	 </td>
            </tr>
            <tr>
           	 <td height="5" width="249">
           	 </td>
            </tr>
         	 <%End If%>
          </table>
       	 </td>
        </tr>
     	 <%End If%>
      <%Next%>
     	 <tr>
        <td height="20" width="316">
        </td>
     	 </tr>
     	 <tr>
        <td height="20" width="316">
       	 <table cellpadding="0" cellspacing="0" border="0" width="100%" height="100%" align="center">
          <tr>
         	 <td>
            <input type="button" name="btnNovoRecado" value="Postar" class="Form1" onClick="JavaScript:NovoRecado();">
         	 </td>
         	 <td align="right">
            <%If Request.QueryString("Pagina") = 1 or Request.QueryString("Pagina") = "" Then%>
           	 <input type="button" name="btnAnterior" value="Anterior" class="Form1" onClick="JavaScript:Paginacao(<%=Request.QueryString("Pagina") - 1%>);" disabled>
            <%Else%>
           	 <input type="button" name="btnAnterior" value="Anterior" class="Form1" onClick="JavaScript:Paginacao(<%=Request.QueryString("Pagina") - 1%>);">
            <%End If%>
            <%If rsMuralRecados.EOF Then%>
           	 <input type="button" name="btnProximo" value="Próximo" class="Form1" onClick="JavaScript:Paginacao(<%=Request.QueryString("Pagina") + 1%>);" disabled>
            <%Else%>
           	 <%If Request.QueryString("Pagina") = "" Then%>
              <input type="button" name="btnProximo" value="Próximo" class="Form1" onClick="JavaScript:Paginacao(<%=Request.QueryString("Pagina") + 2%>);">
           	 <%Else%>
              <input type="button" name="btnProximo" value="Próximo" class="Form1" onClick="JavaScript:Paginacao(<%=Request.QueryString("Pagina") + 1%>);">
           	 <%End If%>
            <%End If%>
         	 </td>
          </tr>
       	 </table>
        </td>
     	 </tr>
   	 </table>
    </td>
 	 </tr>
  </table>

                </td>
              </tr>
            </table>
          </TD></TR></TBODY></TABLE></TD>
    <TD align=middle bgColor=#e0e0e0 vAlign=top width=250>
      <TABLE border=0 cellPadding=0 cellSpacing=0 width="250">
        <TBODY>
        <TR>
          <TD align=middle background="../images/bg-flsh-dir.gif" height=52 width="248"><font face="Verdana" size="1"><img border="0" src="../images/fale.gif" width="240" height="52"></font></TD></TR>
        <TR>
          <TD width="248"></TD></TR>
        <tr>
                <TD vAlign=top height=194 width="246"><font face="Verdana" size="1"><!--webbot
                  bot="HTMLMarkup" startspan --><iframe height="400" width="230" src="menu_direito.asp" frameborder="0" border="0" scrolling="no" name= "menu"></iframe>

<!--webbot bot="HTMLMarkup" endspan -->
                  </font>
                </TD>
        </tr>
        <TR>
          <TD width="246"></TD>
        </TR>
        </TBODY></TABLE><font face="Verdana" size="1"><IMG height=6 
      src="../images/spacer.gif" width=242> 
      </font> 
      <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
        <TBODY>
        <TR>
          <TD colSpan=2></TD></TR>
        <TR>
          <TD></TD>
          <TD height=4 width=224></TD></TR>
        <TR>
          <TD rowSpan=3 width=18><font face="Verdana" size="1">&nbsp;</font></TD>
          <TD></TD></TR>
        <TR>
          <TD height=4></TD></TR>
        <TR>
          <TD height=4></TD></TR></TBODY></TABLE></TD></TR>
  <TR>
    <TD width=23><font face="Verdana" size="1"><IMG height=108 src="../images/esq-2-int.gif" 
      width=23></font></TD>
    <TD bgColor=#f6f5f1 vAlign=top width="519">
      <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
        <TBODY>
        <TR>
          <TD background="../images/divi-hori.gif" height=5></TD></TR>
        <TR align=middle>
          <TD align=right height=5></TD></TR>
        <TR align=middle>
          <TD align=middle height=97>
            <TABLE border=0 cellPadding=0 cellSpacing=0 width="98%">
              <TBODY>
              <TR>
                <TD height=20>
                  <p align="center"><font face="Verdana" size="1"><!--webbot bot="HTMLMarkup" startspan --><!--Inicio Codigo Riqueza.com.br-->
<iframe src="http://www.riqueza.com.br/riqueza.asp?Afiliado_ID=9633&GrupoAnuncio_ID=8&Acao=Impressao" width="468" height="60" marginwidth="0" marginheight="0" hspace="0" vspace="0" frameborder="0" scrolling="no">
<script language="JavaScript" SRC="http://www.riqueza.com.br/riqueza.asp?Afiliado_ID=1&AnuncioGrupo_ID=8&Acao=Impressao&Browser=N">
</script>
<noscript>
<a href="http://www.riqueza.com.br/riqueza.asp?Afiliado_ID=9633&Anuncio_ID=556&Acao=Clique" title="Clique Aqui!" target="_blank"><img src="http://www.riqueza.com.br/riqueza.asp?Afiliado_ID=9633&Anuncio_ID=556&Acao=Impressao" border="0" alt="Clique Aqui!" width="468" height="60"></a>
</noscript>
</iframe>
<!--Fim Codigo Riqueza.com.br-->
<!--webbot bot="HTMLMarkup" endspan -->
                  </font>
                </TD></TR>
              <TR>
                <TD height=20><font color="#E0E0E0" face="Verdana" size="1">.</font>
                </TD></TR>
              <TR>
                <TD height=20>
                  <p align="center"><font face="Verdana" size="1"><!-- Comienzo del codigo de Bannerlandia v2.1 -->
<center><script type="text/javascript" language="JavaScript1.1">
<!--
var rnd = Math.random() + '.' + (new Date()).getTime();
document.writeln('<sc' + 'ript type="text/javascript" language="JavaScript1.1" src="http://ad.bannerlandia.com.ar/j/64752/1?2.1;468;60;' + rnd + '"></sc' + 'ript>');
// -->
</script>
<noscript>
<a href="http://link.bannerlandia.com.ar/r/64752/1?2.1;468;60;[rnd]" target="_top"><img border="0" alt="Bannerlandia" src="http://banners.bannerlandia.com.ar/s/64752/1?2.1;468;60;[rnd]"></a>
</noscript><br/>
 <a href="http://www.bannerlandia.com/" target="_top">Troca Banner</a></center>
<!-- Fin del codigo de Bannerlandia -->
                  </font>
                  </p>
                </TD></TR>
              <TR>
                <TD height=70 width="96%">
                </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
    <TD bgColor=#e0e0e0 vAlign=top width=250>
      <TABLE bgColor=#e0e0e0 border=0 cellPadding=0 cellSpacing=0 
        width="100%"><TBODY>
        <TR background="imagens/divi-hori2.gif">
          <TD colSpan=3 height=5></TD></TR>
        <TR>
          <TD>&nbsp;</TD>
          <TD>&nbsp;</TD>
          <TD>&nbsp;</TD></TR>
        <TR bgColor=#ededed>
          <TD width=7>&nbsp;</TD>
          <TD align=right>
            <TABLE border=0 cellPadding=0 cellSpacing=0 width="90%">
              <TBODY>
              <TR>
                <TD height=84 width="88%">
            <p align="center"><font face="Verdana" size="1">© 2004 - 2005
            Sitedozanelati.com<BR>Todos os direitos 
            reservados.</font></p>
            &nbsp;</TD>
                <TD align=middle width="12%"><font face="Verdana" size="1"><IMG height=20 
                  src="../images/det.gif" 
          width=7></font></TD></TR></TBODY></TABLE></TD>
          <TD width=7>&nbsp;</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 height=2 width=780>
  <TBODY>
  <TR>
    <TD background="../images/esq-2-int.gif" height=2><font face="Verdana" size="1"><IMG height=3 
      src="../images/spacer.gif" width=1></font></TD></TR></TBODY></TABLE><MAP 
name=Map><AREA coords=4,7,26,92 href="http://www.2ma.com.br/index.php" 
  shape=RECT></MAP><MAP name=Map2><AREA coords=6,7,25,21 
  href="http://www.2ma.com.br/faleconosco.php" shape=RECT></MAP><MAP 
  name=Map3><AREA coords=5,5,25,21 href="http://www.2ma.com.br/quemsomos.htm" 
  shape=RECT></MAP></BODY></HTML>
<%
	rsMuralRecados.Close
	Set rsMuralRecados = Nothing
	objConn.Close
	Set objConn = Nothing
%>

Pessoal espero ajudar sempre que possivél todos vocês, não se esqueça do nosso site www.onemasters.com agora com muito mais atualidades todos os dias..
Projetos e muito mais....Valeu
Ricardo Zanelati

#6 Matrix2003

Matrix2003

    24 Horas

  • Banidos
  • PipPipPipPipPip
  • 414 posts
  • Sexo:Não informado
  • Localidade:Bauru/SP
  • Interesses:ASP SOMENTE ASP

Posted 02/10/2004, 16:05

cara fiz de um modo aqui veja só faltou definir a variavél
<% Dim Con, Sel,Verifi
SET Con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("Dados/BDMuralRecados.mdb") &";Persist Security Info=False"

Sel = "SELECT COUNT(IdRecado) AS contador FROM MuralRecados"
SET Verifi = Con.Execute(Sel)

Response.Write Verifi("contador")
%>
Pessoal espero ajudar sempre que possivél todos vocês, não se esqueça do nosso site www.onemasters.com agora com muito mais atualidades todos os dias..
Projetos e muito mais....Valeu
Ricardo Zanelati

#7 davidmg

davidmg

    Novato no fórum

  • Usuários
  • 24 posts
  • Sexo:Não informado

Posted 02/10/2004, 16:55

cara fiz de um modo aqui veja só faltou definir a variavél
<% Dim Con, Sel,Verifi
SET Con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("Dados/BDMuralRecados.mdb") &";Persist Security Info=False"

Sel = "SELECT COUNT(IdRecado) AS contador FROM MuralRecados"
SET Verifi = Con.Execute(Sel)

Response.Write Verifi("contador")
%>

Não funcionou esse código acima?

David

#8 Matrix2003

Matrix2003

    24 Horas

  • Banidos
  • PipPipPipPipPip
  • 414 posts
  • Sexo:Não informado
  • Localidade:Bauru/SP
  • Interesses:ASP SOMENTE ASP

Posted 02/10/2004, 17:21

mais blz deu cero definindo a variavél agora preciso que me ajude no outro post
Pessoal espero ajudar sempre que possivél todos vocês, não se esqueça do nosso site www.onemasters.com agora com muito mais atualidades todos os dias..
Projetos e muito mais....Valeu
Ricardo Zanelati
Voltar para ASP


1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

  1. Fórum WMO
  2. → Desenvolvimento
  3. → ASP
  4. Privacy Policy
  5. Regras ·
IPB Skin By Virteq