On Fri, 19 Apr 2002 10:06:42 +0000 (UTC), peter <prh@skare.dk> wrote:
Hej Peter,
>Jeg er ved at lave et script, der skal hente opl. fra en DB og
>opstille det i en tabel.
>
>Der må højest være 4 kolonner, dvs., hvis der fx. er 4
Mener du ikke 10?
>forekomster, skal det skrives på 3 linier (4 + 4 + 2).
Linier? - Mener du ikke rækker?
>Jeg sidder "lidt" fast. Her er, hvad jeg har fundet frem til
>indtil nu:
Du er på rette spor, men ...
Jeg kommenterer lige undervejs:
>Set rs = myConn.Execute(strSQL)
>If Not (rs.BOF Or rs.EOF) Then
> Response.Write "<table border='0'><tr>"
Response.Write "<table border='0'>"
Det er nemmest at tage "<tr>" med ind i din loop
> counter1=0
> counter2=0
Der er kun behov for én tæller:
cellcounter = 0
> ' Antal rækker
> Do Until counter1=2
Her kommer det, der går galt - du skal jo have det hele trukket ud og
ikke kun et bestemt antal. Så:
Do While Not rs.EOF
cellcounter = cellcounter + 1
' Hvis det er første række, starter vi rækken
If cellcounter = 1 Then
Response.Write "<tr>" & vbcrlf
End If
> Response.Write "<td width='200' align='center'><img
>src='grafik/medarbejdere/" & rs("initialer") & ".jpg' alt='" &
>rs("navn") & rs("efternavn") & "'><br><b>" & rs("navn") & " " &
>rs("efternavn") & "</b><br>" & rs("stilling") & "<br><a
>href='mailto:" & rs("initialer") & "@skare.dk'>" &
>rs("initialer") & "@skare.dk</a><br><br></td>"
> rs.MoveNext
' Her indsætter vi lige nogle fyldceller, hvis tallet
' ikke går op i 4
If rs.EOF Then
Do While cellcounter < 4
Response.Write "<td> </td>" & vbcrlf
cellcounter = cellcounter + 1
Loop
End If
' Hvis det er celle 4, sluttes rækken
' og tælleren nulstilles
If cellcounter = 4 Then
Response.Write "</tr>" & vbcrlf
cellcounter = 0
End If
> Loop
>
> Response.Write "</table>"
>' Rydder op efter os
rs.Close
Set rs = Nothing
>myConn.Close
>Set myConn = Nothing
Else
Response.Write "<p>Der var ingen poster.</p>" & vbcrlf
>End If
Håber det virker :)
Good luck,
Jørn
--
Jørn Andersen,
Brønshøj