Søg
Avatar billede dittlau Nybegynder
16. juli 2003 - 10:57 Der er 14 kommentarer og
1 løsning

del udtræk i 3 spalter

Hej eksperter!

Håber der er nogen der kan hjælpe.

Problemet er, at data der bliver trukket ud fra db, skal deles i 3 spalter:
1    2    3      | eller: 1    3    5
4    5    6      |        2    4    6

Sådan som det ser ud nu, kommer det ud sådan her:
1
2
3
4
5
6
koden:
------------------
<table>
<tr>
<%
'table
LinkCount = 0
Do Until dbRs.EOF

If LinkCount Mod 3 = 0 Then
    If LinkCount <> 0 Then Response.Write("<tr>")
   
    Response.Write("<tr>") & ("<td>") & ("<A HREF='klinikvalg.asp?ID=" & dbRs(0) & "'>" & dbRs(1) & ("<br>") & dbRs(2) & ("<br>") & dbRs(3) & ("<br>")& dbRs(8)& ("<br>")&"</A>")
    else
    Response.Write("<tr>") & ("<td>") & ("<A HREF='klinikvalg.asp?ID=" & dbRs(0) & "'>" & dbRs(1) & ("<br>") & dbRs(2) & ("<br>") & dbRs(3) & ("<br>")& dbRs(8)& ("<br>")&"</A>")

    End If
    LinkCount = LinkCount + 1
    dbRs.MoveNext
Loop

dbRs.Close
db.Close

%>

Hvad gør jeg galt?

/dittlau
Avatar billede dk_akj Nybegynder
16. juli 2003 - 11:40 #1
Do Until dbRs.EOF

if LinkCount Mod 3 = 0 Then
    response.write "</tr><tr>"
End If
    If LinkCount <> 0 Then Response.Write("<tr>")
   
    Response.Write("<td>") & ("<A HREF='klinikvalg.asp?ID=" & dbRs(0) & "'>" & dbRs(1) & ("<br>") & dbRs(2) & ("<br>") & dbRs(3) & ("<br>")& dbRs(8)& ("<br>")&"</A>") & "</td>"

    dbRs.MoveNext
Loop
<response.write "<tr>"

//akj
Avatar billede dittlau Nybegynder
16. juli 2003 - 12:06 #2
Det virker stadig ikke. Koden:
<table>
<tr>
<%
'table
'LinkCount = 0
Do Until dbRs.EOF

If LinkCount Mod 3 = 0 Then
    Response.Write"</tr><tr>"
End If
    If LinkCount <> 0 Then Response.Write("<tr>")
   
    Response.Write("<td>") & ("<A HREF='klinikvalg.asp?ID=" & dbRs(0) & "'>" & dbRs(1) & ("<br>") & dbRs(2) & ("<br>") & dbRs(3) & ("<br>")& dbRs(8)& ("<br>")&"</A>") & "</td>"
    'else
    'Response.Write("<tr>") & ("<td>") & ("<A HREF='klinikvalg.asp?ID=" & dbRs(0) & "'>" & dbRs(1) & ("<br>") & dbRs(2) & ("<br>") & dbRs(3) & ("<br>")& dbRs(8)& ("<br>")&"</A>")

    'End If
    'LinkCount = LinkCount + 1
    dbRs.MoveNext
Loop
Response.Write"<tr>"

dbRs.Close
db.Close

%>
Avatar billede dk_akj Nybegynder
16. juli 2003 - 12:10 #3
Hvad laver alle de <br> imellem td taggene´?
Avatar billede dittlau Nybegynder
16. juli 2003 - 12:18 #4
Sørger for, at det bliver sat pænt op under hinanden. Det er måske ikke nøædvendigt??

/dittlau
Avatar billede dittlau Nybegynder
16. juli 2003 - 12:19 #5
nøædvendigt = nødvendigt
stavepladen virkede ikke:-))
Avatar billede dk_akj Nybegynder
16. juli 2003 - 12:22 #6
Prøv lige denne:

<table border="1">
<tr>
<%
'table
'LinkCount = 0
Do Until dbRs.EOF
i = i + 1
if i >= 3 then
    Response.Write"</tr><tr>"
    i = 0
End If


Response.Write("<td>") & ("<A HREF='klinikvalg.asp?ID=" & dbRs(0) & "'>" & dbRs(1) & ("<br>") & dbRs(2) & ("<br>") & dbRs(3) & ("<br>")& dbRs(8)& ("<br>")&"</A>") & "</td>"
dbRs.MoveNext
Loop
Response.Write"</tr>"

dbRs.Close
db.Close

