ASP og tables

Det er lidt tid siden jeg har arbejdet med ASP, så du må lige bære over med mig, hvis det er lidt forforkert skrevet. Jeg skriver i VB, og det er egentlig bare for at du kan få en idé om hvordan det kan gøres. :)

tal = 0
While NOT recordset.EOF
  If tal = 0 Then
    Response.Write("<tr>")
  End If
  tal = tal + 1
  Response.Write("<tr>" & recordset.Fields("info") & "</tr>")

  If tal = 6 Then
    tal = 0
  Response.Write("</tr>")
  ElseIF tal < 6 AND recordset.EOF Then
    Response.Write("<td colspan="" & tal - 6 & "">")
    Response.Write("</tr>")
  End If
recordset.MoveNext
Wend



Okay.. Det er noget værre noget jeg har skrevet. Men skal skynde mig videre, så kan ikke lige nå at lave det ordentligt før lidt senere på dagen. Det er ikke muligt at tjekke om dit recordset er tjekket igennem, når jeg kører det i en While NOT recordset.EOF.. Men jeg kan ikke lige huske hvad det er man skal skrive istedet. :P Skal nok kigge på det senere, med mindre du selvfølgelig har fundet ud af det.

Håber du kan forstå hvor jeg vil hen med det, da koden, i min mening, ikke er godt nok til at blive brugt. :)

Okay.. glem det.. jeg læste helt forkert.. ^^ Fantastisk..

hehe jeg håber da at du kan jælpe lidt senere på dagen så:) Fordi je har lidt problemer med den:(

da en tábel programmeringsmæssigt bygges op row-vis,

skal du en tur over arrays for at flække det sammen.

dim rakke1Arr(20),rakke2Arr(20),rakke3Arr(20),rakke4Arr(20),rakke5Arr(20),rakke6Arr(20)

raekketal = 1
indextal = 1
do while not rs.eof
select case raekketal
case 1
rakke1Arr(indextal)= rs(0)
case 2
rakke2Arr(indextal)= rs(0)
case 3
rakke3Arr(indextal)= rs(0)
case 4
rakke4Arr(indextal)= rs(0)
case 5
rakke5Arr(indextal)= rs(0)
case 6
rakke6Arr(indextal)= rs(0)
end select

rs.movenext
raekketal = raekketal + 1
if raekketal > 6 then
raekketal = 1
indextal = indextal + 1
end if
loop

'bagefter opbygges tabellen:

response.write"<table>"
response.write"<tr>"
for i = 1 to 20
response.write"<td>"&rakke1Arr(i)&"</td>"
next
response.write "</tr>"
response.write"<tr>"
for i = 1 to 20
response.write"<td>"&rakke2Arr(i)&"</td>"
next
response.write "</tr>"
response.write"<tr>"
for i = 1 to 20
response.write"<td>"&rakke3Arr(i)&"</td>"
next
response.write "</tr>"
response.write"<tr>"
for i = 1 to 20
response.write"<td>"&rakke4Arr(i)&"</td>"
next
response.write "</tr>"
response.write"<tr>"
for i = 1 to 20
response.write"<td>"&rakke5Arr(i)&"</td>"
next
response.write "</tr>"
response.write"<tr>"
for i = 1 to 20
response.write"<td>"&rakke6Arr(i)&"</td>"
next
response.write "</tr>"


</table>

cpufan,af en eller anden grund virker det ikke.

Dette er min kode(eller din kode):

Den retunerer denne fejl:
Microsoft VBScript runtime  error '800a000d'

Type mismatch: 'rakke1Arr'

/table1.asp, line 22

<%
Set rs = Server.CreateObject("ADODB.RecordSet")
SQL = ("SELECT * FROM hylde1")
JET = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& server.MapPath("../database/jn.mdb")
rs.Open SQL, JET, 1
raekketal = 1
indextal = 1

do while not rs.eof
select case raekketal
case 1
rakke1Arr(indextal)= rs("info")
case 2
rakke2Arr(indextal)= rs("info")
case 3
rakke3Arr(indextal)= rs("info")
case 4
rakke4Arr(indextal)= rs("info")
case 5
rakke5Arr(indextal)= rs("info")
case 6
rakke6Arr(indextal)= rs("info")
end select

rs.movenext
raekketal = raekketal + 1
if raekketal > 6 then
raekketal = 1
indextal = indextal + 1
end if
loop

'bagefter opbygges tabellen:

response.write"<table>"
response.write"<tr>"
for i = 1 to 20
response.write"<td>"&rakke1Arr(i)&"</td>"
next
response.write "</tr>"
response.write"<tr>"
for i = 1 to 20
response.write"<td>"&rakke2Arr(i)&"</td>"
next
response.write "</tr>"
response.write"<tr>"
for i = 1 to 20
response.write"<td>"&rakke3Arr(i)&"</td>"
next
response.write "</tr>"
response.write"<tr>"
for i = 1 to 20
response.write"<td>"&rakke4Arr(i)&"</td>"
next
response.write "</tr>"
response.write"<tr>"
for i = 1 to 20
response.write"<td>"&rakke5Arr(i)&"</td>"
next
response.write "</tr>"
response.write"<tr>"
for i = 1 to 20
response.write"<td>"&rakke6Arr(i)&"</td>"
next
response.write "</tr>"

response.write "</table>"


rs.Close
Set rs=Nothing


%>

du mangler denne linie i starten

dim rakke1Arr(20),rakke2Arr(20),rakke3Arr(20),rakke4Arr(20),rakke5Arr(20),rakke6Arr(20)

det må jeg sige, nu føler jeg mig især dum.

Ledte 500 år efter fejlen , men missede totalt at jeg ikke havde skabt navngivet lortet.

Smid svar og mange tak for hjælpen.

ok here it comes


virker det så?


skrev det blot ind her på exp -
så det var utestet .............

Ja det virker.  Der kommer data ind i hver celle. Har ikke testet 100% endnu. men det ser sådan ud.