Placering af recordset i=1, i=2, i=3

strSQL = "SELECT TOP 3 * FROM tblTabelnavn ORDER BY ASC"
Set objRs = objCOnn.Execute(strSQL)

strPosts = ""
While NOt objRs.EOF
  strPosts = strPosts & objRs("kolonnenavn") & ","
objRs.MoveNext()
Wend

intLength = Len(strPosts) -1
strPosts = Left(strpOsts, intLength)
arrPosts = Split(strPosts, ",")

Her laver du så en random der skyder de forskellige poster i et array. og udskriver dem så de forskellige steder på sitet som du vil ha' dem til at ligge...

//>Rune

Kan man ikke få det sådan ud så eks.:
<%=nr1%><%=nr2%><%=nr3%>
Så jeg selv kan bestemme rækkefølgen?
Nummer 1 er den sidste nye post, nummer 2 den næstsidste osv...

strSQL="SELECT TOP 3 * FROM dinTabel ORDER BY IDkolonne DESC"
set rs=connObj.Execute(strSQL)

og så kan du navigere i dit recordset vha.

rs.move(0)
rs.move(1)
rs.move(2)

strSQL="SELECT TOP 3 * FROM dinTabel ORDER BY IDkolonne DESC"
set rs=connObj.Execute(strSQL)

Dim nr
nr=Array()
i=1

While Not rs.EOF
A(i)=rs.Fields("IDkolonne")
i=i+1
rs.MoveNext()
Wend

<%=nr(1)%><%=nr(2)%><%=nr(3)%>

Ok lyder cool..

Hvis jeg nu skal bruge id, titel og teaser fra en tabel der hedder anmeldelser.
<%
Set rs_anmeldelser = Server.CreateObject("ADODB.RecordSet")
rs_anmeldelser.open "Select TOP 3 From [anmeldelser] order by id desc" , Conn_frontpage, 1, 3
%>

<%=rs.move(0)("id")%> ???

Like that??

Ups så ik lige det sidste indlæg

