Erro

[andretakata]

Estou com esse erro:

"Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito. "

A linha é esta:

Produtos.CursorLocation = adUseClient

Alguém pode me ajudar ?

[bareta]

poe seu codigo inteiro ai.....

[Bicicleta]

você setou algum valor pra: adUseClient ??? Colocou o arquivo "adovbs.inc" como include em sua página????

Se você não tiver o adovbs.inc como include, coloque-o e veja se resolve...

PS.: Se você não o tiver, faça uma busca no seu computador, q você vai achá-lo!

[]s

[andretakata]

Incluí lá cara, mas não funciona, continua do mesmo jeito.

Meu problema pode ser no global.asa ?

[bareta]

poe seu codigo inteiro ai.....

poe o code ai.....

[andretakata]

<%

' *********************************************************

' Versão 5.0 - 08/08/2003

' vitrine.asp

' *********************************************************

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

' Pagina de produtos

' Abre conexao com banco de dados. Alterar a string de conexao em global.asa

Set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open "DSN=loja50mysql"

'passado por procura

produto = Request("procura")

'passado quando se seleciona uma categoria

codigo_categoria = Request("codigo_categoria")

nome_categoria = Request("nome_categoria")

'Checa numero da pagina nos produtos.

If Request.QueryString("PaginaAtual") = "" then

PaginaAtual = 1 'estamos na primeira pagina

Else

PaginaAtual = Request.QueryString("PaginaAtual")

End If

' Abre tabela de produtos usando a conexao aberta acima.

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

' Propriedade que permite escolher a posicao de retorno da consulta.

Produtos.CursorLocation = adUseClient

Produtos.CacheSize = "5"

' quando se escolhe uma categoria

Produtos.Open "SELECT * FROM Produtos WHERE vitrine = 1 AND disponivel = '1'", Conexao

%>

<table border="0" width="505" align="center" cellpadding="10" cellspacing="10">

<tr>

<td COLSPAN="4" HEIGHT="100" align="justify"><a class="TextoTopico"><center><B><%=Application("nomeloja")%> </B></center></a><br><br><a class="TextoPadrao"> Você poderá comprar todos os produtos que estão disponíveis para venda neste site e receber em sua casa, em até 10 dias após fazer o pedido.<br></a></td>

</tr>

<tr>

<%

' Checa se existem produtos no banco de dados

If Produtos.Eof Then

If Request("procura") = "" Then

%>

<tr>

<td COLSPAN="3" HEIGHT="30"><a class="TextoPadrao"><B>Desculpe, mas não existem produtos para a categoria <U><%= nome_categoria %></U></B></a></td>

</tr>

<%

Else

%>

<tr>

<td COLSPAN="6" HEIGHT="30"><a class="TextoPadrao"><B>Desculpe, mas não foi encontrado nenhum produto com esse nome.</B></a></td>

</tr>

<%

End If

Else

' Le codigo, nome do produto, preço e URL da imagem para escrever as linhas da tabela,já usando o codigo do produto para montar o link para a pagina de carrinho de compras:

Produtos.MoveFirst

Produtos.PageSize = "5"

TotalPaginas = Produtos.PageCount

'Pagina Absoluta

Produtos.AbsolutePage = PaginaAtual

Coluna = 0

Contador = 0

While Not Produtos.EOF And Contador < Produtos.PageSize

%>

<td width="33%" height="33%" align="center"><br><p><img src="<%= Produtos("url_imagem") %>" border=0><br><a class="TextoPadrao"><%= Produtos("nome_produto") %><br><%= FormatCurrency(Produtos("preco_unitario")) %><br><br></a> <a href="<%= Application("URL_Carrinho") %>?codigo_produto=<%= Produtos("codigo_produto") %>&codigo_categoria=<%=Produtos("codigo_categoria")%>" class="TextoPadrao"> <IMG SRC="images/bot_comprar.gif" BORDER=0 ALT=""></a><br> <a href="<%= Application("URL_Descricao") %>?codigo_produto=<%= Produtos("codigo_produto") %>" class="produtos"><IMG SRC="images/bot_descricao.gif" BORDER=0 ALT=""></a></td>

<%

'Monta o numero de produtos por linha

Coluna=Coluna+1

If Coluna >=3 Then

Coluna=0

%>

</tr>

<tr>

<%

Contador = Contador + 1

Produtos.MoveNext

Else

Contador = Contador + 1

Produtos.MoveNext

End If

wend

%>

</table>

<%

End If

Produtos.Close

Conexao.Close

Set Produtos = Nothing

Set Conexao = Nothing

%>

[Bicicleta]

bom, faz isso então, joga o valor direto:

Produtos.CursorLocation = 3

Se mesmo assim der erro, faça o q o bareta disse!!! Manda o código!