que erro é esse?

fabiosc80 · Janeiro 31, 2005

Preciso saber que erro é esse aqui?

ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/loja01/loja.asp, line 0

deve ser por causa dos movenext mas nao sei pq.

A parte do código é essa aqui:

ASP [/tr][tr]<%

If Not rsDC.EOF Then rsDC.MoveFirst

' Get the number of fields and subtract one so our loops start at 0

iFieldCount = rsDC.Fields.Count - 1

rsDC.Move (CurrentPage * rsDC.PageSize) - RecsPerPage

CurrentRecord = 1

numform = 0

Do While CurrentRecord <= rsDC.PageSize and Not rsDC.EOF

numform = numform + 1

%>

<tr>

<img src="<%=rsDC("ProductImageURL")%>" alt="Veja mais detalhes !" border="0" ></a>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" ><%=rsDC("ProductName")%></a>

<%if rsDC("OnSale") = "SIM" then%>

<%if rsDC("desconto") > 0 then

valordesc = rsDC("Unitprice") - ( rsDC("Unitprice") * (rsDC("desconto") / 100 ))%> de

<%=formatcurrency(rsDC("Unitprice"))%> por

<%=formatcurrency(valordesc)%><%else%><%=formatcurrency(rsDC("Unitprice"))%>

<% end if %>

<a href="check_out.asp?ProductID=<%=rsDC("ProductID")%>&Action=Comprar&Quantity=1">

<%Else%>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" >

<%End If%>

</td>

<%

rsDC.MoveNext

CurrentRecord = CurrentRecord + 1

%>

<img src="<%=rsDC("ProductImageURL")%>" alt="Veja mais detalhes !" border="0" ></a>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" ><%=rsDC("ProductName")%></a>

<%if rsDC("OnSale") = "SIM" then%>

<%if rsDC("desconto") > 0 then

valordesc = rsDC("Unitprice") - ( rsDC("Unitprice") * (rsDC("desconto") / 100 ))%> de

<%=formatcurrency(rsDC("Unitprice"))%> por

<%=formatcurrency(valordesc)%><%else%><%=formatcurrency(rsDC("Unitprice"))%>

<% end if %>

<a href="check_out.asp?ProductID=<%=rsDC("ProductID")%>&Action=Comprar&Quantity=1">

<%Else%>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" >

<%End If%>

</td>

<%

rsDC.MoveNext

CurrentRecord = CurrentRecord + 1

%>

<img src="<%=rsDC("ProductImageURL")%>" alt="Veja mais detalhes !" border="0" ></a>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" ><%=rsDC("ProductName")%></a>

<%if rsDC("OnSale") = "SIM" then%>

<%if rsDC("desconto") > 0 then

valordesc = rsDC("Unitprice") - ( rsDC("Unitprice") * (rsDC("desconto") / 100 ))%> de

<%=formatcurrency(rsDC("Unitprice"))%> por

<%=formatcurrency(valordesc)%><%else%><%=formatcurrency(rsDC("Unitprice"))%>

<% end if %>

<a href="check_out.asp?ProductID=<%=rsDC("ProductID")%>&Action=Comprar&Quantity=1">

<%Else%>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" >

<%End If%>

</td>

</tr>

<%

rsDC.MoveNext

CurrentRecord = CurrentRecord + 1

Loop

%>

[/tr]

Salgado · Janeiro 31, 2005

Ao acessar o link obtive o seguinte erro:

Microsoft VBScript compilation error '800a0400'

Expected statement

/loja01/loja.asp, line 610

wend

^

fabiosc80 · Janeiro 31, 2005

Ao acessar o link obtive o seguinte erro:

Microsoft VBScript compilation error '800a0400' Expected statement /loja01/loja.asp, line 610 wend^

foi mal eu tava tentando resolver, veja agora...

Salgado · Janeiro 31, 2005

Dá uma verificada em seus IFS, com certeza algum deles está acarretando o problema.

fabiosc80 · Janeiro 31, 2005

