Hjælp til speciel asp udtræk

Der er mange måder at gøre hvis det altid er 6, kan du bare lave to recordset som begge laver en select top 6. Så kan du bladre det ene recordset 3 frem og udskrive dem parallelt

set record1 = con.execute("bla bla top 6 bla bla")
set record2 = con.execute("bla bla top 6 bla bla")
for a = 1 to 3
record2.movenext
mext

while not record1.eof OR record2.eof%>
<tr>
  <td><%=record1("felt")%></td>
  <td><%=record2("felt")%></td>

</tr>

<%
record1.movenext
record2.movenext
wend

Er det sådan du mener?:

<%
set record1 = con.execute("SELECT TOP 6  * FROM poster  ORDER BY id DESC")
set record2 = con.execute("SELECT TOP 6  * FROM poster  ORDER BY id DESC")

for a = 1 to 3
record2.movenext
next

while not record1.eof OR record2.eof%>
<tr>
  <td><%=record1("titel")%></td>
  <td><%=record2("titel")%></td>

</tr>

<%
record1.movenext
record2.movenext
wend
%>

Den giver følgende fejl:
Microsoft VBScript runtime  error '800a01a8'

Object required: 'con'

/testudtrak.asp, line 3

ja, men du skal ikke bruge con, men nanvet på din connection

Du kan også benytte kalde GetRows på dit recordset. Så får du resultatet i et array.

rows tilgåes: rows(kolonne-index,i)


rows = record.GetRows

Response.Write "<table>"

For i=0 To 5 Step 2
    Response.Write "<tr><td>" & rows(1,i) & "</td><td>" & rows(1,i+1) & "</td></tr>"

Next

Response.Write "</table>"

Oki, jeg er lidt lost nu:
<%
set record1 = strSQL = "SELECT TOP 6  * FROM poster  ORDER BY id DESC"
set record2 = strSQL = "SELECT TOP 6  * FROM poster  ORDER BY id DESC"
Set rs = objConn.Execute(strSQL)
for a = 1 to 3
record2.movenext
next

while not record1.eof OR record2.eof%>
<tr>
  <td><%=record1("titel")%></td>
  <td><%=record2("titel")%></td>

</tr>

<%
record1.movenext
record2.movenext
wend
%>
Sådan?
Ellers kan du pensle det ud for mig.

Set rs = objConn.Execute("SELECT TOP 6  * FROM poster  ORDER BY id DESC")
dim recordarray(6)
i = 0
while not rs.eof
recordarray(i) = rs("titel")
i = i +1
rs.movenext
wend
i=0
response.write"<table>"
for i =0 to 2
response.write "<tr><td>recordarray(i)</td><td>recordarray(i+3)</td></tr>"
next
response.write"</table>"

hov der er naturligvis fejl retter lige:

Set rs = objConn.Execute("SELECT TOP 6  * FROM poster  ORDER BY id DESC")
dim recordarray(6)
i = 0
while not rs.eof
recordarray(i) = rs("titel")
i = i +1
rs.movenext
wend
i=0
response.write"<table>"
for i =0 to 2
response.write "<tr><td>"&recordarray(i)&"</td><td>"&recordarray(i+3)&"</td></tr>"
next
response.write"</table>"

cpufan, når GetRows findes, så synes jeg altså den metode er lidt "klodset" =)

Rigtig nice. Tak!

morhan, ja det er korrekt, kender den faktisk heller ikke, - før nu
så skulle du nok ha' skrevet hele eksemplet for at han forstod det.