ASP - problema con la tienda

 
Vista:

problema con la tienda

Publicado por Asier (3 intervenciones) el 22/07/2008 11:23:34
no consigo que reste del stock la cantidad que el cliente compra
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>TIENDA</title>
<link href="tienda.css" rel="stylesheet" type="text/css" />
<script type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers.document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_showHideLayers() { //v6.0
var i,p,v,obj,args=MM_showHideLayers.arguments;
for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args))!=null) { v=args[i+2];
if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
obj.visibility=v; }
}
//-->
</script>
</head>
<body>
</script>
<script type="text/javascript" src="Js/relojdhtml.js"></script>
<link rel="stylesheet" href="Css/estiloindex.css" type="text/css">
</head>
<body onload="mueveReloj()">
<a href="../Index.html" target="_blank"></a>
<br>
<script language="JavaScript" type="text/javascript">
MostrarFecha();

</script>
</body>
</html>
<div id="Layer4" onfocus="MM_showHideLayers('Layer4','','hide','Layer1','','hide','Layer2','','hide','Layer3','','hide');MM_showHideLayers('Layer4','','show','Layer2','','hide','Layer3','','hide')">si tienes alguna duda llama al o al fax 941232323 si prefieres por e-mail mi e-mail [email protected] y la direccion... <a href="marco1.html" target="_parent">atras</a></div>
<div id="Layer1">
<p onfocus="MM_showHideLayers('Layer1','','show')">
<form action="validarusu.asp" method="post">
<label>
usuario
</label>
<input type="text" name="usuario">
<label> password</label>
<input type="password" name="password" />
<label>
<input type="submit" name="Submit2" value="Entrar" />
</label>
</p>
<a href="marco1.html" target="_parent">atras</a>
</form>
</div>
<a href="marco_central" target="_parent"></a> </div>
<p> </p>
<th scope="row"> </th>
<td> </td>
<td> </td>
</tr>
<tr>
<th colspan="2" scope="row"> </th>
<th scope="row"> </th>
</tr>
</table>
<label></label>
<label></label>
<div id="Layer6">
<html>
<head>
<meta http-equiv="Content-Language" content="es">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<form method="post" action="dar_alta.asp">
<p>codcli <input type="text" name="codcli" size="20"></p>
<p>Nombre <input type="text" name="Nombre" size="20"></p>
<p>Direccion <input type="text" name="Direccion" size="20"></p>
<p>cp; <input type="text" name="cp" size="20"></p>
<p>localidad; <input type="text" name="localidad" size="20"></p>
<p>provincia; <input type="text" name="provincia" size="20"></p>
<p>telefono; <input type="text" name="telefono" size="20"></p>
<p>fax; <input type="text" name="fax" size="20"></p>
<p>cc; <input type="text" name="cc" size="20"></p>
<p>dni; <input type="text" name="dni" size="20"></p>
<br>
<p align="center">
<input type="submit" value="Enviar" name="Enviar" />

<input type="reset" value="Limpiar" name="B2" />

</form>
</body>
</html>
<p align="center"><a href="marco1.html"><a href="marco1.html" target="_parent">atras</a> </div>
</p>
</div>
<p align="center"> </p>
<p> </p>
<div id="Layer3">
<form method=post action="factura.asp" >
<%
SET COMANDO=SERVER.CREATEOBJECT("ADODB.COMMAND")
SET articulos=SERVER.CREATEOBJECT("ADODB.RECORDSET")
COMANDO.ACTIVECONNECTION="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents and SettingsuserMis documentosclientes.mdb;Persist Security Info=False"
COMANDO.COMMANDTEXT="SELECT * FROM articulos"
COMANDO.COMMANDTYPE=1
SET articulos=COMANDO.EXECUTE
%>
<CENTER>
<table border="2">
<h1>Catalogo
</h1>
<br>
<br>
<tr>
<td>codart</td>
<td>nombre</td>
<td>descripcion</td>
<td>pvp</td>
<td>cantidad</td>
<td>peso</td>
</tr>
<%
WHILE NOT articulos.EOF
I=0
%>
<tr>
<td><%=articulos("codart")%></td>
<td><%=articulos("nombre")%> </td>
<td><%=articulos ("descripcion")%></td>
<td><%=articulos("pvp")%></td>
<td><center> <select size="1" name="<%=articulos("nombre")%>">
<%
i=0
while I <= cdbl(articulos("cantidad"))
%>
<option> <%=i%> </option>

