Código MySQL 2

Marcelo Pescador · Janeiro 8, 2010

Esse é o novo erro. Apareceu no orcamentos_novos.asp

ADODB.Recordset error '800a0cb3'

Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.

/controle_new/orcamentos_novos.asp, line 80

Segue abaixo o código desta página:

<!--#include file="conexao.asp"-->
<!--#INCLUDE FILE = "config.inc" -->

<%
dim sessao
sessao = Request.QueryString("sessao") 
Session("sessao") = sessao
strsql1="select * from usuario where codigo=" & Session("cod_usuario")
set rs1=Conn.execute(strsql1)
%>

<HTML>
<STYLE type=text/css>
@import url("style.css");
</STYLE>
<HEAD>
<TITLE>Orçamentos Novos</TITLE>

</script>
<style media="print">
.oculta
{
visibility: hidden
}
</style>
</script>

<%
Session.LCID = 1046
Session.TimeOut = 600
%>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</HEAD>
<BODY>
<div align="left"><img src="../base_rsvp/images/banner_painel.jpg" width="754" height="100"><br>
  <br>
  <br>
</div>
<table width="755" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="140" valign="top">
      <!--#INCLUDE FILE = "menu.asp" -->    </td>
    <td width="614" align="center" valign="top"><table width="605" border="1" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFCC66">
        <tr> 
          <td colspan="5" class="style4"><div align="center">..:: Orçamentos Novos ::..</div></td>
        </tr>
        <tr> 
          <td width="36" height="16" class="style4"><div align="center">Orç.</div></td>
          <td width="321" class="style4"><div align="center">Cliente</div></td>
          <td width="84" class="style4"><div align="center">Tipo</div></td>
          <td width="76" class="style4"><div align="center">Data</div></td>
          <td width="76" class="style4"><div align="center">Editar</div></td>
        </tr>
      </table>
      <br> 
      <% 
'----------------- Define o número de registros por página ----------------------------

Const TamanhoPagina = 30 
set rsQuery = Server.CreateObject( "ADODB.RecordSet" ) 

rsQuery.PageSize   = TamanhoPagina 
rsQuery.CacheSize  = TamanhoPagina 
rsQuery.CursorType = 3 
rsQuery.Open"select * from orcamentos order by cod_contrato desc", Conn 

if Session("PaginaAtual") = "" then Session("PaginaAtual") = 1 
select case Request.QueryString( "modo" ) 
       case "proxima" 
            Session("PaginaAtual") = min( Session("PaginaAtual") + 1, rsQuery.PageCount ) 
       case "anterior" 
            Session("PaginaAtual") = max( Session("PaginaAtual") - 1, 1 ) 
       case "pagina" 
            if isNumeric( request.QueryString("numero") ) then 
               Session("PaginaAtual") = cint( request.QueryString("numero") ) 
               Session("PaginaAtual") = max( min( Session("PaginaAtual"), rsQuery.PageCount ), 1 ) 
            end if 
end select 

rsQuery.AbsolutePage = Session("PaginaAtual")    '----------------- essa é a linha 80 que aparece no erro ---------------------
cod_contrato=rsQuery("cod_contrato") 
%>
      <table width="605" border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#666666" bordercolorlight="<%= mainborderlight%>" bordercolordark="<%= mainborderdark%>">
        <tr bordercolor="000000"> 
          <% 
   item  = 1 
   do while item <= TamanhoPagina and not rsQuery.eof 
   cod_contrato=rsQuery("cod_contrato")
	%>
          <% 
      For n = 0 To limite %>
          <%
		Dim n
		n = 0 
		do while n < colNum and NOT rsQuery.eof
		cod_contrato=rsQuery("cod_contrato")
		%>

Dee · Janeiro 8, 2010

Tira essa linha: rsQuery.CursorType = 3

Roda e veja se dá certo.

Marcelo Pescador · Janeiro 8, 2010

nada...a mesma msg !!

Dee · Janeiro 8, 2010

Olha, eu acho que é porque você está usando um cursor estático

nessa linha:

rsQuery.Open "select * from orcamentos order by cod_contrato desc", Conn

coloque o 3, 3 no final

rsQuery.Open "select * from orcamentos order by cod_contrato desc", Conn , 3, 3

Marcelo Pescador · Janeiro 8, 2010

nada...mesma coisa...é muito estranho...!!

Dee · Janeiro 8, 2010

Entao.

É o seguinte, seu banco de dados é MySql Neh.

você ta querendo fazer paginação ?

Em MySql você vai ter que usar a função LIMIT No Select.

No MySql, não vai funcionar as propriedades do RecordSet.

Sabe o que faz a função LIMIT ?

Acho que um programador MySql te explicaria melhor isso. Eu nao entendo muito de MySql, se fosse SqlServer esse código tinha rodado.

xanburzum · Janeiro 8, 2010

tenta o

rsQuery.Open "select * from orcamentos order by cod_contrato desc", Conn , 1, 3

Dependendo de qual mensagem de erro que você está recebendo, uma das seguintes opções é provavelmente verdadeira:

você estiver usando uma constante (por exemplo, adUseClient), mas se esqueceu de incluir ADOVBS.INC

você tentou usar o método NextRecordset () para processar vários conjuntos de resultados de um provedor de acesso

você tentou combinar as propriedades do servidor de registros lateral, por exemplo, cachesize, com um lado do cliente (adUseClient) de registros - certifique-se as propriedades que você está usando faz sentido para o tipo de registros que você abriu

você tentou usar métodos avançados ou propriedades como favorito, MovePrevious, ou AbsolutePage em objetos Recordset padrão - certifique-se de definir o LockType corrigir e / ou CursorLocation (dependendo do que você está fazendo)

você tentou recuperar a chave primária usando ADOX

você está tentando usar um objeto ADODB.Recordset com um tipo de bloqueio indevido de lidar com uma atualização ou AddNew - use um UPDATE ou INSERT em vez de um objeto Recordset

você está usando um objeto ADOX.Catalog (ou um de vários outros objetos potenciais), e tentaram fechá-la. Tudo que você tem a fazer é definir um objeto de catálogo para nada ... ele não tem um método close ().

Dee · Janeiro 8, 2010

Const TamanhoPagina = 30

set rsQuery = Server.CreateObject( "ADODB.RecordSet" )

Sql = "select * from orcamentos order by cod_contrato desc" depois do desc coloca, LIMIT 1, 20 1 é inicio e o 20 eh final, dae você coloca o final que você quer, de quantos registros você quer que mostre entendeu.

rsQuery.PageSize = TamanhoPagina

rsQuery.CacheSize = TamanhoPagina

'rsQuery.CursorType = 3 comenta esta linha

rsQuery.Open sql , Conn , 3, 3 'aqui você ja defini o cursortype e o cursor location ok ? 3 e 3

if Session("PaginaAtual") = "" then Session("PaginaAtual") = 1

select case Request.QueryString( "modo" )

case "proxima"

Session("PaginaAtual") = min( Session("PaginaAtual") + 1, rsQuery.PageCount )

case "anterior"

Session("PaginaAtual") = max( Session("PaginaAtual") - 1, 1 )

case "pagina"

if isNumeric( request.QueryString("numero") ) then

Session("PaginaAtual") = cint( request.QueryString("numero") )

Session("PaginaAtual") = max( min( Session("PaginaAtual"), rsQuery.PageCount ), 1 )

end if

end select

rsQuery.AbsolutePage = Session("PaginaAtual")

Marcelo Pescador · Janeiro 8, 2010

Na verdade cara eu não manjo nada...rsrs...Fico fuçando e descobrindo...

Eu tenho esse banco de dados completo... cadastro de clientes e impressão de contrato, é isso que ela faz.

E só faço poucas alterações...

Só que agora queria migra do accsses para mysql, assim posso deixar meu banco direto no servidor, que ira me facilitar bastante e vai ficar menos estável do que ele é hj.

De ante mão te agradeço demais pelas informações e pela ajuda...

Se conhecer alguém que mexa com Mysql te agradeço novamente, vlw, mesmo.

Dee · Janeiro 8, 2010

Só ir no Fórum aqui no iMasters de Banco de Dados. Faça sua pergunta lá e vão te responder com certeza.

xanburzum · Janeiro 8, 2010

olha este exemplo

<%
Dim Conexao
Set Conexao = Server.CreateObject("Adodb.Connection")
Conexao.ConnectionString = "driver=MySQL ODBC 5.1 Driver;server=localhost;uid=root;pwd=;database=seu_banco"
Conexao.Open
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Paginação com ASP e MySQL</title>
</head>

