Necesito ayuda sobre Base de datos
Hola arunchi. Estoy haciendo una página web de una empresa de aire acondicionado para mi proyecto de fin de curso, pero me he atascado a la hora de enseñar un catálogo de productos.
Mi base de datos tiene 3 tablas: Marca, Modelo, Sistema.
Yo quiero que me aparezca el Modelo de la Marca y el sistema que yo elija.
Mi página Catalogo.asp contiene lo siguiente:(Rescato datos de MenuPersonal.asp)
<% @ LANGUAGE=VBSCRIPT %>
<% OPTION EXPLICIT %>
<HTML>
<BODY vlink="#0000FF" alink="#6600CC" background="Fondos/FondoVioleta.jpg">
<%
Dim conexion, registros, fMarca, fSistema
Dim vMarca, vSistema
Dim sMarca, sSistema
session("sMarca")=ucase(request.form("fMarca"))
session("sSistema")=ucase(request.form("fSistema"))
vMarca=session("sMarca")
vSistema=session("sSistema")
%>
<%
Set conexion=Server.CreateObject("ADODB.Connection")
conexion.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\Clitecsa\Clitecsa.mdb"
Set registros=Server.CreateObject("ADODB.Recordset")
registros.open "SELECT * from Marca, Sistema, Modelo where(Modelo.NombreMarca='" & vMarca & "') AND (Modelo.NombreSistema='" & vSistema & "')" ,conexion
IF registros.eof then%>
<p align="center"> </p>
<p align="center"><font face="Comic Sans MS" color="#0000FF" size="4">No se ha encontrado ningún sistema (<%=vSistema%>) de la marca (<%=vMarca%>)
</font></p>
<p align="center"> </p>
<form method="post" action="MarcaSistema.asp">
<p align="center"><input type="submit" value="Volver atrás"></p>
</form>
<%
ELSE
Set conexion=Server.CreateObject("ADODB.Connection")
conexion.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\Clitecsa\Clitecsa.mdb"
Set registros=Server.CreateObject("ADODB.Recordset")
registros.open "SELECT * from Marca, Sistema, Modelo where(Modelo.NombreMarca='" & vMarca & "') AND (Modelo.NombreSistema='" & vSistema & "')" ,conexion
IF registros.eof then%>
<p align="center"> </p>
<p align="center"><font face="Comic Sans MS" color="#0000FF" size="4">No se ha encontrado ningún modelo con estos parámetros
</font></p>
<p align="center"> </p>
<form method="post" action="MarcaSistema.asp">
<p align="center"><input type="submit" value="Volver atrás"></p>
</form>
<%
ELSE%>
<img border="0" src="<%=registros(2)%>">
<br><br><br>
<p style="margin-top: 0; margin-bottom: 0"><font face="Comic Sans MS"><font color="#0000FF"> Sistema :</font> </font><b>
<font color="#FF0000" size="3" face="Comic Sans MS"><%=vSistema%> (<%=lcase(registros(5))%>)</font></b></p>
<center>
<TABLE border=1 width="100%" cellpadding="2" height="22" style="border-style: solid; border-width: 1" bordercolor="#FFFFFF">
<tr>
<td width="20%" style="border-style: outset; border-width: 2; padding: 4; background-color:#C0C0C0" align="center" height="27">
<p style="margin-top: 0; margin-bottom: 0"><font face="Comic Sans MS"><b> MODELO
</td>
<td width="50%" style="border-style: outset; border-width: 2; padding: 4; background-color:#C0C0C0" align="center" height="27">
<p style="margin-top: 0; margin-bottom: 0"><font face="Comic Sans MS"><b> CARACTERÍSTICAS
</td>
<td width="30%" style="border-style: outset; border-width: 2; padding: 4; background-color:#C0C0C0" align="center" height="27">
<p style="margin-top: 0; margin-bottom: 0"><font face="Comic Sans MS"><b> FOTO
</td>
</tr>
<% do while not registros.eof%>
<tr>
<td width="20%" height="1" style="border-style: inset; border-width: 1; font-size:8pt; font-family:Comic Sans MS; color:#0000FF"> <%=ucase(registros(("CodModelo")))%>
</td>
<form>
<td width="50%" style="border-style: inset; border-width:1; line-height: 100%; font-size:8pt; font-family:Comic Sans MS; color:#0000FF" height="1">
<textarea readonly rows="2" cols="75" name="Carac" style="border-style:groove; border-width:1; background-color: #CECFFF; font-family:Comic Sans MS; font-size:8pt; color:#0000FF; list-style-type:none"><%=registros("CaracteristicasModelo")%></textarea>
</td>
</form>
<td width="20%" height="1" style="border-style: inset; border-width: 1; font-size:8pt; font-family:Comic Sans MS; color:#0000FF"><%=registros("FotoModelo")%>
</td>
<%
registros.MoveNext
loop
Response.write "</table>"
END IF
END IF
registros.close
set registros=nothing
conexion.close
set conexion=nothing
%>
</body>
</html>
////////////
Mi problema es que me repite cada uno de los modelos 4 veces.
Espero que me ayudes, muchas gracias de antemano.
Mi base de datos tiene 3 tablas: Marca, Modelo, Sistema.
Yo quiero que me aparezca el Modelo de la Marca y el sistema que yo elija.
Mi página Catalogo.asp contiene lo siguiente:(Rescato datos de MenuPersonal.asp)
<% @ LANGUAGE=VBSCRIPT %>
<% OPTION EXPLICIT %>
<HTML>
<BODY vlink="#0000FF" alink="#6600CC" background="Fondos/FondoVioleta.jpg">
<%
Dim conexion, registros, fMarca, fSistema
Dim vMarca, vSistema
Dim sMarca, sSistema
session("sMarca")=ucase(request.form("fMarca"))
session("sSistema")=ucase(request.form("fSistema"))
vMarca=session("sMarca")
vSistema=session("sSistema")
%>
<%
Set conexion=Server.CreateObject("ADODB.Connection")
conexion.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\Clitecsa\Clitecsa.mdb"
Set registros=Server.CreateObject("ADODB.Recordset")
registros.open "SELECT * from Marca, Sistema, Modelo where(Modelo.NombreMarca='" & vMarca & "') AND (Modelo.NombreSistema='" & vSistema & "')" ,conexion
IF registros.eof then%>
<p align="center"> </p>
<p align="center"><font face="Comic Sans MS" color="#0000FF" size="4">No se ha encontrado ningún sistema (<%=vSistema%>) de la marca (<%=vMarca%>)
</font></p>
<p align="center"> </p>
<form method="post" action="MarcaSistema.asp">
<p align="center"><input type="submit" value="Volver atrás"></p>
</form>
<%
ELSE
Set conexion=Server.CreateObject("ADODB.Connection")
conexion.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\Clitecsa\Clitecsa.mdb"
Set registros=Server.CreateObject("ADODB.Recordset")
registros.open "SELECT * from Marca, Sistema, Modelo where(Modelo.NombreMarca='" & vMarca & "') AND (Modelo.NombreSistema='" & vSistema & "')" ,conexion
IF registros.eof then%>
<p align="center"> </p>
<p align="center"><font face="Comic Sans MS" color="#0000FF" size="4">No se ha encontrado ningún modelo con estos parámetros
</font></p>
<p align="center"> </p>
<form method="post" action="MarcaSistema.asp">
<p align="center"><input type="submit" value="Volver atrás"></p>
</form>
<%
ELSE%>
<img border="0" src="<%=registros(2)%>">
<br><br><br>
<p style="margin-top: 0; margin-bottom: 0"><font face="Comic Sans MS"><font color="#0000FF"> Sistema :</font> </font><b>
<font color="#FF0000" size="3" face="Comic Sans MS"><%=vSistema%> (<%=lcase(registros(5))%>)</font></b></p>
<center>
<TABLE border=1 width="100%" cellpadding="2" height="22" style="border-style: solid; border-width: 1" bordercolor="#FFFFFF">
<tr>
<td width="20%" style="border-style: outset; border-width: 2; padding: 4; background-color:#C0C0C0" align="center" height="27">
<p style="margin-top: 0; margin-bottom: 0"><font face="Comic Sans MS"><b> MODELO
</td>
<td width="50%" style="border-style: outset; border-width: 2; padding: 4; background-color:#C0C0C0" align="center" height="27">
<p style="margin-top: 0; margin-bottom: 0"><font face="Comic Sans MS"><b> CARACTERÍSTICAS
</td>
<td width="30%" style="border-style: outset; border-width: 2; padding: 4; background-color:#C0C0C0" align="center" height="27">
<p style="margin-top: 0; margin-bottom: 0"><font face="Comic Sans MS"><b> FOTO
</td>
</tr>
<% do while not registros.eof%>
<tr>
<td width="20%" height="1" style="border-style: inset; border-width: 1; font-size:8pt; font-family:Comic Sans MS; color:#0000FF"> <%=ucase(registros(("CodModelo")))%>
</td>
<form>
<td width="50%" style="border-style: inset; border-width:1; line-height: 100%; font-size:8pt; font-family:Comic Sans MS; color:#0000FF" height="1">
<textarea readonly rows="2" cols="75" name="Carac" style="border-style:groove; border-width:1; background-color: #CECFFF; font-family:Comic Sans MS; font-size:8pt; color:#0000FF; list-style-type:none"><%=registros("CaracteristicasModelo")%></textarea>
</td>
</form>
<td width="20%" height="1" style="border-style: inset; border-width: 1; font-size:8pt; font-family:Comic Sans MS; color:#0000FF"><%=registros("FotoModelo")%>
</td>
<%
registros.MoveNext
loop
Response.write "</table>"
END IF
END IF
registros.close
set registros=nothing
conexion.close
set conexion=nothing
%>
</body>
</html>
////////////
Mi problema es que me repite cada uno de los modelos 4 veces.
Espero que me ayudes, muchas gracias de antemano.
1 respuesta
Respuesta de arunchi
1