Mejorar tiempo de respuesta

[Agrey]

Hola tengo una una duda que paso a explicaros.

Tengo un foro pequeño, que lo tnego dividido en tres tablas, por un aldo los datos del usuario, por otro las preguntas y por ultimo las respuestas.
Mi duda y problema es que cuando quiero ver un pregunta con sus respectivas respuestas y existen más de 20 respuestas la espera se hace insoportable.

A la hora de visualizar lo hago de la siguiente forma recibe la pagina el id de la pregunta y luego busca el id en la tabla preguntas. De esa tabla coge el id del usuario y busca sus datos para visualizarlos. Y asi tambien hace con al tabla respuesta. Por esto si tiene muchas respuestas tarda muchisimo pq tiene que buscar los datos de cada usuario y mostrarlo.
He hecho una prueba haciendo k no me muestre los datos del usuario y la verdad es que va como un tiro.

El codigo que tengo es el siguiente. Espero k me podais ayudar a mejorar el codigo.

(Solo muestro el codigo de las respuestas, y he kitado el html, igual ahy fallo de sintaxis sobre algun %> o falta)

Código:

<%
Set rsrespuesta = Server.CreateObject ("ADODB.RecordSet")
sql3="select Titulo,Autor,Mensaje,Fecha from Respuesta where Dequien=" &vid&" ORDER BY id asc"
rsrespuesta.Open sql3,conn,3,1
do while not rsrespuesta.eof  %>
<%=rsrespuesta("Autor")%> 
<%
quien=rsrespuesta("autor")
sqlnivel2="select Usuario,Email,Web,Ver,puntos,nivel,fecha from usuario where Usuario= '" &quien&"'"
set rsnivel2=Conn.Execute(sqlnivel2) 
%>
<%=rsnivel2("nivel")%>
Nº Mensajes:<%=rsnivel2("puntos")%> 
Alta: <%=rsnivel2("fecha")
rsnivel2.close 
Set rsnivel2=nothing
%>
<td height="10%" class="texto" valign="top"><span class="escritoporforo"><%=rsrespuesta("titulo")%></span><br>
<span class="escritopor">Enviado el: <%=rsrespuesta("fecha")%><br>
<br>
 
<%
descsalto4 = replace(rsrespuesta("mensaje"),chr(13),"<br>") %>
<%=descsalto4%> 
<%		
rsrespuesta.movenext
loop
%>

Lo dicho espero k me podais ayudar a mejorar el coido para que sea menos lento.

[u_goldman]

A reserva de que tengas tu base de datos correctamente normalizada, no es necesario abrir dos recordsets para, esto, con uno basta

Código:

SELECT a.titulo, a.autor,a.mensaje, a.fecha, b.* FROM Respuesta a INNER JOIN usuario b ON a.autor = b.usuario WHERE a.Dequien=" &vid&" ORDER BY a.id asc"

Saludos

[Agrey]

Muchas gracias, funciona y se nota una gran mejoria.

Tb quisiera saber a k es debido este error.

Microsoft OLE DB Provider for ODBC Drivers error '8007000e'
[Microsoft][Controlador ODBC Microsoft Access] No hay espacio suficiente en el disco temporal.
/conexion.asp, línea 27

[u_goldman]

Cual es la linea 27?
Nunca habia visto ese error, quizas tambien te ayude hacer una busqueda en google con ese mismo numero de error.


Saludos

[Agrey]

la linea 27 es donde se establece la conexion con la bbdd en access.

He buscado por el foro y nada de nada

[AlZuwaga]

Acá tenés una respuesta sobre ese error:
http://www.aspfaq.com/show.asp?id=2301

[Agrey]

Ok, gracias por el link. Por lo que he leido es que se crean muchos archivos temporales y poniendo
conn.mode = 1 ' adModeRead

lo que hace es que se abra en modo lectura y no crea archivos temporales.

Esto es así?

Y yo establezco así la conexión, donde tendría que poner el adModeRead.

Pagina conexión.asp

Código:

sub usu2(conn)
strconn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../Basesdedatos/foro2.mdb")
set conn = Server.Createobject("adodb.connection")
conn.open strconn
end sub

y luego la pagina donde se muestran los resultados.asp

Código:

usu2 conn
Set rs = Server.CreateObject ("ADODB.RecordSet")
sql="select a.Titulo,a.Autor,a.Mensaje,a.Fecha,b.Usuario,b.Email,b.Web,b.Ver,b.puntos,b.nivel,b.fecha,a.Contestaciones,Tipo from pregunta a INNER JOIN usuario b ON a.Autor=b.Usuario  where Id= " &vid&""
rs.Open sql,conn,3,1

do while not rs.eof
bla, bla, bla

rs.movenext
loop


Muchas gracias por las molestias tomadas, y nuevamente muchas gracias

[Agrey]

Nadie me puede ayudar a solucionar este fallo?