no sale lo que quiero que salga

[mrgubu]

Intento crear un periódico local online en asp. Tengo una base de datos con dos campos, idnoticia (id) y noticia (memo). Al hacer click en el vínculo de la página de inicio(tipo "noticias.asp?id=1") me salen todas las noticias seguidas en vez de salirme una sola. ¿Podéis ayudarme??? :(

Este es el código de noticias.asp:

<%
id=request.querystring("id")

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./noticias3.mdb")

Set ors = Server.CreateObject("ADODB.RecordSet")

sql = "SELECT * FROM tabla1"

ors.Open sql, oConn%>
<table>
<tr>
<td width="100%">
<%do while not ors.eof%>

<%=ors.fields("noticia")%>

<%ors.movenext
loop%>
</td>
</tr>
</table>

[pepelucho]

tienes q enviar la variable al select mas o menos asi:

id=request.querystring("cod_noticia")
sql = "SELECT * FROM tabla1 where idnoticia='"&id&"' "
ors.Open sql, oConn%>
.
.
.

Espero q te sirva
Saludos de
Saludos

PePeLuChO dEl PeRú PaRa El MuNdO ;)

[mrgubu]

Gracias Pepelucho. Funciona!!!! :)

Por cierto, ¿alquien sabe dónde encontrar un código asp no muy complejo de periódico on line? El objetivo es mostrar noticias con la hora, sección, y poco más. Es que todo lo que encuentro en sitios como asp101 relacionado con bases de datos siempre incluyen la posibilidad de agregar o modificar registros por el usuario a través de formulario, y yo lo que necesito es poder modificar los registros de la base sólo yo, y que el usuario sólo pueda leer las noticias.

[Juansan]

veo unas comillas simples despues del igual
y antes de las ultimas comillas dobles.
Si te da error la consulta, sacale esas comillas simples dado que esas indican que el id a buscar es un texto cuando normalmente los id son numericos.

El error que te puede dar es el tipico "data type mismatch", esperemos que no sea asi.

Original:
id=request.querystring("cod_noticia")
sql = "SELECT * FROM tabla1 where idnoticia='"&id&"' "
ors.Open sql, oConn%>
Modificado:
id=request.querystring("cod_noticia")
sql = "SELECT * FROM tabla1 where idnoticia="&id&" "
ors.Open sql, oConn%>

Saludos