<style media="screen" type="text/css">
body{width:100%; height:100%;margin:0; padding:0; font:12px "Trebuchet MS";margin:0 auto; text-align:center;}
#quadro{background:#f7f7f7; width:540px; min-height:300px; margin:0 auto; padding:5px; text-align:left;}
#col-01{width:20px; float:left;background:#f1f1f1;margin:2px;text-align:center;padding:2px;}
#col-02{width:500px; float:left;background:#f1f1f1;margin:2px;padding:2px;}
#indice{text-align:center; padding: 20px 0 0 0}
#paginacao{text-align:center; padding: 20px 0 0 0}

.pag-atual{float:left; padding:4px; background:#c00; color:#fff; margin:3px;}
.pag-pontinhos{float:left; padding:4px; background:#E8E8E8; color:#999; margin:3px;}
.pag-navegacao-off{float:left; padding:4px; background:#E8E8E8; color:#999; margin:3px;}

.pag-link{float:left; padding:4px; background:#fff; margin:3px;}
.pag-link a{color:#c00;text-decoration:none;}
.pag-link a:hover{color:#000;text-decoration:underline;}

.pag-navegacao{float:left; padding:4px; background:#fff; margin:3px;}
.pag-navegacao a{color:#c00;text-decoration:none;}
.pag-navegacao a:hover{color:#000;text-decoration:underline;}
</style>

<body>

<div id="quadro">

<h2>Paginação com ASP e MySQL</h2>

<%
Dim rs, PagNav, TotalPag
Dim Anterior, Proximo, PagAtual, PaginaVisita
Set rs = Server.CreateObject("Adodb.RecordSet")
    
Conexao.CursorLocation = 3
rs.pagesize = 3
rs.Open "Select * From tbl_noticias Order By id_not Desc",Conexao
    
If rs.Eof Then
Response.Write("Não há registros")
Else
PagNav = CInt(Request.QueryString("pagina"))
If PagNav = 0 Then : PagNav = 1 : End If
    
rs.AbsolutePage = PagNav
TotalPag = rs.PageCount
%>

<div id="dados">

<% While Not rs.Eof And rs.AbsolutePage = PagNav %>

<div id="col-01"><% Response.Write(rs("id_not")) %></div>
<div id="col-02"><% Response.Write(rs("titulo_not")) %></div>

<%
rs.MoveNext : Wend

Anterior = PagNav - 1
Proximo = PagNav + 1

If Anterior <= 0 Then : Anterior = 1 : End If
If Proximo > TotalPag Then : Proximo = TotalPag : End If
%>

</div>

<div id="indice">
<%
If Request.QueryString("pagina") = "" Then
Response.Write("Página 1 de "&TotalPag&"")
Else
Response.Write("Página "&Request.QueryString("pagina")&" de "&TotalPag&"")
End If 
%>
</div>   
        
        
<div id="paginacao">
        
<%
PaginaVisita = CInt(Request.QueryString("pagina"))

MontaLink = Request.ServerVariables("SCRIPT_NAME")+"?variavel=teste&"

If PagNav = 1 Then
Response.Write("<div class='pag-navegacao-off'> « primeira </div>")
else
Response.Write("<div class='pag-navegacao'><a href="""&MontaLink&"pagina=1""> « primeira </a></div>")
end if

If PagNav > 1 Then
Response.Write("<div class='pag-navegacao'><a href="""&MontaLink&"pagina="&Anterior&"""> «anterior </a></div>")
else
Response.Write("<div class='pag-navegacao-off'> «anterior </div>")
End If


If PagNav > 5 Then
Response.Write("<div class='pag-pontinhos'> ... </div>")
End If


If PagNav <= 5 Then
If TotalPag >= 5 Then
For PagAtual = 1 To 5
If PagNav = PagAtual Then
Response.Write("<div class='pag-atual'> "&PagAtual&" </div>")
Else
Response.Write("<div class='pag-link'><a href="""&MontaLink&"pagina="&PagAtual&"""> "&PagAtual&" </a></div>")
End If
Next
Else

For PagAtual = 1 To TotalPag
If PagNav = PagAtual Then
Response.Write("<div class='pag-atual'> "&PagAtual&" </div>")
Else
Response.Write("<div class='pag-link'><a href="""&MontaLink&"pagina="&PagAtual&"""> "&PagAtual&" </a></div>")
End If
Next
End If
End If
        
     
If PagNav > 5 Then
PagNav = PagNav + 4
Pg = PagNav
MaxB = Request.QueryString("pagina") - 1

            
If (MaxB + 1) = TotalPag Then
For PagAtual = MaxB To Pg - 4
If PaginaVisita = PagAtual Then
Response.Write("<div class='pag-atual'> "&PagAtual&" </div>")
Else
Response.Write("<div class='pag-link'><a href="""&MontaLink&"pagina="&PagAtual&"""> "&PagAtual&" </a></div>")
End If
Next            


ElseIf (MaxB + 2) = TotalPag Then
For PagAtual = MaxB To Pg - 3
If PaginaVisita = PagAtual Then
Response.Write("<div class='pag-atual'> "&PagAtual&" </div>")
Else
Response.Write("<div class='pag-link'><a href="""&MontaLink&"pagina="&PagAtual&"""> "&PagAtual&" </a></div>")
End If
Next
Else


For PagAtual = (MaxB - 1) To Pg - 2
If PaginaVisita = PagAtual Then
Response.Write("<div class='pag-atual'> "&PagAtual&" </div>")
Else
Response.Write("<div class='pag-link'><a href="""&MontaLink&"pagina="&PagAtual&"""> "&PagAtual&" </a></div>")
End If
Next
End If
End If

        
If (TotalPag <> PaginaVisita) And (TotalPag > 5) Then
Response.Write("<div class='pag-pontinhos'> ... </div>")
End If


If PaginaVisita = TotalPag Then 
Response.Write("<div class='pag-navegacao-off'> próxima» </div>")
else 
Response.Write("<div class='pag-navegacao'><a href="""&MontaLink&"pagina="&Proximo&"""> próxima» </a></div>")End If

If PaginaVisita = TotalPag Then
Response.Write("<div class='pag-navegacao-off'> última » </div>")
else
Response.Write("<div class='pag-navegacao'><a href="""&MontaLink&"pagina="&TotalPag&"""> última » </a></div>")
end if

%>

</div>

<%
End If
Set rs = Nothing
%>

</div>

</body>
</html>

Marcelo Pescador · Janeiro 8, 2010

eu posso colar tudo isso na minha pág ??

xanburzum · Janeiro 8, 2010

sim, é uma paginacaun válida

Marcelo Pescador · Janeiro 8, 2010

bom...tirei tudo que tinha sobre a proxima pagina e funcionou...o BD abriu, agora qd vou fazer alguma alteração detro dele e tudo mais, aparece a seguinte msg:

[MySQL][ODBC 3.51 Driver][mysqld-5.1.30-percona-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1

Marcelo Pescador · Janeiro 8, 2010

agora eu erro na linha 116 > (<div id="col-01"><% Response.Write(rs("id_not")) %></div>) - olha o código todo abaixo:

<!--#include file="conexao.asp"-->
<!--#INCLUDE FILE = "config.inc" -->

<%
Dim Conexao
Set Conexao = Server.CreateObject("Adodb.Connection")
Conexao.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=200.234.214.67;PORT=3306;DATABASE=teste;USER=teste;PASSWORD=teste;OPTION=3;"
Conexao.Open
%>

<%
dim sessao
sessao = Request.QueryString("sessao") 
Session("sessao") = sessao
strsql1="select * from usuario where codigo=" & Session("cod_usuario")
set rs1=Conn.execute(strsql1)
%>

<HTML>
<STYLE type=text/css>
@import url("style.css");
</STYLE>
<HEAD>
<TITLE>Orçamentos Novos</TITLE>

</script>
<style media="print">
.oculta
{
visibility: hidden
}
</style>
</script>

<%
Session.LCID = 1046
Session.TimeOut = 600
%>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</HEAD>
<BODY>
<div align="left"><img src="../base_rsvp/images/banner_painel.jpg" width="754" height="100"><br>
  <br>
  <br>
</div>
<table width="755" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="140" valign="top">
      <!--#INCLUDE FILE = "menu.asp" -->    </td>
    <td width="614" align="center" valign="top"><table width="605" border="1" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFCC66">
        <tr> 
          <td colspan="5" class="style4"><div align="center">..:: Orçamentos Novos ::..</div></td>
        </tr>
        <tr> 
          <td width="36" height="16" class="style4"><div align="center">Orç.</div></td>
          <td width="321" class="style4"><div align="center">Cliente</div></td>
          <td width="84" class="style4"><div align="center">Tipo</div></td>
          <td width="76" class="style4"><div align="center">Data</div></td>
          <td width="76" class="style4"><div align="center">Editar</div></td>
        </tr>
      </table>
      <br> 
      <% 
'----------------- Define o número de registros por página ----------------------------

Const TamanhoPagina = 30 
set rsQuery = Server.CreateObject( "ADODB.RecordSet" ) 

rsQuery.PageSize   = TamanhoPagina 
rsQuery.CacheSize  = TamanhoPagina 
rsQuery.CursorType = 3 
rsQuery.Open"select * from orcamentos order by cod_contrato desc", Conn 

%>
      <table width="605" border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#666666" bordercolorlight="<%= mainborderlight%>" bordercolordark="<%= mainborderdark%>">
        <tr bordercolor="000000"> 
		  <td width="34" bordercolor="#666666" bgcolor="#FFCC66" class="style4"><div align="center"><%=rsQuery("cod_contrato")%></div></td>
          <td width="320" height="10" bordercolor="#666666" bgcolor="#FFCC66" class="style4"> <%=rsQuery("contratante")%></td>
          <td width="81" bordercolor="#666666" bgcolor="#FFCC66" class="style4"> <%=rsQuery("tipo")%></td>
          <td width="75" bordercolor="#666666" bgcolor="#FFCC66" class="style4"><div align="center"><%=rsQuery("data")%></div></td>

<td width="20" bordercolor="#666666">
  <div align="center"><a href="ver_orcamento.asp?cod_contrato=<%=cod_contrato%>"><img src="../images/ico_visualizar.gif" title="visualizar orçamento" alt="visualizar orçamento" width="14" height="11" border="0"></a></div>
  <div align="center"></div></td>
<td width="21">
  <div align="center"><a href="imprimir_orcamento_novo.asp?cod_contrato=<%=cod_contrato%>" target="_blank"><img src="../images/ico_imprimir.gif" title="imprimir orçamento" alt="imprimir orçamento" width="14" height="11" border="0"></a> </div></td>
          <td width="24" bordercolor="#999999">
<div align="center"><a href="visualizar_excluir_orcamentos.asp?cod_contrato=<%=cod_contrato%>"><img src="../images/ico_excluir.gif" title="excluir orçamento" alt="excluir orçamento" width="14" height="11" border="0"></a> </div></td>
</table>

<div id="quadro">

<%
Dim rs, PagNav, TotalPag
Dim Anterior, Proximo, PagAtual, PaginaVisita
Set rs = Server.CreateObject("Adodb.RecordSet")
    
Conexao.CursorLocation = 3
rs.pagesize = 3
rs.Open "Select * From orcamentos Order By cod_contrato Desc",Conexao
    
If rs.Eof Then
Response.Write("Não há registros")
Else
PagNav = CInt(Request.QueryString("pagina"))
If PagNav = 0 Then : PagNav = 1 : End If
    
rs.AbsolutePage = PagNav
TotalPag = rs.PageCount
%>

<div id="dados">

<% While Not rs.Eof And rs.AbsolutePage = PagNav %>

<div id="col-01"><% Response.Write(rs("id_not")) %></div>
<div id="col-02"><% Response.Write(rs("titulo_not")) %></div>

<%
rs.MoveNext : Wend

Anterior = PagNav - 1
Proximo = PagNav + 1

If Anterior <= 0 Then : Anterior = 1 : End If
If Proximo > TotalPag Then : Proximo = TotalPag : End If
%>
</div>

<div id="indice">
<%
If Request.QueryString("pagina") = "" Then
Response.Write("Página 1 de "&TotalPag&"")
Else
Response.Write("Página "&Request.QueryString("pagina")&" de "&TotalPag&"")
End If 
%>
</div>   
        
        
<div id="paginacao">
        
<%
PaginaVisita = CInt(Request.QueryString("pagina"))

MontaLink = Request.ServerVariables("SCRIPT_NAME")+"?variavel=teste&"

If PagNav = 1 Then
Response.Write("<div class='pag-navegacao-off'> « primeira </div>")
else
Response.Write("<div class='pag-navegacao'><a href="""&MontaLink&"pagina=1""> « primeira </a></div>")
end if

If PagNav > 1 Then
Response.Write("<div class='pag-navegacao'><a href="""&MontaLink&"pagina="&Anterior&"""> «anterior </a></div>")
else
Response.Write("<div class='pag-navegacao-off'> «anterior </div>")
End If


If PagNav > 5 Then
Response.Write("<div class='pag-pontinhos'> ... </div>")
End If


If PagNav <= 5 Then
If TotalPag >= 5 Then
For PagAtual = 1 To 5
If PagNav = PagAtual Then
Response.Write("<div class='pag-atual'> "&PagAtual&" </div>")
Else
Response.Write("<div class='pag-link'><a href="""&MontaLink&"pagina="&PagAtual&"""> "&PagAtual&" </a></div>")
End If
Next
Else

For PagAtual = 1 To TotalPag
If PagNav = PagAtual Then
Response.Write("<div class='pag-atual'> "&PagAtual&" </div>")
Else
Response.Write("<div class='pag-link'><a href="""&MontaLink&"pagina="&PagAtual&"""> "&PagAtual&" </a></div>")
End If
Next
End If
End If
        
     
If PagNav > 5 Then
PagNav = PagNav + 4
Pg = PagNav
MaxB = Request.QueryString("pagina") - 1

            
If (MaxB + 1) = TotalPag Then
For PagAtual = MaxB To Pg - 4
If PaginaVisita = PagAtual Then
Response.Write("<div class='pag-atual'> "&PagAtual&" </div>")
Else
Response.Write("<div class='pag-link'><a href="""&MontaLink&"pagina="&PagAtual&"""> "&PagAtual&" </a></div>")
End If
Next            


ElseIf (MaxB + 2) = TotalPag Then
For PagAtual = MaxB To Pg - 3
If PaginaVisita = PagAtual Then
Response.Write("<div class='pag-atual'> "&PagAtual&" </div>")
Else
Response.Write("<div class='pag-link'><a href="""&MontaLink&"pagina="&PagAtual&"""> "&PagAtual&" </a></div>")
End If
Next
Else


For PagAtual = (MaxB - 1) To Pg - 2
If PaginaVisita = PagAtual Then
Response.Write("<div class='pag-atual'> "&PagAtual&" </div>")
Else
Response.Write("<div class='pag-link'><a href="""&MontaLink&"pagina="&PagAtual&"""> "&PagAtual&" </a></div>")
End If
Next
End If
End If

        
If (TotalPag <> PaginaVisita) And (TotalPag > 5) Then
Response.Write("<div class='pag-pontinhos'> ... </div>")
End If


If PaginaVisita = TotalPag Then 
Response.Write("<div class='pag-navegacao-off'> próxima» </div>")
else 
Response.Write("<div class='pag-navegacao'><a href="""&MontaLink&"pagina="&Proximo&"""> próxima» </a></div>")End If

If PaginaVisita = TotalPag Then
Response.Write("<div class='pag-navegacao-off'> última » </div>")
else
Response.Write("<div class='pag-navegacao'><a href="""&MontaLink&"pagina="&TotalPag&"""> última » </a></div>")
end if

%>
</div>


<%
End If
Set rs = Nothing
%></td>
  </tr>
</table>
<div align="center">
  <table width="755" border="0" align="left" cellpadding="0" cellspacing="0">
    <tr>
      <td width="141"> </td>
      <td width="614" class="style7"><div align="center">--------------------------------------------------------------------------------------------------------------------------</div></td>
    </tr>
  </table>
</div>

</body>
</html>
<% 
function iif ( condicao, valor1, valor2 ) 
if condicao then iif = valor1 else iif = valor2 
end function 

function min( value1, value2 ) 
min = iif( value1 < value2, value1, value2 ) 
end function 

function max( value1, value2 ) 
max = iif( value1 > value2, value1, value2 ) 
end function 
%>

xanburzum · Janeiro 8, 2010

qual numero do erro...

Marcelo Pescador · Janeiro 8, 2010

segue nº do erro: ADODB.Recordset error '800a0cc1'

xanburzum · Janeiro 8, 2010

dá um reponse.write na sua string SQL para ver o k ela ta passando

verifique se á um erro no nome do campo solicitado no RecordSet.

este erro ocorre em uma de duas situações, kando você tenta acessar um campo na coleção de campos que não está no Recordset, ou você tenta acessar um campo usando um nome ambíguo.

Marcelo Pescador · Janeiro 8, 2010

como faço esse response.write ??...o que coloco na frente dele..?

xanburzum · Janeiro 9, 2010

SQL="Select * From orcamentos Order By cod_contrato Desc"

response.write (SQL)

response.end()

Arquivado

Código MySQL 2

Recommended Posts

Marcelo Pescador 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Dee 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marcelo Pescador 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Dee 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marcelo Pescador 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Dee 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

Dee 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marcelo Pescador 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Dee 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

Marcelo Pescador 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

Marcelo Pescador 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marcelo Pescador 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

Marcelo Pescador 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

Marcelo Pescador 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169