%>
//akj
Avatar billede dittlau Nybegynder
16. juli 2003 - 12:24 #7
Jeg bliver lige nødt til at rende på kundebesøg, så det bliver først afprøvet om et par timer.
Håber det er OK.
Tak for hjælpen indtil videre.

/dittlau
Avatar billede peppino Nybegynder
16. juli 2003 - 18:05 #8
Jeg har en kode som jeg har fået af eagleeye som gør det du vil have.

'åben et recordset
Set rs = conn.execute(SQL)

maxPrRow = 3 'max antal kolonner pr række
colPrRow = 0 'Tæller
response.write "<table>"
do while not rs.eof
  if colPrRow = 0 then
    response.write "<tr>"
  end if
  Response.write "<td>" & rs("kolonnenavn") & "</td>"
  colPrRow = colPrRow + 1
  if colPrRow = maxPrRow then
    response.write "</tr>"
    colPrRow = 0
  end if
  rs.movenext
loop
if colPrRow > 0 then
  response.write "</tr>"
end if
response.write "</table>"


Håber du kan bruge det :-)

/Peppino
Avatar billede hossein Nybegynder
16. juli 2003 - 20:30 #9
Ok, det har været problemer. Her er så hele koden som jeg har prøvet:

...
dbRS.Open strSQL, conn
%>
<p align="center"> 
<%
    Response.Write"<table border=0 cellspacing=35 cellpading=20>"
    LinkCount = 0
    Do Until dbRS.EOF

            If LinkCount Mod 4 = 0 Then  'change this 3 to any number of column that you like
                If LinkCount <> 0 Then Response.Write"</tr>"
                        Response.Write "<tr><td><A HREF=klinikvalg.asp?ID=" & dbRS("0") & ">"&dbRS("1")&"<br>"&dbRS("2")&"<br>"&dbRS("3")&"<br>"&dbRS("8")&"</a></td>"
                Else
                        Response.Write "<td><A HREF=klinikvalg.asp?ID=" & dbRS("0") & ">"&dbRS("1")&"<br>"&dbRS("2")&"<br>"&dbRS("3")&"<br>"&dbRS("8")&"</a></td>"
                End If
        LinkCount = LinkCount + 1 
        dbRS.MoveNext 
    Loop
    Response.Write"</tr></table>"
    dbRS.Close
    Set dbRS = Nothing
%>
Avatar billede hossein Nybegynder
16. juli 2003 - 20:32 #10
hvis du vælger i dette linie 3 så får du 3 outputtet i 3 kolonner:
If LinkCount Mod 4 = 0 Then

ret til:
If LinkCount Mod 3 = 0 Then
Avatar billede dittlau Nybegynder
16. juli 2003 - 23:36 #11
->> dk_akj!
Dit sidste eksempel virker næsten!, der er et lille problem. Data bliver vist sådan:
1              2              (TOMT FELT)
4              5              6
7              8              9
10            (TOMT FELT)    (TOMT FELT)

Hvorfor laver den de tomme felter?
Avatar billede dk_akj Nybegynder
17. juli 2003 - 07:12 #12
i = 0

Do Until dbRs.EOF

if i >= 3 then
    Response.Write"</tr><tr>"
    i = 0
End If

i = i + 1

Response.Write("<td>") & ("<A HREF='klinikvalg.asp?ID=" & dbRs(0) & "'>" & dbRs(1) & ("<br>") & dbRs(2) & ("<br>") & dbRs(3) & ("<br>")& dbRs(8)& ("<br>")&"</A>") & "</td>"
dbRs.MoveNext
Loop
Response.Write"</tr>"

dbRs.Close
db.Close
Avatar billede dittlau Nybegynder
17. juli 2003 - 08:26 #13
->> dk_akj
Nu virker det!

Smid lige et svar.

/dittlau
Avatar billede dk_akj Nybegynder
17. juli 2003 - 08:52 #14
Det er jeg da glad for at høre.

//akj
Avatar billede dittlau Nybegynder
17. juli 2003 - 09:24 #15
Jeg smed lige lidt ekstra point i.

Tusind tak for hjælpen.

/dittlau
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 14:10 Komme ind på : YouSeeMusic" Af Ikke-ekspert i Musik & videoafspillere
I går 13:27 Send/modtag i Outlook 2024 Af ErikHg i E-mail programmer
10/0915:34 Installer alarmlyd på Samsung Galaxy XCover 7 Pro Af ErikHg i Mobiltelefoner
08/0913:06 Kan ikke starte min pc Af Malm i PC
07/0919:20 DVD program Af dcedata1977 i Andet software
White papers
Flere white papers »