<%i=i+1
wend
%>
</select></center></td>
<td><%=articulos("peso")%></td>
</tr>
<%
ARTICULOS.MOVENEXT
WEND
%>
</TABLE>
<a href="marco1.html" target="_parent">atras</a>
</CENTER>
</form>
</div>
<p onfocus="MM_showHideLayers('Layer1','','hide','Layer2','','hide','Layer3','','hide','Layer4','','hide');MM_showHideLayers('Layer4','','hide','Layer1','','hide','Layer6','','show','Layer3','','hide')"> </p>
</body>
</html>
__________________________________________________________
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento sin título</title>
</head>
<body>
<%
set ariculos=server.createobject("adodb.recordset")
Set Comando=Server.createobject("adodb.command")
Comando.activeconnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents and SettingsuserMis documentosclientes.mdb;Persist Security Info=False"

Comando.commandtext= "select * from articulos" 'meto la instrucción sql que quiera
Comando.commandtype=1 'esto es asi siempre
Set articulos=Comando.execute 'cargo la instruccion en la variable miarticulo

%>
<font class="tabla">
<table align="center" border="1">
<tr align="center">
<th>Productos</th>
<th>Cantidad</th>
<th>Precio</th>
</tr>
<%
i=0
WHILE NOT articulos.EOF
cantidad1=""&articulos("nombre")
cantidad=request.Form(cantidad1)
if cantidad<>0 then%>
<tr>
<td> <%=articulos("nombre")%> </td>
<td> <%response.Write(cantidad)%></td>
<td><%=articulos("pvp")%>?</td>
<%vallinea=cantidad*articulos("pvp")
response.Write(vallinia)
suma=suma+vallinea%>

</tr>
<% end if
ARTICULOS.MOVENEXT
WEND
session("cont")=i
%>
</TABLE>
<%response.Write("total; "&suma)%>?
<table>
<tr>
<td><form action="carrito.asp" method="post">
<input name="confirmar" type="submit" value="confirmar" />
</form></td>
<td><form action="cliente.asp" method="post" target="contenido">
<input name="rechazar" type="submit" value="rechazar" />
</form></td>
</tr>
</table>
<%set ariculos=server.createobject("adodb.recordset")
Set Comando=Server.createobject("adodb.command")
Comando.activeconnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents and SettingsuserMis documentosclientes.mdb;Persist Security Info=False"

Comando.commandtext= "select * from ventas" 'meto la instrucción sql que quiera
Comando.commandtype=1 'esto es asi siempre
Set articulos=Comando.execute 'cargo la instruccion en la variable miarticulo
comando.commandtext="update ventas set cantidad='" & cantidad1 & "';"
%>
</font>
</body>
</html>
__________________________________________________________
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento sin título</title>
</head>
<body>
<% set miclientes=server.createobject("adodb.recordset")'meto la tabla en la variabla miarticulos
Set Comando=Server.createobject("adodb.command")'le mando el comando que quiero que haga
Comando.activeconnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents and SettingsuserMis documentosclientes.mdb;Persist Security Info=False" 'cadena de conexion
set miarticulos=server.createobject("adodb.recordset")'meto la tabla en la variabla miarticulos
Set Comando=Server.createobject("adodb.command")'le mando el comando que quiero que haga
Comando.activeconnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents and SettingsuserMis documentosclientes.mdb;Persist Security Info=False" 'cadena de conexion
Comando.commandtext= "select * from articulos" 'meto la instrucción sql que quiera
Comando.commandtype=1 'esto es asi siempre
Set miarticulos=Comando.execute 'cargo la instruccion en la variable miarticulo
set miarticulos=server.createobject("adodb.recordset")'meto la tabla en la variabla miarticulos
Set Comando=Server.createobject("adodb.command")'le mando el comando que quiero que haga
Comando.activeconnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents and SettingsuserMis documentosclientes.mdb;Persist Security Info=False" 'cadena de conexion
Comando.commandtext= "select * from ventas" 'meto la instrucción sql que quiera
Comando.commandtype=1 'esto es asi siempre
Set miarticulos=Comando.execute 'cargo la instruccion en la variable miarticulo
micont=session("cont")
i=0
cantidad1=response.Write("cantidad")
while i<micont
if cantidad1<>0 then
resta=micantidad-cantidad1
comando.commandtext="update Articulos set cantidad='" & resta & "' where Nombre='" & miproducto & "';"
Comando.Execute
End If
i=i+1
wend%>
</body>
</html>

gracias por ayudarme.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:problema con la tienda

Publicado por weirdmix (210 intervenciones) el 22/07/2008 22:37:04
para empezar tienes un revoltijo tremendo con las etiquetas html
si son 2 paginas las q usas entonces no esta nada bien tu codigo, echame un mail para ayudarte porq asi va a ser mas rapido...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:problema con la tienda

Publicado por asier (3 intervenciones) el 23/07/2008 11:02:35
[email protected]
(ese era mi objetivo si hay voluntarios mandarles toda via mail)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:problema con la tienda

Publicado por Asier (3 intervenciones) el 23/07/2008 11:10:06
pero necesito tu mail para mandartelo
ponlo aqui si no te importa o sino por mail
gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar