tathy

Pelo que entendi ele está entrando no else do while?

Esse
CodigoProdutoGrupo = CStr(TabProdutoGrupo("ProdutoGrupoID"))

ta sendo convertido para string.

Tenta converter para Inteiro.
CodigoProdutoGrupo = CInt(TabProdutoGrupo("ProdutoGrupoID"))

Qlqr coisa avisa.

Prezados amigos.
Tenho uma página ASP que apresenta uma Foto Grande do Produto e em baixo um Carousel JQuery onde apresenta a Miniatura da Foto de todos os Produtos do Grupo.
Tudo estava bem até que percebi o Problema. quando tenho um Grupo de Produtos onde existe somente 1 ou 2 Produtos cadastrados a apresentação da Miniatura não ocorre, e para piorar não dá nem erro, simplesmente o quadro aparece vazio.

Segue abaixo trechos do Código

' Select que recebe e identifica qual é o Grupo selecionado
TabProdutoGrupo = Server.CreateObject("adodb.recordset")
sql = "select * from ProdutoGrupo where ProdutoGrupoID = "&Request.QueryString("ID")&""
set TabProdutoGrupo = Conexao.execute(sql)

' Variável que recebe o Código do Grupo 
CodigoProdutoGrupo = CStr(TabProdutoGrupo("ProdutoGrupoID"))

' Select que carrega os Produtos ligados ao Grupo selecionado ondenando pelo campo ProdutoID Ascendente
TabProduto = Server.CreateObject("adodb.recordset")
sql = "select * from Produto where ProdutoGrupoID = "&CodigoProdutoGrupo&" order By ProdutoID ASC"
set TabProduto = Conexao.execute(sql)

<!-- Início da Div de apresentação das miniaturas -->
<div id="carosel" style="border:solid">
<div class="carosel">
<ul>
<%
IF Not TabProduto.EOF Then

Count = 0

Do While Not TabProduto.EOF
CodigoProduto = CStr(TabProduto("ProdutoID"))
Foto = TabProduto("ProdutoFoto")
FotoPq = TabProduto("ProdutoFotoPequena")
ProdutoNome = TabProduto("ProdutoNome")

Response.Write("<li><img src='ProdutoGrupo/Produtos/"&FotoPq&"' width='147' height='81' border='0' /></li>")
                                        
TabProduto.MoveNext
count=count+1
loop

Else
        Response.Write("não achou nada")
End IF
%>
</ul>
</div>
</div>
<!-- Fim da Div de apresentação das miniaturas -->

Desde já agradeço qualquer sugestão.

Atenciosamente

Primeiramente veja se o cpf esta vindo preenchido
cpf = Request.Form("CPF")
response.write(cpf)
response.End()

Me passe aqui o que chega de valor.

Depois vamos ao passo do select.

Olá pessoal, bom dia. Tenho problemas. Em cima do lnaçamento de uma intranet, o cliente decide que o CPF deve ser o campo primario do sistema, ao inves do login como antes. Tudo estava funcionando direitinho mas... nma tentativa de aplicar esta mudança, não funciona mais, não localizo porque. Resumidamente:

variavel no formulario --> <input name="CPF" type="text" id="CPF" onKeyPress="mascara(this,CPF)" onBlur="validarCPF(this.CPF);" size="16" maxlength="14">

na proxima pagina, onde devo receber o CPF:

cpf = Request.Form("CPF")
...
sqlVe = "Select * From logassoc Where CPF = '" & cpf & "'"
...

Dessa forma ele simplesmente nao enxerga o CPf, nao executa nada do codigo...

Tentei modificar para:
cpf = Request.Form("CPF")
...
sqlVe = "Select * From logassoc Where CPF = " & cpf & ""
...

Mas.. da o erro
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[MySQL][ODBC 5.1 Driver][mysqld-5.1.54-rel12.5-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 '.936-65' at line 1

/associei.asp, line 53

alguém pode me dar uma luz... estou iniciando e... preciso lançar essa intranet conforme tudo funcionando como antes mas... com o raio do CPF como chave primaria/indice no BD.

Agradeço muuuuito a quem dispor a ajudar-me!
[]s

voce está fazendo em asp classico ou asp.net?

A perda da session pode ser inumeras coisas... mas uma delas pode ser a configuracao do IIS.
Minha pergunta é esse site é hospedado em algum lugar do tipo hospedeiro ou voce tem acesso direto ao servidor dessa maquina. Se a segunda opcao for verdadeira deve verificar o tempo de sessao que geralmente fica como padrao 15 minutos.
Isso acontece somente com algumas pessoas ou com todas?
se a primeira opcao for a verdadeira deve entrar em contato com o hospedeiro e pedir o aumento de sessao, caso o gerenciador nao te de essa opcao.

Se nenhuma das duas solicionar seu problema temos que ver no ato do login como está o codigo e nas paginas como estao recebendo a session. Verificar tambem se isso soh acontece numa determinada pagina ou se acontece em qualquer uma.

Qlqr coisa posta ai.

Tenta primeiro isso...


sql = " SELECT "
sql = sql & " c.produtor, c.data, c.valor, f.nome, "
sql = sql & " f.telefone "
sql = sql & " FROM fornecedor as f
sql = sql & " INNER JOIN compra as c "
sql = sql & " ON c.id_fornecedor = f.id_fornecedor "
sql = sql & " WHERE f.id_fornecedor='1'"
Set rsfor = adoCon.Execute(sql)