Código dentro de outro codigo

lezão · Outubro 12, 2013

Gostaria de controlar essa parte do codigo, mas pelo pagina na net tem como?

<% registros = >> 8 <<

pagina = Request.QueryString("pagina")

If pagina = "" Then

pagina = 1

End If

eu tentei fazer assim:

<% registros = <%=rs("Participantes")%>
pagina = Request.QueryString("pagina") 
If pagina = "" Then 
pagina = 1 
End If

deu esse erro

Microsoft VBScript compilation error '800a03ea'

Syntax error

/public_html/olhonolance/t2.asp, line 28

registros = <%=rs("Participantes")
------------^

Ronaldo Bueno · Outubro 12, 2013

É assim:

<%

registros = rs(participantes)

.....

%>

xanburzum · Outubro 12, 2013

controlar de que forma... não entendi, pois no seu casso é um simples erro de sintaxe

lezão · Outubro 12, 2013

usar um form pra ele ......

Ronaldo Bueno · Outubro 12, 2013

Cria um form

coloque um campo

faça a validação para aceitar somente numeros

resgata o campo com :

registros = request.form(NOMEDOCAMPONOFORM)

xanburzum · Outubro 13, 2013

Por favor seja mais específico, para assim eu poder sugerir uma solução melhor, você que um form com paginação.

lezão · Outubro 13, 2013

fiz desse jeito e deu erro

Request object error 'ASP 0102 : 80004005'

Expecting string input

/public_html/olhonolance/t3.asp, line 20

The function expects a string as input.

agora esta dando esse erro

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/public_html/olhonolance/teste.asp, line 16

veja o codigo inteiro

<% registros = request.form("Qntdade")
pagina = Request.QueryString("pagina") 
If pagina = "" Then 
pagina = 1 
End If 
 
'Efetuando a conexão com a base de dados criada ----------------------- 
Set conexao = Server.CreateObject("AdoDB.Connection") 
conexao.provider="Microsoft.Jet.OLEDB.4.0" 
conexao.connectionstring=Server.Mappath("Database/Database.mdb")
conexao.open 
 
Set rs = Server.Createobject("ADODB.RECORDSET") 
set rs.ActiveConnection = Conexao 
rs.CursorType = 3 
rs.PageSize = registros 
 
sql = "SELECT * FROM Participantes ORDER BY Id_Participantes ASC"
rs.Open sql 
If rs.EOF Then
Response.Write "<center><font face=Verdana size=2><b>Nenhum registro encontrado!</b><br><br><a href=javascript:history.back(-1)><font face=Verdana, Arial, Helvetica, sans-serif size=1>Voltar</font></a> </center></font>"

Else
rs.AbsolutePage = pagina


%>
<% While Not rs.EOF AND x < rs.PageSize x = x + 1 %>
	<table width="20" border="0" cellspacing="0" cellpadding="0" class="texto" style="border-bottom: 1px solid #999999">
      <tr>
        <td width="8" height="44" bgcolor="<%=rs("Rebaixado")%>"> </td>
        <td width="80"><div align="center"><font size="3" color="#000000" face="Arial"><b><%=rs("Participantes")%>º</b></font></div></td>
      </tr>
    </table>
	
  <% rs.MoveNext
Wend
%>
	
<%
rs.Close
Set rs = Nothing  
End If %>

xanburzum · Outubro 13, 2013

qual a linha do erro

lezão · Outubro 14, 2013

rs.PageSize = registros

essa é linha do erro !

Ronaldo Bueno · Outubro 14, 2013

Post o código da pagina onde tem o form

lezão · Outubro 14, 2013

Eu naun fiz o form ainda, apenas coloquei o valor no direto no banco de dados....

xanburzum · Outubro 14, 2013

Isso é muitas vezes porque você usou nomes VB "amigáveis" para os valores (tais como adLockReadOnly), em vez dos constantes inteiras (que são os únicos valores compreendidos pelo motor), sem incluir ADOVBS.INC. Então, uma solução rápida muitas vezes pode ser para se certificar de que você incluiu ADOVBS.INC.

lezão · Outubro 14, 2013

como eu incluo ADOVBS.INC??????

xanburzum · Outubro 15, 2013

O arquivo ADOVBS.inc é incluído com o IIS - Internet Information Service - e possui todas as constantes definidas para a ADO - ActiveX Data Object.

Para saber mais sobre como trabalhar com banco de dados na web leia o artigo: ASP e ADO - Colocando o seu banco de dados na Web

Se você usar uma conexão com banco de dados você provavelmente usará constantes com nomes como adOpenForwardOnly e adLockReadOnly em seus script ASP. Pois bem estas constantes estão todas definidas no arquivo ADOVBS.INC. Abaixo temos um exemplo de como seria o código para criar em uma página um objeto Recordset com um cursor do tipo KeySet:

<!--#include virtual="/adovbs.inc"--> <% Dim objConn, strSQL Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DSN=Macoratti" strSQL = "SELECT * FROM Tabela" Dim objRS Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objConn, adOpenKeyset '... %>

Você pode então incluir o arquivo ADOVBS.INC em suas páginas ASP usando o comando include no início das páginas ASP:

Se você usar o comando include como acima deverá por o arquivo ADOVBS.INC no diretório raiz da sua aplicação web.

Apenas para você ter uma idéia estou exibindo abaixo um parte do arquivo ADOVBS.INC:

<%
'--------------------------------------------------------------------
' Microsoft ADO
' © 1996 Microsoft Corporation. All Rights Reserved.
'
' ADO constants include file for VBScript
''--------------------------------------------------------------------
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3

'---- CursorOptionEnum Values ----
Const adHoldRecords = &H00000100
Const adMovePrevious = &H00000200
Const adAddNew = &H01000400
Const adDelete = &H01000800
Const adUpdate = &H01008000
Const adBookmark = &H00002000
Const adApproxPosition = &H00004000
Const adUpdateBatch = &H00010000
Const adResync = &H00020000
Const adNotify = &H00040000

....

Uma saída mais elegante para não ter que usar o include do arquivo adovbs.inc em suas páginas ASP é usar a tag METADATA no lugar de include.

A tag METADATA possui o seguinte formato:

<!--METADATA TYPE="typelib" FILE="FileName" UUID="TyleLibraryUUID" -->

Você precisa definir obrigatoriamente o TYPE e o FILE ou o UUID, assim você pode definir a TBL ou DLL diretamente pela propriedade FILE ou através de UUID. Um exemplo de uso seria:

<!-- METADATA TYPE="typelib" UUID="00000200-0000-0010-8000-00AA006D2EA4" -->

ou

<!-- METADATA TYPE="typelib" FILE="C:\Program Files\Common Files\System\ADO\msado20.tlb" -->

Substituindo o comando include pela tag METADATA teríamos:

<!-- METADATA TYPE="typelib" FILE="C:\Program Files\Common Files\System\ADO\msado20.tlb" --> <% Dim objConn, strSQL Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DSN=Macoratti" strSQL = "SELECT * FROM Tabela" Dim objRS Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objConn, adOpenKeyset '... %>

lezão · Outubro 15, 2013

fiz assim

<!--#include file="ADOVBS.inc" -->

<table width="650" border="0" cellspacing="0" cellpadding="0" class="texto" style="border: 1px solid #999999">
        <tr>
          <td class="texto" style="border-bottom: 1px solid #999999" height="30" colspan="2" valign="top"><font size="2" color="#000000" face="Arial">CLASSIFICAÇÃO</font></td>
          <td class="texto" style="border-bottom: 1px solid #999999" width="51" title="Pontos"><div align="center"><font size="2" color="#000000" face="Arial">P</font></div></td>
          <td class="texto" style="border-bottom: 1px solid #999999" width="50" title="Jogos"><div align="center"><font size="2" color="#000000" face="Arial">J</font></div></td>
          <td class="texto" style="border-bottom: 1px solid #999999" width="49" title="Vitórias"><div align="center"><font size="2" color="#000000" face="Arial">V</font></div></td>
          <td class="texto" style="border-bottom: 1px solid #999999" width="51" title="Empates"><div align="center"><font size="2" color="#000000" face="Arial">E</font></div></td>
          <td class="texto" style="border-bottom: 1px solid #999999" width="50" title="Derrotas"><div align="center"><font size="2" color="#000000" face="Arial">D</font></div></td>
          <td class="texto" style="border-bottom: 1px solid #999999" width="49" title="Gols Pro"><div align="center"><font size="2" color="#000000" face="Arial">GP</font></div></td>
          <td class="texto" style="border-bottom: 1px solid #999999" width="50" title="Gols Contra"><div align="center"><font size="2" color="#000000" face="Arial">GC</font></div></td>
          <td class="texto" style="border-bottom: 1px solid #999999" width="52" title="Saldo de Gols"><div align="center"><font size="2" color="#000000" face="Arial">SG</font></div></td>
  </tr>
        <tr>
          <td width="21">
		  <div align="left">
<% 
Dim objConn, strSQL 
Set objConn = Server.CreateObject("ADODB.Connection") 
objConn.Open "DSN=Macoratti" 
strSQL = "SELECT * FROM Participantes"
Dim objRS 
Set objRS = Server.CreateObject("ADODB.Recordset") 
objRS.Open strSQL, objConn, adOpenKeyset '... 
%>		  
		  <% registros = Session("Qntdade")
pagina = Request.QueryString("pagina") 
If pagina = "" Then 
pagina = 1 
End If 
 
'Efetuando a conexão com a base de dados criada ----------------------- 
Set conexao = Server.CreateObject("AdoDB.Connection") 
conexao.provider="Microsoft.Jet.OLEDB.4.0" 
conexao.connectionstring=Server.Mappath("Database/Database.mdb")
conexao.open 
 