Dá uma verificada em seus IFS, com certeza algum deles está acarretando o problema.

cara eu verifiquei mas parece estar certo olha só o pedaço ...

tipo só na ultima td da dando erro

ASP [/tr][tr]<%

If Not rsDC.EOF Then rsDC.MoveFirst

' Get the number of fields and subtract one so our loops start at 0

iFieldCount = rsDC.Fields.Count - 1

rsDC.Move (CurrentPage * rsDC.PageSize) - RecsPerPage

CurrentRecord = 1

numform = 0

Do While CurrentRecord <= rsDC.PageSize and Not rsDC.EOF

numform = numform + 1

%>

<tr>

<img src="<%=rsDC("ProductImageURL")%>" alt="Veja mais detalhes !" border="0" ></a>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" ><%=rsDC("ProductName")%></a>

<%if rsDC("OnSale") = "SIM" then%>

<%if rsDC("desconto") > 0 then

valordesc = rsDC("Unitprice") - ( rsDC("Unitprice") * (rsDC("desconto") / 100 ))%> de

<%=formatcurrency(rsDC("Unitprice"))%> por

<%=formatcurrency(valordesc)%><%else%><%=formatcurrency(rsDC("Unitprice"))%>

<% end if %>

<a href="check_out.asp?ProductID=<%=rsDC("ProductID")%>&Action=Comprar&Quantity=1">

<%Else%>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" >

<%End If%>

</td>

<%

rsDC.MoveNext

CurrentRecord = CurrentRecord + 1

%>

<img src="<%=rsDC("ProductImageURL")%>" alt="Veja mais detalhes !" border="0" ></a>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" ><%=rsDC("ProductName")%></a>

<%if rsDC("OnSale") = "SIM" then%>

<%if rsDC("desconto") > 0 then

valordesc = rsDC("Unitprice") - ( rsDC("Unitprice") * (rsDC("desconto") / 100 ))%> de

<%=formatcurrency(rsDC("Unitprice"))%> por

<%=formatcurrency(valordesc)%><%else%><%=formatcurrency(rsDC("Unitprice"))%>

<% end if %>

<a href="check_out.asp?ProductID=<%=rsDC("ProductID")%>&Action=Comprar&Quantity=1">

<%Else%>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" >

<%End If%>

</td>

<%

rsDC.MoveNext

CurrentRecord = CurrentRecord + 1

%>

<img src="<%=rsDC("ProductImageURL")%>" alt="Veja mais detalhes !" border="0" ></a>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" ><%=rsDC("ProductName")%></a>

<%if rsDC("OnSale") = "SIM" then%>

<%if rsDC("desconto") > 0 then

valordesc = rsDC("Unitprice") - ( rsDC("Unitprice") * (rsDC("desconto") / 100 ))%> de

<%=formatcurrency(rsDC("Unitprice"))%> por

<%=formatcurrency(valordesc)%><%else%><%=formatcurrency(rsDC("Unitprice"))%>

<% end if %>

<a href="check_out.asp?ProductID=<%=rsDC("ProductID")%>&Action=Comprar&Quantity=1">

<%Else%>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" >

<%End If%>

</td>

</tr>

<%

rsDC.MoveNext

CurrentRecord = CurrentRecord + 1

Loop

%>

</table>

</td>

</tr>

</table>

<%parametros = "ProductName=" & ProductName & "&Product_Type=" & Product_Type & "&Product_SubType=" & Product_SubType%>

<%

end if

%>

[/tr]

Salgado · Janeiro 31, 2005

você tem MoveNext no meio de seu Do While, isso pode estar acarretando em um .EOF não tratado.

fabiosc80 · Fevereiro 1, 2005

você tem MoveNext no meio de seu Do While, isso pode estar acarretando em um .EOF não tratado.

Mas salgado.se eu nao colocar o movenext no meio como eu faço pra exibir 18 itens de tres em tres.?

fabiosc80 · Fevereiro 1, 2005

você tem MoveNext no meio de seu Do While, isso pode estar acarretando em um .EOF não tratado.
Mas salgado.se eu nao colocar o movenext no meio como eu faço pra exibir 18 itens de tres em tres.?

Pessoal por favore oque eu faço?

Mário Monteiro · Fevereiro 1, 2005

bem cara você pode até colocar o move next no meio, mas antes de exibir os dados você é obrigado a testar o EOF denovo...

fabiosc80 · Fevereiro 1, 2005

bem cara você pode até colocar o move next no meio, mas antes de exibir os dados você é obrigado a testar o EOF denovo...

eu fiz mas continua dando o mesmo erro.

olha como eu fiz.

ASP [/tr][tr]<%

If Not rsDC.EOF Then rsDC.MoveFirst

' Get the number of fields and subtract one so our loops start at 0

iFieldCount = rsDC.Fields.Count - 1

rsDC.Move (CurrentPage * rsDC.PageSize) - RecsPerPage

CurrentRecord = 1

numform = 0

Do While CurrentRecord <= rsDC.PageSize and Not rsDC.EOF

numform = numform + 1

%>

<tr>

<img src="<%=rsDC("ProductImageURL")%>" alt="Veja mais detalhes !" border="0" ></a>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" ><%=rsDC("ProductName")%></a>

<%if rsDC("OnSale") = "SIM" then%>

<%if rsDC("desconto") > 0 then

valordesc = rsDC("Unitprice") - ( rsDC("Unitprice") * (rsDC("desconto") / 100 ))%> de

<%=formatcurrency(rsDC("Unitprice"))%> por

<%=formatcurrency(valordesc)%><%else%><%=formatcurrency(rsDC("Unitprice"))%>

<% end if %>

<a href="check_out.asp?ProductID=<%=rsDC("ProductID")%>&Action=Comprar&Quantity=1">

<%Else%>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" >

<%End If%>

</td>

<%

If Not rsDC.EOF Then

rsDC.MoveNext

CurrentRecord = CurrentRecord + 1

end if

%>

<img src="<%=rsDC("ProductImageURL")%>" alt="Veja mais detalhes !" border="0" ></a>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" ><%=rsDC("ProductName")%></a>

<%if rsDC("OnSale") = "SIM" then%>

<%if rsDC("desconto") > 0 then

valordesc = rsDC("Unitprice") - ( rsDC("Unitprice") * (rsDC("desconto") / 100 ))%> de

<%=formatcurrency(rsDC("Unitprice"))%> por

<%=formatcurrency(valordesc)%><%else%><%=formatcurrency(rsDC("Unitprice"))%>

<% end if %>

<a href="check_out.asp?ProductID=<%=rsDC("ProductID")%>&Action=Comprar&Quantity=1">

<%Else%>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" >

<%End If%>

</td>

<%

If Not rsDC.EOF Then

rsDC.MoveNext

CurrentRecord = CurrentRecord + 1

end if

%>

<img src="<%=rsDC("ProductImageURL")%>" alt="Veja mais detalhes !" border="0" ></a>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" ><%=rsDC("ProductName")%></a>

<%if rsDC("OnSale") = "SIM" then%>

<%if rsDC("desconto") > 0 then

valordesc = rsDC("Unitprice") - ( rsDC("Unitprice") * (rsDC("desconto") / 100 ))%> de

<%=formatcurrency(rsDC("Unitprice"))%> por

<%=formatcurrency(valordesc)%><%else%><%=formatcurrency(rsDC("Unitprice"))%>

<% end if %>

<a href="check_out.asp?ProductID=<%=rsDC("ProductID")%>&Action=Comprar&Quantity=1">

<%Else%>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" >

<%End If%>

</td>

</tr>

<%

If Not rsDC.EOF Then

rsDC.MoveNext

CurrentRecord = CurrentRecord + 1

end if

Loop

%>

</table>

</td>

</tr>

</table>

<%parametros = "ProductName=" & ProductName & "&Product_Type=" & Product_Type & "&Product_SubType=" & Product_SubType%>

<%

end if

%>

[/tr]

E agora? Oque faço?

Mário Monteiro · Fevereiro 1, 2005

não assimIf Not rsDC.EOF ThenrsDC.MoveNextmas assimrsDC.MoveNextIf Not rsDC.EOF Thenpois você deve testar depois de ter movido o cursor, senão vai dar pau quando acabar os registros, pois você testa antes quandop ainda existe e não saberá quando acabaram depois...

fabiosc80 · Fevereiro 1, 2005

não assim

If Not rsDC.EOF Then

rsDC.MoveNext

mas assim

rsDC.MoveNext

If Not rsDC.EOF Then

Deu o mesmo erro. ve se fiz certo...

ASP [/tr][tr]<%

If Not rsDC.EOF Then rsDC.MoveFirst

' Get the number of fields and subtract one so our loops start at 0

iFieldCount = rsDC.Fields.Count - 1

rsDC.Move (CurrentPage * rsDC.PageSize) - RecsPerPage

CurrentRecord = 1

numform = 0

Do While CurrentRecord <= rsDC.PageSize and Not rsDC.EOF

numform = numform + 1

%>

<tr>

<img src="<%=rsDC("ProductImageURL")%>" alt="Veja mais detalhes !" border="0" ></a>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" ><%=rsDC("ProductName")%></a>

<%if rsDC("OnSale") = "SIM" then%>

<%if rsDC("desconto") > 0 then

valordesc = rsDC("Unitprice") - ( rsDC("Unitprice") * (rsDC("desconto") / 100 ))%> de

<%=formatcurrency(rsDC("Unitprice"))%> por

<%=formatcurrency(valordesc)%><%else%><%=formatcurrency(rsDC("Unitprice"))%>

<% end if %>

<a href="check_out.asp?ProductID=<%=rsDC("ProductID")%>&Action=Comprar&Quantity=1">

<%Else%>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" >

<%End If%>

</td>

<%

rsDC.MoveNext

If Not rsDC.EOF Then

CurrentRecord = CurrentRecord + 1

end if

%>

<img src="<%=rsDC("ProductImageURL")%>" alt="Veja mais detalhes !" border="0" ></a>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" ><%=rsDC("ProductName")%></a>

<%if rsDC("OnSale") = "SIM" then%>

<%if rsDC("desconto") > 0 then

valordesc = rsDC("Unitprice") - ( rsDC("Unitprice") * (rsDC("desconto") / 100 ))%> de

<%=formatcurrency(rsDC("Unitprice"))%> por

<%=formatcurrency(valordesc)%><%else%><%=formatcurrency(rsDC("Unitprice"))%>

<% end if %>

<a href="check_out.asp?ProductID=<%=rsDC("ProductID")%>&Action=Comprar&Quantity=1">

<%Else%>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" >

<%End If%>

</td>

<%

rsDC.MoveNext

If Not rsDC.EOF Then

CurrentRecord = CurrentRecord + 1

end if

%>

<img src="<%=rsDC("ProductImageURL")%>" alt="Veja mais detalhes !" border="0" ></a>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" ><%=rsDC("ProductName")%></a>

<%if rsDC("OnSale") = "SIM" then%>

<%if rsDC("desconto") > 0 then

valordesc = rsDC("Unitprice") - ( rsDC("Unitprice") * (rsDC("desconto") / 100 ))%> de

<%=formatcurrency(rsDC("Unitprice"))%> por

<%=formatcurrency(valordesc)%><%else%><%=formatcurrency(rsDC("Unitprice"))%>

<% end if %>

<a href="check_out.asp?ProductID=<%=rsDC("ProductID")%>&Action=Comprar&Quantity=1">

<%Else%>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" >

<%End If%>

</td>

</tr>

<%

rsDC.MoveNext

If Not rsDC.EOF Then

CurrentRecord = CurrentRecord + 1

end if

Loop

%>

</table>

</td>

</tr>

</table>

<%parametros = "ProductName=" & ProductName & "&Product_Type=" & Product_Type & "&Product_SubType=" & Product_SubType%>

<%

end if

%>

[/tr]

Mário Monteiro · Fevereiro 1, 2005

bem cara ainda persiste o erro pois você fez assimIf Not rsDC.EOF ThenCurrentRecord = CurrentRecord + 1end ifaqui você apenas incrementa o contador se tiver registros, se não tiver, você não incrementa mas como você fecha o teste você tenta escrever mesmo nãom tendo nadaem outras palavras este END IF deve ir para o fim de cada bloco de codigo e não terminar lá no inicio...ve se da agora

fabiosc80 · Fevereiro 1, 2005

bem cara ainda persiste o erro pois você fez assim

If Not rsDC.EOF Then

CurrentRecord = CurrentRecord + 1

end if

aqui você apenas incrementa o contador se tiver registros, se não tiver, você não incrementa mas como você fecha o teste você tenta escrever mesmo nãom tendo nada

em outras palavras este END IF deve ir para o fim de cada bloco de codigo e não terminar lá no inicio...

ve se da agora

Agora deu esse erro aqui:

ADODB.Recordset error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/loja01/loja.asp, line 654

a linha 654 é essa aqui:

rsDC.MoveNext

o ultimo deles...

olha oque fiz agora:

ASP [/tr][tr]<%

If Not rsDC.EOF Then rsDC.MoveFirst

' Get the number of fields and subtract one so our loops start at 0

iFieldCount = rsDC.Fields.Count - 1

rsDC.Move (CurrentPage * rsDC.PageSize) - RecsPerPage

CurrentRecord = 1

numform = 0

Do While CurrentRecord <= rsDC.PageSize and Not rsDC.EOF

numform = numform + 1

%>

<tr>

<img src="<%=rsDC("ProductImageURL")%>" alt="Veja mais detalhes !" border="0" ></a>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" ><%=rsDC("ProductName")%></a>

<%if rsDC("OnSale") = "SIM" then%>

<%if rsDC("desconto") > 0 then

valordesc = rsDC("Unitprice") - ( rsDC("Unitprice") * (rsDC("desconto") / 100 ))%> de

<%=formatcurrency(rsDC("Unitprice"))%> por

<%=formatcurrency(valordesc)%><%else%><%=formatcurrency(rsDC("Unitprice"))%>

<% end if %>

<a href="check_out.asp?ProductID=<%=rsDC("ProductID")%>&Action=Comprar&Quantity=1">

<%Else%>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" >

<%End If%>

</td>

<%

rsDC.MoveNext

If Not rsDC.EOF Then

CurrentRecord = CurrentRecord + 1

%>

<img src="<%=rsDC("ProductImageURL")%>" alt="Veja mais detalhes !" border="0" ></a>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" ><%=rsDC("ProductName")%></a>

<%if rsDC("OnSale") = "SIM" then%>

<%if rsDC("desconto") > 0 then

valordesc = rsDC("Unitprice") - ( rsDC("Unitprice") * (rsDC("desconto") / 100 ))%> de

<%=formatcurrency(rsDC("Unitprice"))%> por

<%=formatcurrency(valordesc)%><%else%><%=formatcurrency(rsDC("Unitprice"))%>

<% end if %>

<a href="check_out.asp?ProductID=<%=rsDC("ProductID")%>&Action=Comprar&Quantity=1">

<%Else%>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" >

<%End If%>

</td>

<%

end if

rsDC.MoveNext

If Not rsDC.EOF Then

CurrentRecord = CurrentRecord + 1

%>

<img src="<%=rsDC("ProductImageURL")%>" alt="Veja mais detalhes !" border="0" ></a>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" ><%=rsDC("ProductName")%></a>

<%if rsDC("OnSale") = "SIM" then%>

<%if rsDC("desconto") > 0 then

valordesc = rsDC("Unitprice") - ( rsDC("Unitprice") * (rsDC("desconto") / 100 ))%> de

<%=formatcurrency(rsDC("Unitprice"))%> por

