porque marca este error (wend)

[sonneman]

porque me marca este error
Error de compilación de Microsoft VBScript error '800a0400'

Se esperaba una instrucción

/unitec/papeleria/PENDIENTES3.ASP, line 48

wend
mi linea 48 es donde esta el wend
les puse en negritas los if y los while
cada uno esta correctamente cerrado,
o es que no se puede meter un if dentro de un while diganme no se lo que sea!!

aqui esta el codigo



On error resume next
If err.number > 0 then
response.redirect "nada.asp"

Else
i= 1

while (not objRS4.Eof)


sql2 = "select total_actual from totales where id_producto = prod04 "
set rs2 = oConn.execute(sql2)

if rs2("id_pedido") >= total_actual then
response.write ("no existe esa cantidad en almacen")

else



SQL = "INSERT INTO detalle_pedido (id_pedido,id_producto,cantidad) VALUES ('"&ped&"','"+Request.Form( "id"&i)+"','"+Request.Form ("cant"&i)+"')"
RecordSet1.Open SQL, oConn




i=i+1
objRS4.MoveNext
wend

sql2 = "INSERT INTO pedido select * FROM previo_pedido where id_pedido = "&ped&""
RecordSet1.Open SQL2, oConn

sql3 = "delete * FROM previo_detalle_pedido where id_pedido = "&ped&" "
set rs3 = oConn.execute(sql3)

sql4 = "delete * FROM previo_pedido where id_pedido = "&ped&" "
set rs4 = oConn.execute(sql4)
response.redirect "pendientes.asp"
End if
end if




<table border=1>
<tr>
<td>
solo se que no se nada.
el que persevera alcanza.
by sonneman</td>
</tr>
</table>

[DanielRey]

Hola Sonneman :)

Tenés un error de anidamiento.

while (not objRS4.Eof)
if rs2(&quot;id_pedido&quot;) &gt;= total_actual then
wend
End if

Lo correcto es:
While
If
End If
Wend
o sino:
If
While
Wend
End If

Suerte ;)

<table><tr><td><IMG src=banderas/argentina.gif></td><td><small>Alta en el cielo, un águila guerrera<br>audaz se eleva, en vuelo triunfal.<br>Azul un ala, del color del cielo.<br>Azul un ala, del color del mar.</small></td></tr></table>