Necesito que en el default.asp me salgan 5 articulos solamente, siempre 5. Y obviamente que exista un link para ver todos los articulos. Este es el codigo.
El formulario, que tiene la accion agrega_notica.asp
agrega_noticia.asp
<%
Response.Buffer = true
dim cnn,rst
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source=" & _
Server.MapPath("noticias.mdb"))
sqltext = "SELECT * FROM Noticias"
rst.Open sqltext,cnn,3,3
dim titulo, copete, noticia
titulo = Request.Form("titulo")
copete = Request.Form("copete")
noticia = Request.Form("noticia")
if copete = "" or titulo ="" or noticia ="" then
error = "Debe completar todos los datos."
Response.Write error
Response.End
end if
rst.AddNew
rst("titulo") = titulo
rst("copete") = copete
rst("noticia") = noticia
rst.update
Response.Write "La noticia se ha ingresado con exito"
%>
default.asp (Aqui necesito que se vean 5)
<% Set con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("noticias.mdb")&" ;;"
sql = "SELECT * FROM Noticias ORDER BY id DESC"
Set result = con.Execute(sql)
Do While Not result.EOF
Response.Write "<p><b><font face=Verdana size=1><a href=noticia.asp?id=" &result.Fields("id") & ">"&result.Fields("titulo&qu ot;)&"</a></b><br><font color=""#696969"">&#149 ; " &result.Fields("copete") & "</font></font></p>"
result.MoveNext
Loop
result.Close
Set result = Nothing
con.Close
Set con = Nothing %>
Inforsal
Saludos y abrazos.
Feliz Año Nevo.