Nej jeg skal nok lige have den igen :o(
<%
Set rs_anmeldelser = Server.CreateObject("ADODB.RecordSet")
rs_anmeldelser.open "Select TOP 3 From [anmeldelser] order by id desc" , Conn_frontpage, 1, 3
%>
<%=id%><%=titel%><%=teaser%>

???

<%
Set rs_a = Server.CreateObject("ADODB.RecordSet")
rs_a.open "Select TOP 3 * From [anmeldelser] order by id desc", Conn_frontpage, 1, 3

Dim nr
nr=Array()
i=1

While Not rs_a.EOF
A(i)=rs_a.Fields("id")&" "&rs_a.Fields("titel")&" "&rs_a.Fields("teaser")
i=i+1
rs_a.MoveNext()
Wend
%>
<%=nr(1)%><%=nr(2)%><%=nr(3)%>

While Not rs_a.EOF
nr(i)=rs_a.Fields("id")&" "&rs_a.Fields("titel")&" "&rs_a.Fields("teaser")
i=i+1
rs_a.MoveNext()
Wend

Jeg føler mig meget dum :o(

Men nu prøver jeg lige:

<%
Dim nr
nr=Array()
i=1

While Not rs_a.EOF
nr(i)=rs_a.Fields("id")&" "&rs_a.Fields("titel")&" "&rs_a.Fields("teaser")
i=i+1
rs_a.MoveNext()
Wend
%>


Kan jeg skille dem ad? Så f.eks:
<img src="<%=("id")%>.jpg align="left"><%=("titel")%><br><%=("teaser")%>

Sorry, men har svært ved at gennemskue det...

Spørgsmål... ville :

Set rs_a = Server.CreateObject("ADODB.RecordSet")
rs_a.open "SELECT top(3)*,rand() AS rnd From [anmeldelser]" , Conn_frontpage, 1, 3

ikke tage 3 tilfældige records ?

While Not rs_a.EOF
nr(i)=rs_a.Fields("id")&"$"&rs_a.Fields("titel")&"$"&rs_a.Fields("teaser")
i=i+1
rs_a.MoveNext()
Wend

nr1 = Split(nr(1), "$", -1, 1)
nr2 = Split(nr(2), "$", -1, 1)
nr3 = Split(nr(3), "$", -1, 1)

<img src="<%=nr1(1)%>.jpg align="left"><%=nr1(2)%><br><%=nr1(3)%>

<img src="<%=nr1(0)%>.jpg align="left"><%=nr1(1)%><br><%=nr1(2)%>

<%
Dim nr
nr=Array()
i=1

Set rs_anmeldelser = Server.CreateObject("ADODB.RecordSet")
rs_anmeldelser.open "Select TOP 3 * From [anmeldelser] order by id desc" , Conn_frontpage, 1, 3

While Not rs_anmeldelser.EOF
nr(i)=rs_anmeldelser.Fields("id")&"$"&rs_anmeldelser.Fields("type")
i=i+1
rs_anmeldelser.MoveNext()
Wend

nr1 = Split(nr(1), "$", -1, 1)
nr2 = Split(nr(2), "$", -1, 1)
nr3 = Split(nr(3), "$", -1, 1)
%>

jepper, og så kan du udskriv posterne sådan:

<img src="<%=nr1(0)%>.jpg align="left"><%=nr1(1)%><br><%=nr1(2)%>

Får bare denne fejl...

Microsoft VBScript runtime error '800a0009'

Subscript out of range: '1'

/nyt_admin/www/Default.asp, line 249

hvad er linie 249?

i=1

hmm... er ikke så stiv i VB, men prøv:


Dim nr, i, nr1, nr2, nr3
nr=Array()
i=1

Samme fejl :o(

<%
Dim nr, i, nr1, nr2, nr3
nr=Array()
i=1

Set rs_anmeldelser = Server.CreateObject("ADODB.RecordSet")
rs_anmeldelser.open "Select TOP 3 * From [anmeldelser] order by id desc" , Conn_frontpage, 1, 3

nr(0)=""
While Not rs_anmeldelser.EOF
nr(i)=rs_anmeldelser.Fields("id")&"$"&rs_anmeldelser.Fields("type")
i=i+1
rs_anmeldelser.MoveNext()
Wend

nr1 = Split(nr(1), "$", -1, 1)
nr2 = Split(nr(2), "$", -1, 1)
nr3 = Split(nr(3), "$", -1, 1)
%>

Microsoft VBScript runtime error '800a0009'

Subscript out of range: '[number: 0]'

/nyt_admin/www/Default.asp, line 250

hmm... prøv:

nr(0)="ingenting"

Stadig det samme... FLAT...

gi'r op...

med mindre jeg må lave det i JS?

Helst ikke... Så forstår jeg nemlig slet ingen ting...

Synes bare det er utroligt at det er så svært at lave.. Man burde kunne sige: Hent de tre nyeste poster. Placer den nyeste her, den næstnyeste her osv... :o(

Normalt ville man kunne lave en normal loop, men problemet er at der er streger i mellem:
post1 / post2 / post3

Laver man det med loop vil der efter post3 og komme en / og det skal der ikke...

hvis du har tænkt dig at udskrive posterne i den række følge de bliver hentet ud af db'en på kan du selvfølgelig bare gøre sådan:

<%
Set rs_anmeldelsernmeldelser = Server.CreateObject("ADODB.RecordSet")
rs_anmeldelsernmeldelser.open "Select TOP 3 * From [anmeldelser] order by id desc" , Conn_frontpage, 1, 3
%>
<table width="500" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><%=rs_anmeldelser.Fields("id")%></td>
    <td><%=rs_anmeldelser.Fields("titel")%></td>
    <td><%=rs_anmeldelser.Fields("teaser")%></td>
  </tr>
  <tr>
    <td>Noget Andet</td>
    <td>Noget Andet</td>
    <td>Noget Andet</td>
  </tr>
<%rs_anmeldelser.movenext()%>
  <tr>
    <td><%=rs_anmeldelser.Fields("id")%></td>
    <td><%=rs_anmeldelser.Fields("titel")%></td>
    <td><%=rs_anmeldelser.Fields("teaser")%></td>
  </tr>
  <tr>
    <td>Noget Tredje</td>
    <td>Noget Tredje</td>
    <td>Noget Tredje</td>
  </tr>
<%rs_anmeldelser.movenext()%>
  <tr>
    <td><%=rs_anmeldelser.Fields("id")%></td>
    <td><%=rs_anmeldelser.Fields("titel")%></td>
    <td><%=rs_anmeldelser.Fields("teaser")%></td>
  </tr>
</table>

JUBII - DU ER SQ KONGEN...... KOM MED ET SVAR SÅ SKAL DU FÅ VELFORTJENTE POINTS ;o)

//Bruhn

hehe :o)

utroligt vi skulle så meget igennem for at finde den mest simple løsning!-)

Det er jeg også ked af :o(

Kunne heller ikke forstå det skulle være så svært... He he
her er der points ;o)

sådan kan det jo gå ;-)

takker