spørsmål om asp

fedt spørgsmål. Kan man grave halvdelen af et hul i jorden?

det jeg mener er hvis der er 5 poster i db'en
så skal den vis de første 4 på en måde og så den sidste på en anden måde
men det er ikke sikkert der er 5 i altså antalet er ukendt

<%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/news.mdb")

SQL = "SELECT TOP 16 * From news Order By Id Desc"
Set rs = MinCon.Execute(SQL)

firstPost = true
do while not rs.EOF
  if firstPost = true then
    firstPost = false
%> <font color="" size="2"><b><%=rs("title")%></b></font><br>
Skrivet av: <b><a href="mailto:<%=rs("email")%>"><%=rs("author")%></a></b> | <b><%=rs("date")%><br></b>
<%=left(rs("news"),180)%>..<br>
<b><a href="news.asp?ID=<%=rs("id")%>">Läs hela</a></b><br><br>
<% else %>
<font color="" size="2"><b><%=rs("title")%></b></font><br>| <b><%=rs("date")%><br></b>
<%=left(rs("news"),180)%>..<br>
<b><a href="news.asp?ID=<%=rs("id")%>">Läs hela</a></b><br><br>
<% end if
  rs.MoveNext
loop
%>

Sådan lidt hurtigt fundet på:
_______________________________________________

Dim DBConn, RSPoster, intAntalPoster, intCount

DBConn = din forbindelse til dabatasen

DBConn.Open

Set RSPoster = DBConn.Execute("SELECT * FROM tabel")

intAntalPoster = RSPoster.RecordCount
intCount = 0

Do While Not RSPoster.EOF

    If intCount > (intAntalPoster/2) Then
        'Udskriv den ene halvdel
    Else
        'Udskriv den anden halvdel
    End If

    RSPoster.MoveNext
    intCount = intCount + 1

Loop

DBConn.Close

__________________________________________________

Voila et halvt hul :-)

/Askhoej

kan du prøve at sætte det sammen med den kode jeg har lag ud

Askhoej> kan det laves sådan

alle pånær den siste

[table med titel og år]
[table me mellemrum]
[table med info][tabel med info]
[mellem rum]

Den sidste

[table med titel og år]
[table me mellemrum]
[table med info][tabel med info]
[mellem rum]

hov den sidste skal se sådan ud

[table med titel og år]
[table me mellemrum]
[table med info]

Dim DBConn, RSPoster, intAntalPoster, intCount

DBConn = din forbindelse til dabatasen

DBConn.Open

Set RSPoster = DBConn.Execute("SELECT * FROM tabel")

intAntalPoster = RSPoster.RecordCount
intCount = 0

Do While Not RSPoster.EOF

    If Cint(intCount) <> Cint(intAntalPoster)-1 Then
        [table med titel og år]
        [table me mellemrum]
        [table med info][tabel med info]
        [mellem rum]
    Else
        [table med titel og år]
        [table me mellemrum]
        [table med info][tabel med info]
        [mellem rum]
    End If

    RSPoster.MoveNext
    intCount = CInt(intCount) + 1

Loop

DBConn.Close

jeg lukker har fået en anden til det

Ligger du så ikke lige din løsning ud så andre kan få glæde af den?

/Askhoej

jo det vil jeg gør