Foros del Web » Programando para Internet » ASP Clásico »

Registros 2 tablas en ASP (una aleatoria y otra por fecha)

 Estas en el tema de Registros 2 tablas en ASP (una aleatoria y otra por fecha) en el foro de ASP Clásico en Foros del Web. Ante todo soy diseñador, no programador. Quizás lo que pregunto sea fácil. Tengo 2 páginas ASP: - En una de ellas salen 2 registros de ...
  #1 (permalink)  
Antiguo 22/04/2010, 08:44
 
Fecha de Ingreso: abril-2010
Mensajes: 3
Antigüedad: 14 años
Puntos: 0
Registros 2 tablas en ASP (una aleatoria y otra por fecha)
Ante todo soy diseñador, no programador. Quizás lo que pregunto sea fácil. Tengo 2 páginas ASP:
- En una de ellas salen 2 registros de forma aleatoria de la tabla Destacados de una base de datos en access
- En la otra página, aparecen los registros de la tabla Fichas de la misma base de datos en access ordenados por fecha.

¿Se puede conseguir que en una sóla página ASP salgan dos tablas?:
- Una tabla con los 2 registros aleatorios de la tabla Destacados de una base de datos access
- Otra tabla con los registros de la tabla Fichas de la misma base de datos en access ordenados por fecha.

El Código de la PAGINA 1
-------------------------------
<%
Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_Command = Server.CreateObject ("ADODB.Command")
Ob_Conn.Open "miservidor.com.BBDD"
Ob_Command.ActiveConnection = Ob_Conn
Ob_Command.CommandType = adCmdText
Sql= "SELECT TOP 2 * FROM Destacados WHERE Tipo='" & Request.QueryString("Tipo")& "' AND Tipo2='" & Request.QueryString("Tipo2")& "' AND Pais='" & Request.QueryString("Pais")& "' ORDER BY Rnd(Int(Now()*[ID])-Now()*[ID]);"
Ob_Command.CommandText = Sql
SET Ob_RS = Ob_Command.Execute () %>

<!--- Comienzo de Capa Dinamica con BSD --->
<table width="335" border="0">
<% DO WHILE NOT Ob_RS.Eof %>
<tr>
<td class="textoverde">- <b>Anuncio</b>:</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Contactar con: <%= Ob_RS("Anuncio") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Contactar con: <%= Ob_RS("Nombre") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Tfno: <%= Ob_RS ("Telefono") %><br>
</td>
</tr>
<% Ob_RS.MoveNext
LOOP
Response.Write "</table>"
Ob_RS.Close
Ob_Conn.Close%>

--------------------------------

CODIGO DE LA PAGINA 2
-------------------------------

<%
Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_Command = Server.CreateObject ("ADODB.Command")
Ob_Conn.Open "miservidor.com.BBDD"
Ob_Command.ActiveConnection = Ob_Conn
Ob_Command.CommandType = adCmdText
Sql= "SELECT * FROM Fichas WHERE Tipo='" & Request.QueryString("Tipo")& "' AND Tipo2='" & Request.QueryString("Tipo2")& "' AND Pais='" & Request.QueryString("Pais")& "' ORDER BY Fecha_Alta DESC"
Ob_Command.CommandText = Sql
SET Ob_RS = Ob_Command.Execute () %>

<!--- Comienzo de Capa Dinamica con BSD --->
<table width="335" border="0">
<% DO WHILE NOT Ob_RS.Eof %>
<tr>
<td class="textoverde">- <b>Anuncio</b>:</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Contactar con: <%= Ob_RS("Anuncio") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Contactar con: <%= Ob_RS("Nombre") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Tfno: <%= Ob_RS ("Telefono") %><br>
</td>
</tr>
<% Ob_RS.MoveNext
LOOP
Response.Write "</table>"
Ob_RS.Close
Ob_Conn.Close%>
  #2 (permalink)  
Antiguo 22/04/2010, 10:20
Avatar de Myakire
Colaborador
  
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 22 años, 3 meses
Puntos: 146
Respuesta: Registros 2 tablas en ASP (una aleatoria y otra por fecha)
Si copiaras casi todo el código de la página 2 después de la linea que dice Ob_RS.Close de la página 1, con eso tendrías.

El código que tendrías que copiar seria el siguiente:

Código ASP: 
Ver original
  1. Sql= "SELECT * FROM Fichas WHERE Tipo='" & Request.QueryString("Tipo")& "' AND Tipo2='" & Request.QueryString("Tipo2")& "' AND Pais='" & Request.QueryString("Pais")& "' ORDER BY Fecha_Alta DESC"
  2.  
  3. Ob_RS.Open SQL, Ob_Command%>
  4.  
  5. <!--- Comienzo de Capa Dinamica con BSD --->
  6. <table width="335" border="0">
  7. <% DO WHILE NOT Ob_RS.Eof %>
  8. <tr>
  9. <td class="textoverde">- <b>Anuncio</b>:</td>
  10. </tr>
  11. <tr>
  12. <td class="textoverde"><b>&middot;</b> Contactar con: <%= Ob_RS("Anuncio") %><br>
  13. </td>
  14. </tr>
  15. <tr>
  16. <td class="textoverde"><b>&middot;</b> Contactar con: <%= Ob_RS("Nombre") %><br>
  17. </td>
  18. </tr>
  19. <tr>
  20. <td class="textoverde"><b>&middot;</b> Tfno: <%= Ob_RS ("Telefono") %><br>
  21. </td>
  22. </tr>
  23. <% Ob_RS.MoveNext
  24. LOOP
  25. Response.Write "</table>"
  #3 (permalink)  
Antiguo 22/04/2010, 11:51
 
Fecha de Ingreso: abril-2010
Mensajes: 3
Antigüedad: 14 años
Puntos: 0
Respuesta: Registros 2 tablas en ASP (una aleatoria y otra por fecha)
Primero, gracias por contestar tan pronto.
He realizado lo que me dices, pero me da fallo en la linea donde pone
Ob_RS.Open SQL, Ob_Command%>

El código que me queda es el siguiente:

<%
Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_Command = Server.CreateObject ("ADODB.Command")
Ob_Conn.Open "miservidor.com.BBDD"
Ob_Command.ActiveConnection = Ob_Conn
Ob_Command.CommandType = adCmdText
Sql= "SELECT TOP 2 * FROM Destacados WHERE Tipo='" & Request.QueryString("Tipo")& "' AND Tipo2='" & Request.QueryString("Tipo2")& "' AND Pais='" & Request.QueryString("Pais")& "' ORDER BY Rnd(Int(Now()*[ID])-Now()*[ID]);"
Ob_Command.CommandText = Sql
SET Ob_RS = Ob_Command.Execute () %>

<!--- Comienzo de Capa Dinamica con BSD --->
<table width="335" border="0">
<% DO WHILE NOT Ob_RS.Eof %>
<tr>
<td class="textoverde"><b>&middot;</b> Contactar con: <%= Ob_RS("Anuncio") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Contactar con: <%= Ob_RS("Nombre") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Tfno: <%= Ob_RS ("Telefono") %><br>
</td>
</tr>
<% Ob_RS.MoveNext
LOOP
Response.Write "</table>"
Ob_RS.Close

Sql= "SELECT * FROM Fichas WHERE Tipo='" & Request.QueryString("Tipo")& "' AND Tipo2='" & Request.QueryString("Tipo2")& "' AND Pais='" & Request.QueryString("Pais")& "' ORDER BY Fecha_Alta DESC"

Ob_RS.Open SQL, Ob_Command%>

<!--- Comienzo de Capa Dinamica2 con BSD --->
<table width="335" border="0">
<% DO WHILE NOT Ob_RS.Eof %>
<tr>
<td class="textoverde">- <b>Anuncio</b>:</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Contactar con: <%= Ob_RS("Anuncio") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Contactar con: <%= Ob_RS("Nombre") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Tfno: <%= Ob_RS ("Telefono") %><br>
</td>
</tr>
<% Ob_RS.MoveNext
LOOP
Response.Write "</table>"

