ASP.NET (.VB) - Anvendelse af count (SQL) - kan det skrives pænere

Umiddelbart tror jeg at du skal erstatte:

SqlDataReader -> web page

med:

SqlDataReader -> data struktur -> web page

Den data struktur kan f.eks. vaere en List of X, hvor X er custom data klasse.

Saa ved du web pagen hvor mange elementer der er etc..

Nu er jeg ikke lige den skarpeste til VB.NET men du kan ligge din SQLConnection, SQLDataReader, SQLCommand osv. ind i en using statement, da de automatisk laver Dispose. Så slipper du for
NewsReader.Close()
NewsConnection.Close() osv.

Her er eksempel:
Using conn As New SqlConnection(dsn)
  Using cmd As New SqlCommand("SELECT * FROM Employees", conn)
    conn.Open()
      Using rdr As SqlDataReader = cmd.ExecuteReader()
        While rdr.Read()
          Console.WriteLine(rdr(0))
        End While
      End Using
  End Using
End Using

Hej Arne.

Det var lige en tand eller 2 over mit niveau, men du skal have tak for dit bidrag alligevel.

Jeg afventer lige og ser, hvad der ellers kommer ind inden jeg uddeler points.

Jeg synes at der er mange potentielle problemer i din kode. Men om jeg skal komme med en løsning til dit specifikke spørgsmål, så ville det være at bruge en Repeater (Her er en simpel forklaring + eksempel http://www.aspnettutorials.com/tutorials/controls/repeater-vb.aspx) til at rendere dine nyheder.

Her er nogle kode fragmenter du måske kan bruge.
Noget lignende ville være i din markup (*.aspx fil)

    <form id="form1" runat="server">
    <div>
        <asp:Repeater ID="Repeater1" runat="server">
            <ItemTemplate>
                <div>
                    <%# Eval("Headline")%>
                </div>
                <div>
                    <%# Eval("Content")%>
                </div>
                <div>
                    <%# Eval("Author")%>
                </div>
                <div>
                    <%# Eval("Date")%>
                </div>
            </ItemTemplate>
        </asp:Repeater>
    </div>
    </form>

Og så ville jeg ændre din Code behind fil (*.aspx.cs)
Til noget lignende:

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim NewsConnection As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("FrejaConnectionString").ConnectionString)

        Dim NewsReader As SqlDataReader
        Dim NewsCommand As SqlCommand

        Dim NewsSQL As String = ""
        NewsSQL = "SELECT TOP 6 Overskrift, LEFT(Indhold, 5000) AS Indhold, Forfatter, Dato FROM nyheder ORDER BY Dato"
        NewsCommand = New SqlCommand(NewsSQL, NewsConnection)

        NewsConnection.Open()
        NewsReader = NewsCommand.ExecuteReader()
       
        Dim newsItems As List<NewsItem> = new List<NewsItem>();

          While NewsReader.Read = True
            Dim newsItem As NewsItem = new NewsItem()
            newsItem.Headline = NewsReader("Overskrift").ToString.Trim()
            newsItem.Date = CType(NewsReader("NyhedsDato"), DateTime).ToString("dddd")
            newsItem.Content = Server.HtmlDecode(NewsReader("Indhold").ToString.Trim())
            newsItems.Add(newsItem);
          End While

        NewsReader.Close()

        Repeater1.DataSource = newsItems;
        Repeater1.DataBind();

        NewsConnection.Close()
    End Sub
End Class


Her er så den simple container klasse jeg bruger i koden.

    class NewsItem
    {
        public string Headline { get; set; }
        public string Content { get; set; }
        public string Author { get; set; }
        public DateTime Date { get; set; }
    }


Alt dette skulle gøre at om nu der f.eks. er 4 resultater i din førespørgsel, så vil kun den nødvendige html der skal til for at rendere disse 4 resultater blive generet.
Der er nok andre detejler omkring Repeater kontrollen, du vil have et behov for at vide om for at kunne bruge den effektivt, så er det bare at søge på nettet, hvor der er et hav af meteriale omkring emnet :)
Håber bare dette eksempel har givet dig en ide om hvad den kan bruges til.

obs! Denne kode er stykket sammen uden kompilerings muligeder + mine forfærdelige VB kundskaber, så du bliver nok nød at rydde op i det før det kompilerer.

/Hallur

Det er tæt på.

List<NewsItem>

hedder dog

List(Of NewsItem)

i VB.NET

Tid at få afsluttet her?