Foros del Web » Programando para Internet » ASP Clásico »

error '80040e14'

Estas en el tema de error '80040e14' en el foro de ASP Clásico en Foros del Web. Buenos dias, haber si alguien me podria ayudar, tengo una web para la venta de articulos y he cambiado de servidor, y desde que estoy ...
  #1 (permalink)  
Antiguo 20/06/2011, 04:23
 
Fecha de Ingreso: abril-2011
Mensajes: 18
Antigüedad: 11 años, 3 meses
Puntos: 0
error '80040e14'

Buenos dias, haber si alguien me podria ayudar, tengo una web para la venta de articulos y he cambiado de servidor, y desde que estoy en el nuevo servidor hay articulos que se pueden añadir a la cesta y otros no, me da el error:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Number of query values and destination fields are not the same.

/aniadir.asp, line 110


He dado permisos a los archibos BD, no se que hacer, QUISIERA POR FABOR que alguien me ayudara, no estoy muy puesto en esto. GRACIAS.
  #2 (permalink)  
Antiguo 20/06/2011, 07:15
Avatar de mc_quake  
Fecha de Ingreso: enero-2006
Ubicación: www.ecocargo.cl
Mensajes: 683
Antigüedad: 16 años, 7 meses
Puntos: 8
Respuesta: error '80040e14'

estas haciendo un update verdad?,

ya que el numero de campos a actualizar no corresponde con el numero de valores por campo revisa tu codigo o ponlo en el foro para verlo
__________________
Mc_Quake

Para ayudar en lo que se pueda:Zzz:
  #3 (permalink)  
Antiguo 20/06/2011, 08:14
 
Fecha de Ingreso: abril-2011
Mensajes: 18
Antigüedad: 11 años, 3 meses
Puntos: 0
Respuesta: error '80040e14'

Gracias por contestar, mira no entiendo mucho pero bueno esto es lo que me dices que publique?


path=Server.MapPath("./")
set Conexion = server.Createobject("ADODB.Connection")
Conexion.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & path & "\bd.mdb;"
Set resultado=Server.CreateObject("ADODB.Recordset")
resultado.Open "select * from configuracion" , Conexion, 2, 2
pie=resultado("pie_pagina")


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