Set rs = Server.Createobject("ADODB.RECORDSET") 
set rs.ActiveConnection = Conexao 
rs.CursorType = 3
'rs.PageSize = registros 

sql = "SELECT * FROM Participantes ORDER BY Id_Participantes ASC"
rs.Open sql 
If rs.EOF Then
Response.Write "<center><font face=Verdana size=2><b>Nenhum registro encontrado!</b><br><br><a href=javascript:history.back(-1)><font face=Verdana, Arial, Helvetica, sans-serif size=1>Voltar</font></a> </center></font>"

Else
rs.AbsolutePage = pagina


%>
<% While Not rs.EOF AND x < rs.PageSize x = x + 1 %>
<style type="text/css">
<!--
.style1 {color: #333333}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style>

	<table width="38" border="0" cellspacing="0" cellpadding="0" class="texto" style="border-bottom: 1px solid #999999">
      <tr>
        <td width="4" height="44" bgcolor="<%=rs("Rebaixado")%>"> </td>
        <td width="34"><div align="center"><font size="3" color="#000000" face="Arial"><b><%=rs("Participantes")%>º</b></font></div></td>
      </tr>
    </table>
	

      <% rs.MoveNext
Wend
%>
   
      <%
rs.Close
Set rs = Nothing  
End If %>	
		  </div>		  </td>
          <td colspan="9" valign="top">
		  <div align="left">
		  
		  <% registros = 20
pagina = Request.QueryString("pagina") 
If pagina = "" Then 
pagina = 1 
End If 
 
'Efetuando a conexão com a base de dados criada ----------------------- 
Set conexao = Server.CreateObject("AdoDB.Connection") 
conexao.provider="Microsoft.Jet.OLEDB.4.0" 
conexao.connectionstring=Server.Mappath("Database/Database.mdb")
conexao.open 
 
Set rs = Server.Createobject("ADODB.RECORDSET") 
set rs.ActiveConnection = Conexao 
rs.CursorType = 3 
rs.PageSize = registros  
 
sql = "SELECT * FROM Clube ORDER BY P DESC"
rs.Open sql 
If rs.EOF Then
Response.Write "<center><font face=Verdana size=2><b>Nenhum registro encontrado!</b><br><br><a href=javascript:history.back(-1)><font face=Verdana, Arial, Helvetica, sans-serif size=1>Voltar</font></a> </center></font>"

Else
rs.AbsolutePage = pagina


%>
<% While Not rs.EOF AND x < rs.PageSize x = x + 1 %>	
	<table width="630" border="0" cellspacing="0" cellpadding="0" class="texto" style="border-bottom: 1px solid #999999">
  <tr class="tbcor1" onMouseOver="this.style.backgroundColor='#F7F7F7';" onMouseOut="this.style.backgroundColor='#FFFFFF';">
        <td width="172"><font size="4" color="#000000" face="Arial">  <%=rs("Clube")%></font></td>
        <td width="38" bgcolor="#F7F7F7"><div align="center"><font size="2" color="#000000" face="Arial"><b><%=rs("P")%></b></font></div></td>
        <td width="38"><div align="center"><font size="2" color="#000000" face="Arial"><%=rs("J")%></font></div></td>
        <td width="38" bgcolor="#F7F7F7"><div align="center"><font size="2" color="#000000" face="Arial"><%=rs("V")%></font></div></td>
        <td width="38"><div align="center"><font size="2" color="#000000" face="Arial"><%=rs("E")%></font></div></td>
        <td width="38" bgcolor="#F7F7F7"><div align="center"><font size="2" color="#000000" face="Arial"><%=rs("D")%></font></div></td>
        <td width="38"><div align="center"><font size="2" color="#000000" face="Arial"><%=rs("GP")%></font></div></td>
        <td width="38" bgcolor="#F7F7F7"><div align="center"><font size="2" color="#000000" face="Arial"><%=rs("GC")%></font></div></td>
        <td width="37" height="44"><div align="center"><font size="2" color="#000000" face="Arial"><%=FormatNumber(rs("GP") - rs("GC"),0)%></font></div></td>
      </tr>
    </table>
	  <% rs.MoveNext
Wend
%>
	
<%
rs.Close
Set rs = Nothing  
End If %>
		  </div>		  </td>
        </tr>
        <tr>
          <td colspan="10">A data de hoje e : <%=Now%></td>
        </tr>
      </table>

deu esse erro

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

/public_html/olhonolance/teste.asp, line 21

eu tenho o ADOVBS.inc

http://www.shopcolina.com.br/public_html/olhonolance/ADOVBS.inc

xanburzum · Outubro 15, 2013

seu MDAC é a versão mais atual ?

Arquivado

Código dentro de outro codigo

Recommended Posts

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ronaldo Bueno 23

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ronaldo Bueno 23

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ronaldo Bueno 23

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante