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>