A ver si me podéis ayudar

[yampoo]

Como puedo hacer para mostrar, por ejemplo, los mensajes con más respuestas, teniendo el cuenta que las respuestas estan en la tabla respuestas y el mensaje en la tabla mensajes.

A ver si me explico.

Tengo una pregunta (en la tabla mensajes) k dice... xxxxxxxxxxxxxxxxxxxxxxxx, y en esta pregunta hay 25 mensajes (en la tabla respuestas), como hago para mostrar, en el mensaje xxxxxxxxxxxxx hay 25 respuestas.

Espero que entendáis lo que busco.

[warner]

sql = "SELECT * FROM respuestas"
Rs.Open sql, Conexion, 3,3
resp = Rs.RecordCount


y para mostrarlo

Hay <%=totallapidario%> respuestas



Espero sea lo que necesitas, saludos

[warner]

perdon para mostrarlo me equivoque en la variable, seria:


Hay <%=resp%> respuestas

[yampoo]

OK, gracias pero con esto sólo puedo buscar un sólo foro, ya que, buscaré con un querystring todas las preguntas que tengan el foro=2 por ejemplo.

Pero yo quiero hacer, un listado de todos los foros y al lado con los mensajes posteados en cada ellos.

De todas gracias, y voy a mirar a partir de ahí si puedo sacar algo más.

[warner]

Oooohhh perdon, pero a ver si esto si te ayuda un poco, si no le seguimos calando

***************************************
id = request.querystring("foro")

SQL = "SELECT * FROM miembros Where foro = " & id &" "
Set registros = conexion.Execute(SQL)

max = 0
do until registros.EOF
max = max+1
registros.MoveNext
Loop
registros.Close
Set registros = Nothing
conexion.Close
%>

Asi te cuenta los registros que sean iguales al numero del foro y ya despues muestras como resulado la variable <%=max>


a ver si le di al clavo :roto:

[yampoo]

Muchas gracias, ahora voy a probarlo a ver que pasa.

[yampoo]

Hola, perdona que sea tan pesado...

Estoy usando éste código:

<%
id = request.querystring("foro")
Set con = Server.CreateObject("ADODB.Connection")
Con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("****.mdb"))
SQL = "SELECT * FROM mensajes Where foro = " & id &" "
Set registros = conexion.Execute(SQL)
max = 0
do until registros.EOF
max = max+1
registros.MoveNext
Loop
registros.Close
Set registros = Nothing
conexion.Close
%>
Mensajes: <%=max%>

Y me da error:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/forov/prueba.asp, line 17

[warner]

prueba con este



*******************

<%
id = request.querystring("foro")
Set con = Server.CreateObject("ADODB.Connection")
con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("****.mdb"))
SQL = "SELECT * FROM mensajes Where foro = " & id &" "
Set registros = con.Execute(SQL)
max = 0
do until registros.EOF
max = max+1
registros.MoveNext
Loop
registros.Close
Set registros = Nothing
con.Close
%>
Mensajes: <%=max%>

****************************************

[warner]

Mira prueba este que quedo mas cortito


**************

<%
id = request.querystring("foro")
Set con = Server.CreateObject("ADODB.Connection")
Set RS=Server.CreateObject("ADODB.Recordset")
con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("*****.mdb"))
sql = "SELECT * FROM mensajes Where id = " & id &" "
Rs.Open sql, con, 3,3
num_mensajes = Rs.RecordCount
response.Write "Mensajes: "& num_mensajes &""
con.Close
Set con = Nothing
%>

**************

Bueno creoq ue este ultimo es la solución y podras obtener lo que deseas,a l menos eso espero

Saludos

[yampoo]

Muchas gracias por tu esfuerzo y empeño ya parece que le da por funcionar

[warner]

Por nada, para eso estamos