| Producto | Precio |
| <% strsql = "SELECT * FROM precio INNER JOIN producto ON precio.cod_prod = producto.cod_prod WHERE precio.cod_prod = 'maizbla' ORDER BY fecha DESC;" rs.Open strsql, conn, 1, 2 if not(rs.EOF) then response.write Mid(rs.fields("nombre_prod"),1,10) %> |
<%
response.write rs.fields("precio")
end if
%>
|
| <%rs.Close strsql = "SELECT * FROM precio INNER JOIN producto ON precio.cod_prod = producto.cod_prod WHERE precio.cod_prod = 'maizama' ORDER BY fecha DESC;" rs.Open strsql, conn, 1, 2 if not(rs.EOF) then response.write Mid(rs.fields("nombre_prod"),1,10) %> |
<%
response.write rs.fields("precio")
end if
%>
|
| <%rs.Close strsql = "SELECT * FROM precio INNER JOIN producto ON precio.cod_prod = producto.cod_prod WHERE precio.cod_prod = 'frijolne' ORDER BY fecha DESC;" rs.Open strsql, conn, 1, 2 if not(rs.EOF) then response.write Mid(rs.fields("nombre_prod"),1,10) %> |
<%
response.write rs.fields("precio")
end if
%>
|
| <%rs.Close strsql = "SELECT * FROM precio INNER JOIN producto ON precio.cod_prod = producto.cod_prod WHERE precio.cod_prod = 'arrozoro' ORDER BY fecha DESC;" rs.Open strsql, conn, 1, 2 if not(rs.EOF) then response.write Mid(rs.fields("nombre_prod"),1,10) %> |
<%
response.write rs.fields("precio")
end if
%>
|
| Nombre | Cantidad |
| <% f=clng(date()) f1=cdate(f) set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("../administra/ofertas/db/ofertas.mdb") & ";User ID=;Password=;" strsql = "SELECT * FROM [ofertas] inner join [producto] on ofertas.codprod = producto.codigo WHERE [ofertas.fvigencia]>=#"&date()&"# ORDER BY [ofertas.fvigencia] ASC" set rs = Server.CreateObject("ADODB.Recordset") rs.Open strsql, conn, 1, 2 if not(rs.EOF) then response.write Mid(rs.fields("nombre"),1,15)%> | <%response.write Mid(rs.fields("cantidad"),1,15)%> |
| Tipo | Vigencia |
| <% if rs.fields("tipo")=1 then response.write "Venta" end if if rs.fields("tipo")=2 then response.write "Compra" end if %> | <%response.write rs.fields("fvigencia") end if rs.Close Set rs = Nothing conn.Close Set conn = Nothing %> |
 |
|
|
|
|
|
|
|
|
|
|
|
 |
 |
 |
|
||||||||
 |
|
||||||||||
 |
|
||||||||||
 |
 |
 |
 |
 |
|
||||||
|
|||||||||||
 |
|
||||||||||
 |
|
||||||||||
 |
 |
 |
 |
 |
 |
 |
|
||||
 |
|
||||||||||
 |
 |
 |
|
||||||||
|
Enlaces |
| Moneda |
| Chicago Board of Trade |