---

Jeg ønsker å trekke ut data fra en database slik:
1 2 3 4
5 6 7 8
osv..
Jeg har denne koden men den fungerer ikke:

kodeeksempel...
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath ("../db/database.mdb")
sSql = "select * from nyheder ORDER BY ID DESC"
set rs = Conn.execute(sSql)

Response.Write"<table border=1>"
LinkCount = 0
Do Until Rs.EOF

If LinkCount Mod 4 = 0 Then 'skift nummer til det antal som du
vil
If LinkCount <> 0 Then Response.Write"</tr>"

Response.Write("<tr><td>" & RS("overskrift") & "</td>")
else
Response.Write("<tr><td>" & RS("overskrift") & "</td>")


End If
LinkCount = LinkCount + 1


Rs.MoveNext
Loop



Response.Write"</tr></table>"
RS.Close
Set RS = Nothing
%>

Noen som kan hjelpe meg??



--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Hansen wrote:
> Jeg ønsker å trekke ut data fra en database slik:
> 1 2 3 4
> 5 6 7 8
> osv..
> Jeg har denne koden men den fungerer ikke:

[Uinteressant ADO kode]

> Response.Write"<table border=1>"
> LinkCount = 0
> Do Until Rs.EOF
>
> If LinkCount Mod 4 = 0 Then 'skift nummer til det antal som du
> vil
> If LinkCount <> 0 Then Response.Write"</tr>"
>
> Response.Write("<tr><td>" & RS("overskrift") & "</td>")
> else
> Response.Write("<tr><td>" & RS("overskrift") & "</td>")
>
>
> End If
> LinkCount = LinkCount + 1

Du kan bruke Mod, eller hva med (luftkode):

Response.Write "<table><tr>"

lCounter = 1

Do While Not rs.EOF
If lCounter < 4 Then
Response.Write "<td></td>"
Else
Response.Write "<td></td></tr><tr>"
lCounter = 0
End If

lCounter = lCounter + 1

rs.MoveNext
Wend


terje?

---

"Hansen" <sfhanse@online.no> skrev i en meddelelse
news:4199c8da$0$33731$14726298@news.sunsite.dk...
> Jeg ønsker å trekke ut data fra en database slik:
> 1 2 3 4
> 5 6 7 8
> osv..
> Jeg har denne koden men den fungerer ikke:
>
> kodeeksempel...
> <%
> Set Conn = Server.CreateObject("ADODB.Connection")
> Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
> Server.MapPath ("../db/database.mdb")
> sSql = "select * from nyheder ORDER BY ID DESC"
> set rs = Conn.execute(sSql)
>
> Response.Write"<table border=1>"
> LinkCount = 0
> Do Until Rs.EOF
>
> If LinkCount Mod 4 = 0 Then 'skift nummer til det antal som du
> vil
> If LinkCount <> 0 Then Response.Write"</tr>"
>
> Response.Write("<tr><td>" & RS("overskrift") & "</td>")
> else
> Response.Write("<tr><td>" & RS("overskrift") & "</td>")
>
>
> End If
> LinkCount = LinkCount + 1
>
>
> Rs.MoveNext
> Loop
>
>
>
> Response.Write"</tr></table>"
> RS.Close
> Set RS = Nothing
> %>
>
> Noen som kan hjelpe meg??
>
Hei,

Prøv at bruge denne logik :

response.write "<table border='1'><tr>"
for L = 1 to 17
if L mod 4 = 0 then
response.write "<td>" & "Item" & L & "</td></tr><tr>"
else
response.write "<td>" & "Item" & L & "</td>"
end if
next
response.write "</tr></table>"

Altså : du skal styre din <tr> med break på (mod 4) - ikke din <td>

mvh
Sten

---

Hansen skrev:

> Jeg har denne koden men den fungerer ikke:

Tip: Det er en god ide at fortælle *hvordan* koden ikke fungerer - på
den måde er det lettere at lede efter fejl. Hvis der ikke er asp-fejl,
men siden bare "ser forkert ud", er det en god ide at give et link til
siden - så kan man se den genererede html-kode efter.


> If LinkCount <> 0 Then Response.Write"</tr>"
>
> Response.Write("<tr><td>" & RS("overskrift") & "</td>")
> else
> Response.Write("<tr><td>" & RS("overskrift") & "</td>")

Du skal nok ikke have <tr> i din else-del.


--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

> > If LinkCount <> 0 Then Response.Write"</tr>"
> >
> > Response.Write("<tr><td>" & RS("overskrift") & "</td>")
> > else
> > Response.Write("<tr><td>" & RS("overskrift") & "</td>")
>
> Du skal nok ikke have <tr> i din else-del.


Takk for svarene!!
Jeg fjernet <tr> i min else del Og alt fungerer fint:
Se Test:
http://www.playball.no/tester/index3.asp

:)

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials