Ver Mensaje Individual
  #11 (permalink)  
Antiguo 22/06/2011, 08:27
caiati
 
Fecha de Ingreso: abril-2011
Mensajes: 18
Antigüedad: 13 años
Puntos: 0
Respuesta: error '80040e14'

GRACIAS POR CONTESTAR PERO MIRA TE MANDO TODO LO QUE SE REFIERE A ESTE ARCHIBO, por que poniendolo así;


set Con = server.Createobject("ADODB.Connection")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & path & "\gestion.mdb;"
Set rs=Server.CreateObject("ADODB.Recordset")

ope=request.QueryString("ope")
code=request.QueryString("code")

if ope="quitar" then
ro.Open "DELETE FROM detalles_pedidos WHERE cod_pedido=" & cod_pedido & " and cod_articulo=" & code , Conexpedidos, 2, 2
end if
if ope="calcular" and isnumeric(request.Form("tcantidad")) then
ro.Open "UPDATE detalles_pedidos SET Cantidad=" & request.Form("tcantidad") & " WHERE cod_pedido=" & cod_pedido & " and cod_articulo=" & code , Conexpedidos, 2, 2

ro.Open "UPDATE detalles_pedidos SET total=detalles_pedidos.cantidad*detalles_pedidos.p recio WHERE cod_pedido=" & cod_pedido & " and cod_articulo=" & code , Conexpedidos, 2, 2
end if

', total=detalles_pedido.cantidad*detalles_pedido.pre cio

codigo_articulo=request.QueryString("cod")
if codigo_articulo<>0 then
rs.open "select * from articulos where codigo=" & request.QueryString("cod") , Con, 2, 2
variable = "TALLA: " & request.form("talla") & CHR(13) & "COLOR: " & request.form("color") & CHR(13) & "COPA: " & request.form("copa") & " ")

INSERT INTO
DETALLES_PEDIDOS (COD_PEDIDO, DESCRIPCION, CANTIDAD, PRECIO, TOTAL, COD_ARTICULO, FAMILIA) VALUES (" & cod_pedido & ",'" & rs("descripcion") & "',1," & rs("pvp1") & "," & rs("pvp1") & "," & rs("codigo") & ",'"&variable&"')
, Conexpedidos, 2, 2
rs.close




end if



%>
<table width="513" border="1" align="center">
<tr bgcolor="#FF99CC">
<td colspan="6"><div align="center" class="style11">
<p>&nbsp;</p>
<p>PEDIDO ACTUAL </p>
<p>&nbsp;</p>
</div></td>
</tr>
<tr bgcolor="#FF99CC">
<td width="138"><div align="center"><strong><span class="style9">Imagen</span></strong></div></td>
<td width="88"><div align="center" class="style10">
<div align="center">Modelo</div>
</div></td>
<td width="62"><div align="center" class="style10">
<div align="center">Cantidad</div>
</div></td>
<td width="74"><div align="center" class="style10">
<div align="center">Precio/Ud. </div>
</div></td>
<td width="62"><div align="center" class="style10">
<div align="center">Total</div>
</div></td>
<td width="49"><div align="center"><strong>¿Quitar?</strong></div></td>
</tr>
<%
ro.Open "select * from detalles_pedidos where cod_pedido=" & cod_pedido , Conexpedidos, 2, 2
DO UNTIL RO.EOF
%>
<tr>
<td><div align="center"><img src="mostrarfoto.asp?id=<%=rO("cod_ARTICUlO")%>" width="138" height="169" /></div></td>
<td><div align="left"><%=ro("descripcion") & chr(13) & RO("FAMILIA")%></div></td>
<td><form id="form3" method="post" action="aniadir.asp?ope=calcular&amp;code=<%=ro("c od_articulo")%>">
<div align="center">
<input name="tCantidad" type="text" id="tCantidad" value="<%=RO("CANTIDAD")%>" size="5" maxlength="3" />
</div>
<label>
<div align="center">
<input type="submit" name="Submit3" value="Calcular" />
</div>
</label>
</form> </td>
<td><div align="center"><%=rO("PRECIO")%>€</div></td>
<td><div align="center"><%=rO("TOTAL")%>€</div></td>
<td><form id="form2" method="post" action="aniadir.asp?ope=quitar&code=<%=ro("cod_art iculo")%>">
<label>
<input type="submit" name="Submit2" value="Quitar" />
</label>
<a href="aniadir.asp?ope=quitar&amp;code=<%=ro("cod_a rticulo")%>"></a>
</form> </td>
</tr>
<%
RO.MOVENEXT
LOOP
%>
<% ro.close
ro.Open "select sum(total) as t from detalles_pedidos where cod_pedido=" & cod_pedido, Conexpedidos, 2, 2

importe=ro("t")
ro.close
' response.write "imp" & importe
%>
<tr>
<td colspan="3" rowspan="3">&nbsp;</td>
<td height="23" bgcolor="#FF99CC"><div align="right"><strong>SubTotal :</strong></div></td>
<td colspan="2" bgcolor="#FF99CC"><div align="right"><%=importe%> €</div></td>
</tr>
<tr>
<td height="23" bgcolor="#FF99CC"><div align="right"><strong>Portes :</strong></div></td>
<td colspan="2" bgcolor="#FF99CC"><div align="right">
<%if importe>60 then
portes=0
else
portes=9
end if
response.write portes & " €"
%>

</div></td>
</tr>
<tr>
<td height="25" bgcolor="#FF99CC"><div align="right"><strong>TOTAL :</strong></div></td>
<td colspan="2" bgcolor="#FF99CC"><div align="right"><%=portes+importe%> €</div></td>
</tr>
</table>
<% if importe<>"" then ro.Open "UPDATE pedidos SET total=" & importe+portes & " WHERE codigo=" & cod_pedido, Conexpedidos, 2, 2
%>
<p>&nbsp;</p>
<form name="form1" id="form1" method="post" action="controlpedidos.asp?cod_pedido=<%=cod_pedid o%>">
<table width="514" border="0" align="center">
<tr>
<td colspan="5"><div align="left">
<p><strong><em>CONFIRMAR PEDIDO: </em></strong></p>
<p>&nbsp;</p>
<p align="justify">A continuaci&oacute;n puede confirmar el pedido realizado, siendo las dos formas de pago: Transferencia Bancaria o PayPal. En cuanto haga click en confirmar pedido recibir&aacute; un email en un periodo no superior a 24 horas para la confirmaci&oacute;n del mismo. </p>
<p align="justify">&nbsp;</p>
<p align="justify"><span class="Estilo1">!ATENCION! Para hacer la recogida en tienda es imprescindible presentar la hoja de pedido que se puede imprimir una vez efectuado el pago por transferencia bancaria o Paypal. </span></p>
<p>&nbsp;</p>
<p align="justify">Ahora seleccione una de las dos formas de pago y si lo va a rocoger en tienda para ahorrarse gastos de envio. </p>
<p>&nbsp;</p>
</div></td>
</tr>
<tr>
<td width="10">&nbsp;</td>
<td width="17">&nbsp;</td>
<td width="17">&nbsp;</td>
<td width="182">&nbsp;</td>
<td width="254" style="font-weight: bold"><input name="radiobutton" type="radio" value="Transferencia" checked="checked" />
Transferencia Bancaria </td>
</tr>
<tr>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td><p>
<input name="radiobutton" type="radio" value="PayPal" />
<span class="paypal">PayPal</span></p>
<p>&nbsp;</p></td>
</tr>
<tr>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td style="font-weight: bold"> <label>
<input name="checkbox" type="checkbox" value="checkbox" />
</label>
Recogida En Tienda (Portes 0&euro;)</td>
</tr>
<tr>
<td height="45" colspan="5"><div align="center">
<input type="submit" name="Submit" value="Confirmar Pedido" />
</div></td>
</tr>
</table>
</form>




<p>&nbsp;</p>
<p align="center">
<%


else
%>
</p>
<p align="center"> <span class="style13">Para poder hacer un pedido necesitas acceder al panel.</span></p>
<h2 align="center">&nbsp;</h2>
<h2 align="center"><a href="pedido.asp" class="style14" style="font-weight: bold; font-style: italic; font-size: 24px; text-align: center;">Haz click aqu&iacute;</a> </h2>
<h2 align="center">&nbsp;</h2>
<h2 align="center">&nbsp;</h2>
<h2 align="center">
<%
end if
%>
</h2>
<p>&nbsp;</p>
<p>&nbsp;</p>
</div>
<div class="left">

<%if request.querystring("id_familia")<>"" then
cat_expand=request.querystring("id_familia")
end if %>

<%
rs.Open "select * from familias_master order by Descripcion" , Con, 2, 2
%>
<h2>&nbsp;</h2>
<table width="165" border="0">
<tr>
<td width="8">&nbsp;</td>
<td width="133"><strong>Productos: </strong></td>
</tr>
<tr>
<td>&nbsp;</td>
<td><table width="142" border="0">
<tr>
<%do until rs.eof%>
<td width="12"><a href="index.asp?id_familia=<%=rs("codigo")%>"><img src="GRFX/mas.gif" width="9" height="9" /></a></td>
<td width="114"><%=rs("descripcion")%></td>
</tr>


<%if cint(cat_expand)=rs("codigo") then
set rs2 = CreateObject("ADODB.Recordset")
sqltxt2="Select * from familias where familia_master='"& rs("descripcion") & "' order by descripcion"
rs2.Open sqltxt2, con
do until rs2.EOF%>
<tr><td>&nbsp;</td><td>
<a href="resultados.asp?id_familia=<%=rs2("codigo")%> ">
<font class="verdana10" color="#0000FF">
<img border="0" src="GRFX/FLECHA.GIF"><%=rs2("descripcion")%></font></a></td></tr>
<%rs2.movenext
loop


end if%>











<% rs.movenext
loop %>
</table></td>
</tr>
</table>
<p>&nbsp;</p>
</div>

<div style="clear: both;"> </div>

</div>

<div id="footer">
<a href="condiciones.asp">Ver Condiciones Generales</a> - Todos los derechos Reservados - Copyright 2011 Confecciones Amparo - TLF: 636 724 180
</div>

<div id="bottom"> </div>

</div>

</body>
</html>


ME SALIÓ ESTO;

Una pagina en blanco diciendo esto:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/aniadir.asp, line 110

variable = "TALLA: " & request.form("talla") & CHR(13) & "COLOR: " & request.form("color") & CHR(13) & "COPA: " & request.form("copa") & " ")