Ob_Conn.Close%>
  #4 (permalink)  
Antiguo 22/04/2010, 13:14
 
Fecha de Ingreso: abril-2010
Mensajes: 3
Antigüedad: 14 años
Puntos: 0
Respuesta: Registros 2 tablas en ASP (una aleatoria y otra por fecha)
Myakire!!! Gracias por la pista!! Creo que ya lo tengo. Al menos no me falla por ningún lado. Creo que sin tu pista, no lo hubiese conseguido. Esto es lo que me resulta:

<%
Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_Command = Server.CreateObject ("ADODB.Command")
Ob_Conn.Open "miservidor.com.BBDD"
Ob_Command.ActiveConnection = Ob_Conn
Ob_Command.CommandType = adCmdText
Sql7= "SELECT TOP 2 * FROM Destacados WHERE Tipo='" & Request.QueryString("Tipo")& "' AND Tipo2='" & Request.QueryString("Tipo2")& "' AND Pais='" & Request.QueryString("Pais")& "' ORDER BY Rnd(Int(Now()*[ID])-Now()*[ID]);"
Ob_Command.CommandText = Sql7
SET Ob_RS7 = Ob_Command.Execute ()%>


<!--- Comienzo de Tabla Dinamica1 con BSD --->
<table width="335" border="0">
<% DO WHILE NOT Ob_RS7.Eof %>
<tr>
<td class="textoverde"><b>&middot;</b> Contactar con: <%= Ob_RS7("Anuncio") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Contactar con: <%= Ob_RS7("Nombre") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Tfno: <%= Ob_RS7 ("Telefono") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Fecha Publicaci&oacute;n: <%= Ob_RS7("Fecha_Alta") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Id Anuncio: <%= Ob_RS7 ("ID") %><br><br><br>
</td>
</tr>
<% Ob_RS7.MoveNext
LOOP
Response.Write "</table>"
Ob_RS7.Close

Sql8= "SELECT * FROM Fichas WHERE Tipo='" & Request.QueryString("Tipo")& "' AND Tipo2='" & Request.QueryString("Tipo2")& "' AND Pais='" & Request.QueryString("Pais")& "' ORDER BY Fecha_Alta DESC"

Ob_Command.CommandText = Sql8
SET Ob_RS8 = Ob_Command.Execute ()%>

<!--- Comienzo de Tabla Dinamica2 con BSD --->
<table width="335" border="0">
<% DO WHILE NOT Ob_RS8.Eof %>
<tr>
<td class="textoverde"><b>&middot;</b> Contactar con: <%= Ob_RS8("Anuncio") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Contactar con: <%= Ob_RS8("Nombre") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Tfno: <%= Ob_RS8 ("Telefono") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Fecha Publicaci&oacute;n: <%= Ob_RS8("Fecha_Alta") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Id Anuncio: <%= Ob_RS8 ("ID") %><br><br><br>
</td>
</tr>
<% Ob_RS8.MoveNext
LOOP
Response.Write "</table>"
Ob_RS8.Close
Ob_Conn.Close%>
  #5 (permalink)  
Antiguo 22/04/2010, 16:01
Avatar de Myakire
Colaborador
  
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 22 años, 3 meses
Puntos: 146
Respuesta: Registros 2 tablas en ASP (una aleatoria y otra por fecha)
eeehhh mmmm ... no pues de nada

El fallo que te daba supongo es por que creabas el recordSet implícitamente y necesitabas que fuera explícito si pesabas llenarlo de nuevo, pero no se si valga la explicación por que ya mencionaste que no eres programador

Que bueno que sacaste el problema adelante

Etiquetas: aleatoria, asp, registros, tablas, fechas
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta


« Tema Anterior | Próximo Tema »


La zona horaria es GMT -6. Ahora son las 08:21.