Foros del Web - Ver Mensaje Individual - Busco programa para crear un catálogo de productos.

El_Metallick · #10 (**permalink**) 03/05/2005, 15:39

combo.asp

Código:

<html>
<head>
<title>Combos combinados</title>

<script language = "JavaScript">

 

<%'CONSULTA PARA OBTENER LOS DATOS
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\database\hard.mdb"))

 

productos_Sql = "Select distinct familia, codigo, denominacion from articulos "
 set rs = CreateObject("ADODB.Recordset")
 rs.Open productos_Sql, Conn
x=0
%>

// FUNCION DE COMBO BOX COMBINADO

function sublist(inform, selecteditem)
 {
 inform.subcatagory.length = 0

 <%
  count= 0
  y=0
  do while not rs.eof
 %>

 x = <%= trim(y) %>;

 subcat = new Array();
 subcatagorys = "<%=(rs("codigo"))&" "&(rs("denominacion")) %>";
 subcatagoryof = "<%=(rs("familia"))%>";
 subcatagoryid = "<%=(rs("codigo"))%>";
 subcat[x,0] = subcatagorys;
 subcat[x,1] = subcatagoryof;
 subcat[x,2] = subcatagoryid;
 if (subcat[x,1] == selecteditem) {
   var option<%= trim(count) %> = new Option(subcat[x,0], subcat[x,2]);
   inform.subcatagory.options[inform.subcatagory.length]=option<%= trim(count)%>;
  }
 <%
   count = count + 1
   y = y + 1
   rs.movenext
  loop
 rs.close
 %>
}

</script>

<base target="principal">

</head>

<body bgcolor="#CDB1B7">
<h2 align="center"><b><i><font color="#AE1732"><u>El PCcillo Feliz</u></font></i></b></h2>
<form name="prueba" method="POST" action="verarticulo.asp">
<div align="center">
  <center>
<table border="0" width="80%">
  <tr>
   
	<td width="77%">
		<select size="1" id="familia" name="familia" onChange = "javascript:sublist(this.form, familia.value);">
			
			<option selected>Selecciona una familia</option>
		  <%familias_Sql = "Select distinct id,familia from familias"
   rs.Open familias_Sql, Conn
   do while not rs.eof
			%>
				<option value="<%=rs("id")%>"><%=rs("familia")%></option>
				
			
			<%rs.movenext
			  loop
			set rs=nothing
	conn.close
	set conn=nothing%>
			</select>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <SELECT id="subcatagory" name="subcatagory" size="1">
		 <Option selected value="none"></option>
 </SELECT></td>
	<td width="9%">
	<p align="left">
	<input border="0" src="images/submit.gif" name="I4" type="image">

	</p>

	</td>
  </tr>
</table>
  </center>
</div>
<center>
</form>
</center>
</body>
</html>

verarticulo.asp

Código:

<html>
<head>
<title>articulos</title>
<base target="_self">
</head>
<body bgcolor="#CDB1B7">
<p align="center"><font color="#AE1732" face="Verdana" size="2"><b>Detalles</b></font></p>
<p align="center">
<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("hard.mdb"))
strSQL = "Select * from articulos where codigo ='" & Request.form("subcatagory")&"'"
Set RS = Conn.Execute(strSQL)
if not rs.eof then%>
</p>
<div align="center">
  <center>
<table border="0" width="80%" bgcolor="#0000FF">
  <tr>
	<td width="11%"><b><font face="Verdana" size="1" color="#FFFFFF">Codigo:</font></b></td>
	<td width="15%"><font face="Verdana" size="1"><font color="#FFFFFF"><%=rs("codigo")%></font></font></td>
	<td width="74%">
	  <p align="center"><font face="Verdana" size="2" color="#FFFFFF"><b><%=rs("denominacion")%></b></font></td>
  </tr>
  <tr>
	<td width="100%" colspan="3" >
	  <table border="0" width="100%">
		<tr>
		  <td width="11%">
			<p align="center">&nbsp;</td>
		  <td width="78%" bgcolor="#AE1732">
			<p align="center"><img border="0" src="<%=rs("imagen")%>"></td>
		  <td width="11%">&nbsp;</td>
		</tr>
	  </table>
	</td>
  </tr>
  <tr>
	<td width="100%" colspan="3">
	  <p align="left"><font face="Verdana" size="1" color="#FFFFFF"><%=rs("descripcion")%></font></td>
  </tr>
  <tr>
	<td width="11%"><b><font face="Verdana" size="1" color="#FFFFFF">Precio</font></b></td>
	<td width="89%" colspan="2"><font face="Verdana" size="1" color="#FFFFFF"><%=formatcurrency(rs("precio"))%></font></td>
  </tr>
</table>
  </center>
</div>
<%
rs.close
set rs=nothing
Conn.Close
Set Conn = Nothing
end if
%>

</body>
</html>

combos.htm

Código:

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Pagina nueva 1</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<frameset framespacing="0" border="0" rows="136,*" frameborder="0">
  <frame name="encabezado" scrolling="no" noresize target="principal" src="combo.asp">
  <frame name="principal" src="verarticulo.asp">
  <noframes>
  <body>
  <p>Esta página usa marcos, pero su explorador no los admite.</p>
  </body>
  </noframes>
</frameset>
</html>

hard.mdb

tabla articulos

código (texto)
familia (numérico)
denominacion (texto)
descripcion (memo)
precio (numérico)
imagen (texto)

tabla familias

id (autonumérico)
familia (texto)
imagenp (texto)

Bueno espero que eso te ayude en algo... y en cuanto a lo de subir las fotos y agregar datos a la base de datos.... requiere solo de conocimientos básicos de ASP para desarrollar una página que haga eso... espero haver sido de ayuda.... saludos