Duda de ASP
HOla, mi duda es la siguiente:
estoy haciendo una pagina en la cual tengo q hacer un menu para restaurante, es decir, con un primer plato y segundo.
Tengo ya en mi base de datos en una Tabla llamada menu dos campos: uno q se llama primer plato y otro segundo plato.
La cuestion es q a la hora de ponerlo en la pagina y utilizar asps solo consigo q me salgan los primeros platos y no los segundos porque se me repiten en la misma linea. Te dejo el codigo para q lo veas mejor, esta en dreamweaver asi que sera un poco lio.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>*Marina Surf*</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
<%Sub ListaDirecciones(Id)
Dim conn 'Variable Connection
Dim rs 'Variable RecordSet
Dim strSQL
'Inicializamos variables
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
'consulta de seleccion de contactos del usuario
strSQL = "SELECT Primer_Plato, Segundo_Plato FROM Menu"
'Abrimos la conexion
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};"&"DBQ="&Server.MapPath("MARINA_SURF.mdb")
'Abrimos el recordSet
rs.Open strSQL, conn
if rs.Eof then
response.Redirect("SinDatos.asp")
end if%>
</head>
<body bgcolor="CDBCA2" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFCC">
<table width="245" height="83" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center"> <font color="#FFFFFF" size="7" face="ShelleyVolante BT">Menu</font>
<hr width="150" color="#F9E0A6">
</div></td>
</tr>
</table>
<div id="Layer2" style="position:absolute; width:381px; height:115px; z-index:4; left: 340px; top: 222px;">
<%Dim i
i = 1
while not rs.Eof%>
<table width="381" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <div align="center"> <font face="Times New Roman, Times, serif" color="#FFFFFF" size="+1"><%response.write(rs("Primer_Plato"))%>
</font></div></td>
</tr>
</table>
</div>
<div id="Layer3" style="position:absolute; width:200px; height:115px; z-index:3; left: 275px; top: 116px;"><img src="Imagenes/MenuPerga.jpg" width="500" height="440"></div>
<p align="center"> </p>
<div id="Layer1" style="position:absolute; width:73px; height:18px; z-index:1; left: 888px; top: 489px;"><font color="#FFFFFF" size="5" face="Brush Script MT"><a href="Default.html">Volver
a Principal</a></font></div>
<div id="Layer4" style="position:absolute; width:375px; height:115px; z-index:5; left: 350px; top: 385px;">
<table width="374" border="1" cellspacing="0" cellpadding="0">
<tr>
<td> <%response.write(rs("Segundo_Plato"))%></td>
</tr>
</table>
<%
i = i+1
rs.MoveNext
Wend
'Cerramos todo
rs.Close
conn.Close
end Sub%>
</div>
<%Call ListaDirecciones(Request.QueryString("LoginID"))%>
</body>
</html>
PD: A ver si me consigues una soluccion para que salgan todos los platos, cada uno en su linea.
Muchas Gracias de antemano
estoy haciendo una pagina en la cual tengo q hacer un menu para restaurante, es decir, con un primer plato y segundo.
Tengo ya en mi base de datos en una Tabla llamada menu dos campos: uno q se llama primer plato y otro segundo plato.
La cuestion es q a la hora de ponerlo en la pagina y utilizar asps solo consigo q me salgan los primeros platos y no los segundos porque se me repiten en la misma linea. Te dejo el codigo para q lo veas mejor, esta en dreamweaver asi que sera un poco lio.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>*Marina Surf*</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
<%Sub ListaDirecciones(Id)
Dim conn 'Variable Connection
Dim rs 'Variable RecordSet
Dim strSQL
'Inicializamos variables
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
'consulta de seleccion de contactos del usuario
strSQL = "SELECT Primer_Plato, Segundo_Plato FROM Menu"
'Abrimos la conexion
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};"&"DBQ="&Server.MapPath("MARINA_SURF.mdb")
'Abrimos el recordSet
rs.Open strSQL, conn
if rs.Eof then
response.Redirect("SinDatos.asp")
end if%>
</head>
<body bgcolor="CDBCA2" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFCC">
<table width="245" height="83" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center"> <font color="#FFFFFF" size="7" face="ShelleyVolante BT">Menu</font>
<hr width="150" color="#F9E0A6">
</div></td>
</tr>
</table>
<div id="Layer2" style="position:absolute; width:381px; height:115px; z-index:4; left: 340px; top: 222px;">
<%Dim i
i = 1
while not rs.Eof%>
<table width="381" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <div align="center"> <font face="Times New Roman, Times, serif" color="#FFFFFF" size="+1"><%response.write(rs("Primer_Plato"))%>
</font></div></td>
</tr>
</table>
</div>
<div id="Layer3" style="position:absolute; width:200px; height:115px; z-index:3; left: 275px; top: 116px;"><img src="Imagenes/MenuPerga.jpg" width="500" height="440"></div>
<p align="center"> </p>
<div id="Layer1" style="position:absolute; width:73px; height:18px; z-index:1; left: 888px; top: 489px;"><font color="#FFFFFF" size="5" face="Brush Script MT"><a href="Default.html">Volver
a Principal</a></font></div>
<div id="Layer4" style="position:absolute; width:375px; height:115px; z-index:5; left: 350px; top: 385px;">
<table width="374" border="1" cellspacing="0" cellpadding="0">
<tr>
<td> <%response.write(rs("Segundo_Plato"))%></td>
</tr>
</table>
<%
i = i+1
rs.MoveNext
Wend
'Cerramos todo
rs.Close
conn.Close
end Sub%>
</div>
<%Call ListaDirecciones(Request.QueryString("LoginID"))%>
</body>
</html>
PD: A ver si me consigues una soluccion para que salgan todos los platos, cada uno en su linea.
Muchas Gracias de antemano
1 respuesta
Respuesta de armisoft
1
Puntua la pregunta, es para no tenerlas pendientes.