<%=formatcurrency(valordesc)%><%else%><%=formatcurrency(rsDC("Unitprice"))%>

<% end if %>

<a href="check_out.asp?ProductID=<%=rsDC("ProductID")%>&Action=Comprar&Quantity=1">

<%Else%>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" >

<%End If%>

</td>

</tr>

<%

end if

rsDC.MoveNext

If Not rsDC.EOF Then

CurrentRecord = CurrentRecord + 1

end if

Loop

%>

</table>

</td>

</tr>

</table>

<%parametros = "ProductName=" & ProductName & "&Product_Type=" & Product_Type & "&Product_SubType=" & Product_SubType%>

<%

end if

%>

[/tr]

Mário Monteiro · Fevereiro 1, 2005

bem cara é o seguinte você deve testar se é EOF antes de dar um MOVE NEXT ou antes de exibir dados...

fabiosc80 · Fevereiro 1, 2005

bem cara é o seguinte você deve testar se é EOF antes de dar um MOVE NEXT ou antes de exibir dados...

Mas você nao disse que tinha que ser depois?

fabiosc80 · Fevereiro 1, 2005

bem cara é o seguinte você deve testar se é EOF antes de dar um MOVE NEXT ou antes de exibir dados...

Deu Certo Mario,Puts valeu mesmo.Agora entendi , o ultimo tem que verificar antes dos movenext e os outros depois ...Valeu...Puts valeu mesmo..Abração.

Mário Monteiro · Fevereiro 1, 2005

bem cara é o seguinte você deve testar se é EOF antes de dar um MOVE NEXT ou antes de exibir dados...
Deu Certo Mario,Puts valeu mesmo.Agora entendi , o ultimo tem que verificar antes dos movenext e os outros depois ...Valeu...Puts valeu mesmo..Abração.

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif Ok Fabio http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

fabiosc80 · Fevereiro 2, 2005

Mario aconteceu um problema,

quando tem só 1 produto cadastrado ou 4 ou 7 ou seja quando esta cadastrando na primeira coluna da o seguinte erro:

ADODB.Recordset error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/loja01/loja.asp, line 614

a linha é essa aqui:

rsDC.MoveNext

que esta nesse bloco:

<%

end if

rsDC.MoveNext

If Not rsDC.EOF Then

CurrentRecord = CurrentRecord + 1

%>

vou postar denovo a parte do código dos whiles

ele é o segundo bloco depois do inicio:

tipo oque faço?

ASP [/tr][tr]<%

If Not rsDC.EOF Then rsDC.MoveFirst

' Get the number of fields and subtract one so our loops start at 0

iFieldCount = rsDC.Fields.Count - 1

rsDC.Move (CurrentPage * rsDC.PageSize) - RecsPerPage

CurrentRecord = 1

numform = 0

Do While CurrentRecord <= rsDC.PageSize and Not rsDC.EOF

numform = numform + 1

%>

<tr>

<img src="<%=rsDC("ProductImageURL")%>" alt="Veja mais detalhes !" border="0" ></a>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" ><%=rsDC("ProductName")%></a>

<%if rsDC("OnSale") = "SIM" then%>

<%if rsDC("desconto") > 0 then

valordesc = rsDC("Unitprice") - ( rsDC("Unitprice") * (rsDC("desconto") / 100 ))%> de

<%=formatcurrency(rsDC("Unitprice"))%> por

<%=formatcurrency(valordesc)%><%else%><%=formatcurrency(rsDC("Unitprice"))%>

<% end if %>

<a href="check_out.asp?ProductID=<%=rsDC("ProductID")%>&Action=Comprar&Quantity=1">

<%Else%>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" >

<%End If%>

</td>

<%

rsDC.MoveNext

If Not rsDC.EOF Then

CurrentRecord = CurrentRecord + 1

%>

<img src="<%=rsDC("ProductImageURL")%>" alt="Veja mais detalhes !" border="0" ></a>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" ><%=rsDC("ProductName")%></a>

<%if rsDC("OnSale") = "SIM" then%>

<%if rsDC("desconto") > 0 then

valordesc = rsDC("Unitprice") - ( rsDC("Unitprice") * (rsDC("desconto") / 100 ))%> de

<%=formatcurrency(rsDC("Unitprice"))%> por

<%=formatcurrency(valordesc)%><%else%><%=formatcurrency(rsDC("Unitprice"))%>

<% end if %>

<a href="check_out.asp?ProductID=<%=rsDC("ProductID")%>&Action=Comprar&Quantity=1">

<%Else%>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" >

<%End If%>

</td>

<%

end if

rsDC.MoveNext

If Not rsDC.EOF Then

CurrentRecord = CurrentRecord + 1

%>

<img src="<%=rsDC("ProductImageURL")%>" alt="Veja mais detalhes !" border="0" ></a>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" ><%=rsDC("ProductName")%></a>

<%if rsDC("OnSale") = "SIM" then%>

<%if rsDC("desconto") > 0 then

valordesc = rsDC("Unitprice") - ( rsDC("Unitprice") * (rsDC("desconto") / 100 ))%> de

<%=formatcurrency(rsDC("Unitprice"))%> por

<%=formatcurrency(valordesc)%><%else%><%=formatcurrency(rsDC("Unitprice"))%>

<% end if %>

<a href="check_out.asp?ProductID=<%=rsDC("ProductID")%>&Action=Comprar&Quantity=1">

<%Else%>

<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" >

<%End If%>

</td>

</tr>

<%

end if

If Not rsDC.EOF Then

rsDC.MoveNext

CurrentRecord = CurrentRecord + 1

end if

Loop

%>

</table>

</td>

</tr>

</table>

<%parametros = "ProductName=" & ProductName & "&Product_Type=" & Product_Type & "&Product_SubType=" & Product_SubType%>

<%

end if

%>

[/tr]

FabricioGomes · Fevereiro 2, 2005

tenta assim

<%If Not rsDC.EOF Then rsDC.MoveFirst' Get the number of fields and subtract one so our loops start at 0iFieldCount = rsDC.Fields.Count - 1rsDC.Move (CurrentPage * rsDC.PageSize) - RecsPerPageCurrentRecord = 1numform = 0Do While CurrentRecord <= rsDC.PageSize and Not rsDC.EOF	numform = numform + 1	%>		<tr>		<td width="33%" valign="bottom" align="center">	<p style="margin-top: 0; margin-bottom: 0">	<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>">	<img src="<%=rsDC("ProductImageURL")%>" alt="Veja mais detalhes !" border="0" ></a>	</p>	<p style="margin-left: 2; margin-right: 2; margin-top: 0; margin-bottom: 0">	<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" ><%=rsDC("ProductName")%></a>	</p>	<%if rsDC("OnSale") = "SIM" then%>	<p style="margin-top: 0; margin-bottom: 0">	<font face="Verdana" size="1" color="#FF0000">	<%if rsDC("desconto") > 0 then	valordesc = rsDC("Unitprice") - ( rsDC("Unitprice") * (rsDC("desconto") / 100 ))%> de	<%=formatcurrency(rsDC("Unitprice"))%> por	<%=formatcurrency(valordesc)%><%else%><%=formatcurrency(rsDC("Unitprice"))%>	<% end if %>	</font>	</p>	<p style="margin-top: 0; margin-bottom: 0">	<a href="check_out.asp?ProductID=<%=rsDC("ProductID")%>&Action=Comprar&Quantity=1">	<img src="imagens/botao_comprar.gif" alt="Comprar Produto" border="0"></a><br>	<img src="images/hr.gif" border="0"> 	</p>	<%Else%>	<a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" >	<img src="imagens/botao_indisponivel.gif" alt="Indisponível" border="0"></a><br>	<img src="images/hr.gif" border="0"> 	<%End If%>	</td>		<%	rsDC.MoveNext	If Not rsDC.EOF Then  CurrentRecord = CurrentRecord + 1    %>  <td width="33%" valign="bottom" align="center">  <p style="margin-top: 0; margin-bottom: 0">  <a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>">  <img src="<%=rsDC("ProductImageURL")%>" alt="Veja mais detalhes !" border="0" ></a>  </p>  <p style="margin-left: 2; margin-right: 2; margin-top: 0; margin-bottom: 0">  <a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" ><%=rsDC("ProductName")%></a>  </p>  <%if rsDC("OnSale") = "SIM" then%>  <p style="margin-top: 0; margin-bottom: 0">  <font face="Verdana" size="1" color="#FF0000">  <%if rsDC("desconto") > 0 then  valordesc = rsDC("Unitprice") - ( rsDC("Unitprice") * (rsDC("desconto") / 100 ))%> de  <%=formatcurrency(rsDC("Unitprice"))%> por  <%=formatcurrency(valordesc)%><%else%><%=formatcurrency(rsDC("Unitprice"))%>  <% end if %>  </font>  </p>  <p style="margin-top: 0; margin-bottom: 0">  <a href="check_out.asp?ProductID=<%=rsDC("ProductID")%>&Action=Comprar&Quantity=1">  <img src="imagens/botao_comprar.gif" alt="Comprar Produto" border="0"></a><br>  <img src="images/hr.gif" border="0">   </p>  <%Else%>  <a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" >  <img src="imagens/botao_indisponivel.gif" alt="Indisponível" border="0"></a><br>  <img src="images/hr.gif" border="0">   <%End If%>  </td>    <%  rsDC.MoveNext  If Not rsDC.EOF Then 	 CurrentRecord = CurrentRecord + 1 	  	 %> 	 <td width="33%" valign="bottom" align="center"> 	 <p style="margin-top: 0; margin-bottom: 0"> 	 <a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>"> 	 <img src="<%=rsDC("ProductImageURL")%>" alt="Veja mais detalhes !" border="0" ></a> 	 </p> 	 <p style="margin-left: 2; margin-right: 2; margin-top: 0; margin-bottom: 0"> 	 <a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" ><%=rsDC("ProductName")%></a> 	 </p> 	 <%if rsDC("OnSale") = "SIM" then%> 	 <p style="margin-top: 0; margin-bottom: 0"> 	 <font face="Verdana" size="1" color="#FF0000"> 	 <%if rsDC("desconto") > 0 then 	 valordesc = rsDC("Unitprice") - ( rsDC("Unitprice") * (rsDC("desconto") / 100 ))%> de 	 <%=formatcurrency(rsDC("Unitprice"))%> por 	 <%=formatcurrency(valordesc)%><%else%><%=formatcurrency(rsDC("Unitprice"))%> 	 <% end if %> 	 </font> 	 </p> 	 <p style="margin-top: 0; margin-bottom: 0"> 	 <a href="check_out.asp?ProductID=<%=rsDC("ProductID")%>&Action=Comprar&Quantity=1"> 	 <img src="imagens/botao_comprar.gif" alt="Comprar Produto" border="0"></a><br> 	 <img src="images/hr.gif" border="0">  	 </p> 	 <%Else%> 	 <a href="ficha.asp?ProductID=<%=rsDC("ProductID")%>" Class="Navegacao" > 	 <img src="imagens/botao_indisponivel.gif" alt="Indisponível" border="0"></a><br> 	 <img src="images/hr.gif" border="0">  	 <%End If%> 	 </td>  	 </tr> 	  	  	  	 <%  end if  If Not rsDC.EOF Then 	 rsDC.MoveNext 	 CurrentRecord = CurrentRecord + 1  end if	end ifLoop%></table></td></tr></table><%parametros = "ProductName=" & ProductName & "&Product_Type=" & Product_Type & "&Product_SubType=" & Product_SubType%><%end if%>

Arquivado

que erro é esse?

Recommended Posts

fabiosc80 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabiosc80 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabiosc80 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabiosc80 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabiosc80 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabiosc80 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabiosc80 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabiosc80 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabiosc80 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabiosc80 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabiosc80 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

FabricioGomes 0