%>
<title>Añadir Pedido - CONFECCIONES AMPARO</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<link rel="stylesheet" type="text/css" href="style.css" media="screen" />
<link rel="alternate" type="application/rss+xml" title="RSS 2.0" href="rss-articles/" />
<style type="text/css">
<!--
.style9 {font-size: 9px}
.style10 {font-size: 9px; font-weight: bold; }
.style11 {
font-size: 16px;
font-weight: bold;
}
.style13 {font-size: 16px; font-weight: bold; color: #FF00FF; }
.style14 {
color: #F3F
}
.Estilo1 {color: #FF0000}
-->
</style>
</head>
<body>

<div id="wrap">

<div id="top"> </div>

<div id="header">
<h1>&nbsp;</h1>
</div>

<div id="menu">
<ul>
<%
resultado.close
resultado.Open "select * from menu order by posicion"
do until resultado.eof
%>
<li><a href="<%=resultado("url")%>"><%=resultado("idmenu" )%></a></li>
<%
resultado.movenext
loop
resultado.close
%>
</ul>
</div>

<div id="content">

<div class="right">

<%



if session("usuario")<>"" then
path=Server.MapPath("./")
set ConexPedidos = server.Createobject("ADODB.Connection")
ConexPedidos.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & path & "\pedidos.mdb;"
Set ro=Server.CreateObject("ADODB.Recordset")
ro.Open "select * from pedidos where usuario='" & session("usuario") & "' and estado<>'CERRADO'" , Conexpedidos, 2, 2
if ro.eof then
ro.close
ro.Open "INSERT INTO PEDIDOS (USUARIO, TOTAL, ESTADO) VALUES ('" & SESSION("USUARIO") & "',0,'ABIERTO')" , Conexpedidos, 2, 2
ro.Open "select * from pedidos where usuario='" & session("usuario") & "' and estado<>'CERRADO'" , Conexpedidos, 2, 2
cod_pedido=ro("codigo")
ro.close
else
cod_pedido=ro("codigo")
ro.close
end if

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
ro.Open "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") & ",'TALLA: " & request.form("talla") & CHR(13) & "COLOR: " & request.form("color") & CHR(13) & "COPA: " & request.form("copa") & "')" , Conexpedidos, 2, 2
rs.close



Lo de color rojo supuestamente es la line 110. Gracias
  #4 (permalink)  
Antiguo 20/06/2011, 16:34
 
Fecha de Ingreso: abril-2011
Mensajes: 18
Antigüedad: 11 años, 3 meses
Puntos: 0
Respuesta: error '80040e14'

Por favor haber si alguien me puede solucionar el problemas, me estoy volviendo loco.
  #5 (permalink)  
Antiguo 20/06/2011, 17:51
Avatar de mc_quake  
Fecha de Ingreso: enero-2006
Ubicación: www.ecocargo.cl
Mensajes: 683
Antigüedad: 16 años, 7 meses
Puntos: 8
Respuesta: error '80040e14'

mira recominedo que hagas esto

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

y luego la ese asi


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&"')

prueba eso y comentas
__________________
Mc_Quake

Para ayudar en lo que se pueda:Zzz:
  #6 (permalink)  
Antiguo 21/06/2011, 02:20
 
Fecha de Ingreso: abril-2011
Mensajes: 18
Antigüedad: 11 años, 3 meses
Puntos: 0
Respuesta: error '80040e14'

Gracias por contestar MC_Quake estoy echo un lio, haber que lo tengo que poner así:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<%
path=Server.MapPath("./")
set Conexion = server.Createobject("ADODB.Connection")
Conexion.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & path & "\bd.mdb;"
Set resultado=Server.CreateObject("ADODB.Recordset")
resultado.Open "select * from configuracion" , Conexion, 2, 2
pie=resultado("pie_pagina")


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

%>
<title>Añadir Pedido - CONFECCIONES AMPARO</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<link rel="stylesheet" type="text/css" href="style.css" media="screen" />
<link rel="alternate" type="application/rss+xml" title="RSS 2.0" href="rss-articles/" />
<style type="text/css">
<!--
.style9 {font-size: 9px}
.style10 {font-size: 9px; font-weight: bold; }
.style11 {
font-size: 16px;
font-weight: bold;
}
.style13 {font-size: 16px; font-weight: bold; color: #FF00FF; }
.style14 {
color: #F3F
}
.Estilo1 {color: #FF0000}
-->
</style>
</head>
<body>

<div id="wrap">

<div id="top"> </div>

<div id="header">
<h1>&nbsp;</h1>
</div>

<div id="menu">
<ul>
<%
resultado.close
resultado.Open "select * from menu order by posicion"
do until resultado.eof
%>
<li><a href="<%=resultado("url")%>"><%=resultado("idmenu" )%></a></li>
<%
resultado.movenext
loop
resultado.close
%>
</ul>
</div>

<div id="content">

<div class="right">

<%



if session("usuario")<>"" then
path=Server.MapPath("./")
set ConexPedidos = server.Createobject("ADODB.Connection")
ConexPedidos.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & path & "\pedidos.mdb;"
Set ro=Server.CreateObject("ADODB.Recordset")
ro.Open "select * from pedidos where usuario='" & session("usuario") & "' and estado<>'CERRADO'" , Conexpedidos, 2, 2
if ro.eof then
ro.close
ro.Open "INSERT INTO PEDIDOS (USUARIO, TOTAL, ESTADO) VALUES ('" & SESSION("USUARIO") & "',0,'ABIERTO')" , Conexpedidos, 2, 2
ro.Open "select * from pedidos where usuario='" & session("usuario") & "' and estado<>'CERRADO'" , Conexpedidos, 2, 2
cod_pedido=ro("codigo")
ro.close
else
cod_pedido=ro("codigo")
ro.close
end if

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&"')TALLA: " & request.form("talla") & CHR(13) & "COLOR: " & request.form("color") & CHR(13) & "COPA: " & request.form("copa") & ""), 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">


Quisiera que me echaras un cable por favor, GRACIAS.
  #7 (permalink)  
Antiguo 21/06/2011, 02:23
 
Fecha de Ingreso: abril-2011
Mensajes: 18
Antigüedad: 11 años, 3 meses
Puntos: 0
Respuesta: error '80040e14'

Lo raro, o sera para mi, MC_Quakei, es que algunos productos me los deja comprar pero la mayoria no.
  #8 (permalink)  
Antiguo 21/06/2011, 08:21
 
Fecha de Ingreso: abril-2011
Mensajes: 18
Antigüedad: 11 años, 3 meses
Puntos: 0
Respuesta: error '80040e14'

ayudadme por favor. Solo pido una solucion para este error, no tengo mucho conocimiento de ASP. Gracias.
  #9 (permalink)  
Antiguo 22/06/2011, 02:04
 
Fecha de Ingreso: abril-2011
Mensajes: 18
Antigüedad: 11 años, 3 meses
Puntos: 0
Respuesta: error '80040e14'

Buenos dias, No hay nadie por hay para este tipo de problema????????????????
  #10 (permalink)  
Antiguo 22/06/2011, 08:00
Avatar de mc_quake  
Fecha de Ingreso: enero-2006
Ubicación: www.ecocargo.cl
Mensajes: 683
Antigüedad: 16 años, 7 meses
Puntos: 8
Respuesta: error '80040e14'

revisa el codigo que te mande antes lo pusiste mal lo dejaste todo junto y no es asi
__________________
Mc_Quake

Para ayudar en lo que se pueda:Zzz:
  #11 (permalink)  
Antiguo 22/06/2011, 08:27
 
Fecha de Ingreso: abril-2011
Mensajes: 18
Antigüedad: 11 años, 3 meses
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") & " ")
  #12 (permalink)  
Antiguo 23/06/2011, 02:30
 
Fecha de Ingreso: abril-2011
Mensajes: 18
Antigüedad: 11 años, 3 meses
Puntos: 0
Respuesta: error '80040e14'

Buenos días de nuevo, Haber una ayuda por favor. Gracias
  #13 (permalink)  
Antiguo 24/06/2011, 12:11
 
Fecha de Ingreso: abril-2011
Mensajes: 18
Antigüedad: 11 años, 3 meses
Puntos: 0
Respuesta: error '80040e14'

Cita:
Iniciado por mc_quake Ver Mensaje
mira recominedo que hagas esto

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

y luego la ese asi


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&"')

prueba eso y comentas

Última edición por caiati; 24/06/2011 a las 12:13 Razón: no entiendo como se hace por favor
  #14 (permalink)  
Antiguo 24/06/2011, 12:15
 
Fecha de Ingreso: abril-2011
Mensajes: 18
Antigüedad: 11 años, 3 meses
Puntos: 0
Respuesta: error '80040e14'

No entiendo como se hace por favor......
  #15 (permalink)  
Antiguo 27/06/2011, 04:14
 
Fecha de Ingreso: abril-2011
Mensajes: 18
Antigüedad: 11 años, 3 meses
Puntos: 0
Respuesta: error '80040e14' por favor

Buenos dias no se si hay alguien que me heche una mano, para este problema que detallé al principio, lo raro es que deje comprar algunos productos y otros no.´
gracias.

Etiquetas: Ninguno
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 14:34.