Foros del Web - Ver Mensaje Individual

Essftg · #1 (**permalink**) 02/08/2005, 03:03

Hola tengo este codigo y necesito q cada vez q yo haga una peticion me salga las cantidades de esa talla.
Es decir yo pongo una busqueda de producto y me sale;

Referencia: 05PV001JT
Color: AQUA

Talla S (38) -->Meter un cuadro de la base de datos para meter la cantidad

Talla M (40)-->Meter un cuadro de la base de datos para meter la cantidad

Talla L (42)-->Meter un cuadro de la base de datos para meter la cantidad
pero tambien tengo otras tallas q no salen y los cuadros estos no quiero q salgan.

A ver si me podeis ayudar. ya se q es enrevesado pero si hace falta os hago el diagrama de como funcionaria con los campos de la base de datos.
el codigo es el siguiente;

-------------------------------
<body bgcolor="#ffffff" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" text="#808080">
<basefont face="Verdana" size="2">

<hr color="#CCCCCC" size="1" noshade>

<table border="0" bgcolor="#FFFFFF" cellpadding="0" cellspacing="0" width="625">
<tr>
<td width="128" height="507" align="center" valign="top">
<table border="0" cellspacing="4" cellpadding="4" width="125">
<tr>
<td width="128" bgcolor="#FFFFFF"> </td>
</tr>
</table>
<td width="1" bgcolor="#000000"><img src="/imagenes/spacer.gif" width="1" height="1" alt border="0"></td>
<td align="left" valign="top"><table width="700" border="0" cellpadding="4" cellspacing="4">
<tr><td width="840" height="454">
<div align="left">
<%
Dim con,rs,sql,datos

datos= Server.MapPath ( "tienda.mdb " )

' Creamos el objeto para la conexion y la abrimos

Set con= Server.CreateObject("ADODB.connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source="& datos &";"
sql= "SELECT * FROM stock"

Set rsProdInfo = Con.Execute("SELECT * FROM " & "stock where productid=" & intProdID)
if rsProdInfo.EOF then
Response.Write "stock numero " & intProdID & _
" No existe."
else
strName = rsProdInfo("catalogname")
strDesc = rsProdInfo("referncia")
strDesc01 = rsProdInfo("color")
strImage = rsProdInfo("productImg")
strTalla0 = rsProdInfo("txttalla00") -->seria tallaXS
strTalla1 = rsProdInfo("txttalla01") -->seria tallaS
strTalla2 = rsProdInfo("txttalla02") -->seria tallaL
strTalla3 = rsProdInfo("txttalla03")
strTalla4 = rsProdInfo("txttalla04")
strTalla5 = rsProdInfo("txttalla05")
strTalla6 = rsProdInfo("txttalla06")
strTalla7 = rsProdInfo("txttalla07")
strTalla8 = rsProdInfo("txttalla08")
strTalla9 = rsProdInfo("txttalla09")
strTalla10 = rsProdInfo("txttalla10")
strTalla11 = rsProdInfo("txttalla11")
strTalla12 = rsProdInfo("txttalla12")
strTalla13 = rsProdInfo("txttalla13")
strTalla14 = rsProdInfo("txttalla14")
strTalla15 = rsProdInfo("txttalla15")
strTalla16 = rsProdInfo("txttalla16")
strTalla17 = rsProdInfo("txttalla17")
intPrice = rsProdInfo("precio")
%>
</div>

<form action="addToCart.asp" method="post" id="form1" name="form1">
 <%= strName %>

<table width="1022" height="257" border="0" cellpadding="2" cellspacing="0">
<tr>
<td width="42"><img src="<%= strImage %>" align="top">
<td width="484"><table width="418" border="0">
<tr>
</tr>
<tr>
<th width="102" scope="col"><div align="left">Referencia: </div></th>
<td width="306" scope="col"><%= strDesc %></td>
</tr>
<tr>
<th height="20" scope="col"><div align="left">Color: </div></th>
<td scope="col"><%= strDesc01 %></td>
</tr>
<tr>
<td scope="col">
<%= strTalla0 %> 
</td>
<td scope="col"><input type="text" name="textfield"></td>
</tr>
<tr>
<td scope="col"><%= strTalla9 %> </td>
<td scope="col"> </td>
</tr>
<tr>
<td scope="col">
<%= strTalla1 %> 

</td>
<td rowspan="2" scope="col"> </td>
</tr>
<tr>
<td scope="col"><%= strTalla10 %></td>
</tr>
<tr>
<td scope="col">
<%= strTalla2 %> 

</td>
<td rowspan="2" scope="col"> </td>
</tr>
<tr>
<td scope="col"><%= strTalla11 %></td>
</tr>
<tr>
<td scope="col">
<%= strTalla3 %> 

</td>
<td rowspan="2" scope="col"> </td>
</tr>
<tr>
<td scope="col"><%= strTalla12 %></td>
</tr>
<tr>
<td scope="col">
<%= strTalla4 %> 

</td>
<td rowspan="2" scope="col"> </td>
</tr>
<tr>
<td scope="col"><%= strTalla13 %></td>
</tr>
<tr>
<td scope="col">
<%= strTalla5 %> 

</td>
<td rowspan="2" scope="col"> </td>
</tr>
<tr>
<td scope="col"><%= strTalla14 %></td>
</tr>
<tr>
<td scope="col">
<%= strTalla6 %> 

</td>
<td rowspan="2" scope="col"> </td>
</tr>
<tr>
<td scope="col"><%= strTalla15 %></td>
</tr>
<tr>
<td scope="col">
<%= strTalla7 %> 

</td>
<td rowspan="2" scope="col"> </td>
</tr>
<tr>
<td scope="col"><%= strTalla16 %></td>
</tr>
<tr>
<td scope="col">
<%= strTalla8 %> 

</td>
<td rowspan="2" scope="col"> </td>
</tr>
<tr>
<td scope="col"><%= strTalla17 %></td>
</tr>
</table>
 
</td>
<tr></tr>
</table>

<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td align="center"> 
Añadir
<input type="text" size="3" name="intQuant" value="1" onChange="HandleError(this)">
a mi orden. 
<input type="submit" value="Añadir al Carro" id="submit1" name="submit1">
 
<a href="reviewOrder.asp" OnMouseOver="test3.src='/imagenes/btnDown_ck.gif'" OnMouseOut="test3.src='/imagenes/btnUp_ck.gif'"><img SRC="imagenes/btnUp_ck.gif" alt="Ver la Orden y/o Compruebala" BORDER="0" NAME="test3" WIDTH="264" HEIGHT="20"></a>
</td>
<td align="center" valign="middle" nowrap>Precio: <%= formatNumber(intPrice, 2) %> € </td>
</tr>
</table>
</form>

<%
end if
rsProdInfo.Close
set rsProdInfo = Nothing

Con.Close
set Con = Nothing
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<hr color="#CCCCCC" size="1" noshade>

<table border="0" cellpadding="0" cellspacing="6" width="100%">
<tr>
<td colspan="3" valign="BOTTOM">

Última actualización hoy 
</td>
<td colspan="3" align="right" valign="TOP"> 
</td>
</tr>
</table>
</body>
</html>