Next Inesperado

[Guest Jomar]

Estou com problemas por favor me ajudem!!

ERRO:

Erro de compilação do Microsoft VBScript error '800a041f'

'Next' inesperado

/editora/web/carrinho_pedido.asp, line 62

next

^

meu código...

Onde devo arrumar

<!--#include file=".../editora/web/inc/funcoes.asp"-->

<%

Sub Session_OnStart

if Session("Pedido").Count = 0 then

Response.Write "<p> Não há produtos em sua cesta <br><br>"

Response.Write "<a href=default.asp?pagina=" & request.Querystring("pagina") &"> Voltar </a>"

else

%>

<form action="atualizar_carrinho.asp" method="post">

<table border="1" align="center" width="80%">

<tr>

<th colspan="4"> Suas compras </th>

</tr>

<tr>

<td> Excluir </td>

<td> Quantidade </td>

<td> Obra </td>

<td> Valor Unitário </td>

</tr>

<% Mostra_Pedido() %>

<tr>

<td colspan="4">

<input type="submit" value="Atualizar">

<input type="submit" name="acao" value="Fechar Pedido">

</td>

</tr>

</table>

</form>

<%

end if

'<%=mostra_pedido()%>

function Mostra_Pedido()

total = 0

for each Produto in Session("Pedido")

vSQL = "SELECT * FROM Obra WHERE CodObra = " & Produto

Set rsObra = Server.CreateObject("ADODB.RecordSet")

rsObra.Open vSQL, Conexao

%>

<tr>

<td><input type="checkbox" name="exclui<%=Produto%>" value="1"></td>

<td><input type="text" size="2" name="quantidade<%=Produto%>" value="<%=Session("Pedido").Item(Produto)%>"></td>

<td><%=rsObra("Obra")%></td>

<td><%=FormatCurrency(rsObra("preço"))%></td>

</tr>

<%

if Session("Pedido").Item(Produto) > 1 then

total = total + Session("Pedido").Item(Produto) * rsObra("preço")

else

total = total + rsObra("preço")

end if

rsObra.Close

Set rsObra = Nothing

next

Response.Write "<tr>"

Response.Write "<td> &nbsp; </td>"

Response.Write "<td> Total: </td>"

Response.Write "<td colspan=3>" & FormatCurrency(Total) & "</td>"

Response.Write "</tr>"

Set Produto=Nothing

End Function

%>

OBRIGADO JOMAR

[ruinas]

Deve ser aquele Next baixo de

rsObra.Close

Set rsObra = Nothing

La perto do final...

tenta tirar ele e testar a pagina. :blink: