QueryString

[misitioweb]

Hola...


Creo que te faltan algunas lineas, para poder hacer lo que quires, trata cambiando el codigo así:

'Mostramos los campos hasta que nuestro RS no termine.
'Cuando termine... sale del bulcle automaticamente.
id=Request.QueryString("id")
if id="" then
RS.Open "leyendas", oConn, 1
Response.Write "Bienvenido a nuestra sección de leyendas urbanas.<BR>"
Do While Not RS.EOF%>
<A HREF="index.asp?id=<%=rs.Fields("Id&q uot;)%>"><%Response.Write RS("titulo")&"<BR>"% ></a><%
'MoveNext nos movera al siguiente registro de la tabla. A la siguiete fila.
RS.MoveNext
Loop
Else
RS.Open "Select * From Leyendas Where Id=" & Id, oConn, 1
Response.Write RS("cuerpo")
End If


Creo que asi puede funcionar, solo un detalle:
Si el Id es numerico, la instruccion de arriba esta bien, si es texto, cambiala por la sig:
RS.Open "Select * From Leyendas Where Id='" & Id & "'", oConn, 1