URGENTE Agregar imagenes al catalogo
Publicado por javier_b (2 intervenciones) el 09/12/2001 02:59:56
como le puedo agregar la coneccion para que muestre las imagenes.
y como puedo definirlas en mi base de datos
por faor es urgente
<%@LANGUAGE="VBSCRIPT"%>
<%Option Explicit%>
<%Response.Buffer=True%>
<%
Sub MostrarCatalogo
Dim oRs, oRs2, SQL ' Uso 2 recordset
Dim idcategorias ' IdMarca en Productos
set oRs=Server.CreateObject("ADODB.Recordset")
set oRs2=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM Productos ;"
oRs.Open SQL, oConn
'Dibujo la tabla
%>
<TABLE BORDER=1 CELLSPACING="1" CELLPADDING="1">
<TR>
<TD><B>categoria</B></TD>
<TD><B>Nombre Producto</B></TD>
<TD><B>Precio</B></TD>
<TD></TD>
<%
do until oRs.EOF
idcategorias=oRs.Fields("idcategoria")
SQL="SELECT * FROM categoria WHERE idcategoria="&idcategorias&";"
oRs2.Open SQL, oConn
%>
<TR>
<TD><A HREF="<%=oRs2.Fields("idcategoria")%>"><%=oRs2.Fields("nombrecategoria")%></A></TD>
<TD><%=oRs.Fields("nombreproducto")%></TD>
<TD><%=oRs.Fields("preciounidad")%></TD>
<TD><%=oRs.Fields("imagenproducto")%></TD>
<TD><A HREF="catalogo.asp?ac=meter&prod=<%=oRs.Fields("idproducto")%>">Comprar</A></TD>
</TR>
<%
oRs2.Close
oRs.MoveNext
loop
Valora esta pregunta


0