Avatar billede tblaster Nybegynder
11. maj 2002 - 16:40 Der er 8 kommentarer og
1 løsning

Samling af personer efter firma

Hejsa

Jeg har følgende kode. Hvordan får jeg siden til at samle alle deltager under et firma så de vises samlet?
Lige nu får jeg det ud sådan:

Firma 1 med følgende personer:
Fornavn Efternavn

Firma 2 med følgende personer:
Fornavn Efternavn

Firma 1 med følgende personer:
Fornavn Efternavn

Firma 2 med følgende personer:
Fornavn Efternavn

Hvor jeg jo vil have det sådan:
Firma 1 med følgende personer:
Fornavn Efternavn
Fornavn Efternavn
Fornavn Efternavn

Firma 2 med følgende personer:
Fornavn Efternavn
Fornavn Efternavn

Hvad skal jeg skrive for at få den til det? Her er min kode:

<%Language = "VBScript"%>
<%Fagseminar = request.Querystring%>
<HTML>
<HEAD>
<TITLE>Tilmeldte</TITLE>
</HEAD>
<BODY text=#000000 vLink=#000000 aLink=#000000 link=#000000 rightMargin=0>
Følgende personer er tilmeldt til seminaren:<br><br>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
        Set Rs = Server.CreateObject("ADODB.Recordset")
        'Modify and use this connection if your database is in your database directory
        'Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=Fagseminar.mdb"
        Conn.Open "DBQ=" & Server.Mappath("Fagseminar.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

SQL = "SELECT Fagseminar.FagseminarId, Tilmeldte.Fornavn, Tilmeldte.Efternavn, Tilmeldte.Firma, Tilmeldte.Betaling, Tilmeldte.Fagseminar from Tilmeldte LEFT JOIN Fagseminar ON Tilmeldte.Fagseminar = Fagseminar.Fagseminarid where Tilmeldte.Fagseminar=" & request.querystring("Fagseminar")
rs.Open SQL, Conn

If rs.BOF AND rs.EOF then
  Response.Write "Der er på nuværende tidspunkt ingen tilmeldte."
  Response.Write"<br>"

End if

For x = 1 to 10
    If rs.eof then
        Exit For
    Else
%>

<% =rs("Firma")%> med følgende personer:<br>
<% =rs("Fornavn")%> <% =rs("Efternavn")%><br>

            <%
      rs.MoveNext
    End If
Next

%> <br>
<a href="java script:history.go(-1)" style="text-decoration: none">Tilbage til informationerne om fagseminaren</a><br>   
<a href="fagseminar.asp" style="text-decoration: none">Tilbage til listen over fagseminar</a>
   
</BODY></HTML>
Avatar billede eagleeye Praktikant
11. maj 2002 - 16:42 #1
Prøv med ORDER BY firma:


SQL = "SELECT Fagseminar.FagseminarId, Tilmeldte.Fornavn, Tilmeldte.Efternavn, Tilmeldte.Firma, Tilmeldte.Betaling, Tilmeldte.Fagseminar from Tilmeldte LEFT JOIN Fagseminar ON Tilmeldte.Fagseminar = Fagseminar.Fagseminarid where Tilmeldte.Fagseminar=" & request.querystring("Fagseminar") & " ORDER BY Tilmeldte.Firma"
Avatar billede kimiwan Nybegynder
11. maj 2002 - 16:45 #2
Avatar billede tblaster Nybegynder
11. maj 2002 - 16:45 #3
Det gør jo bare at den sortere firmaerne efter navn. Altså sådan:

Firma 1 med følgende personer:
Fornavn Efternavn

Firma 1 med følgende personer:
Fornavn Efternavn

Firma 2 med følgende personer:
Fornavn Efternavn

Firma 2 med følgende personer:
Fornavn Efternavn
Avatar billede nute Nybegynder
11. maj 2002 - 16:45 #4
skriv din SQL sådan:

SQL = "SELECT Fagseminar.FagseminarId, Tilmeldte.Fornavn, Tilmeldte.Efternavn, Tilmeldte.Firma, Tilmeldte.Betaling, Tilmeldte.Fagseminar from Tilmeldte LEFT JOIN Fagseminar ON Tilmeldte.Fagseminar = Fagseminar.Fagseminarid where Tilmeldte.Fagseminar=" & request.querystring("Fagseminar") & " ORDER BY Tilmeldte.Firma"

deretter skriver du din loop sådan:

lastComp = ""
For x = 1 to 10
    If rs.eof then
        Exit For
    Else
%>

  if( rs("Firma") <> lastComp ) then
    response.write rs("Firma") & "med følgende personer:<br>"
    lastComp = rs("Firma")
  end if
<% =rs("Fornavn")%> <% =rs("Efternavn")%><br>

            <%
      rs.MoveNext
    End If
Next

/nute
Avatar billede eagleeye Praktikant
11. maj 2002 - 16:46 #5
Hvis du kun vil havde Firma til at stå en gang må du lave lidt kode som sskirre det:

indsæt tempFirma="" inden din for:

tempFirma=""
For x = 1 to 10


Disse to linier rettes:
<% =rs("Firma")%> med følgende personer:<br>
<% =rs("Fornavn")%> <% =rs("Efternavn")%><br>


Til:
<% if tempFirma <> rs("Firma") then
    tempFirma = rs("Firma") %>
    <%=rs("Firma")%> med følgende personer:<br>
<% end if %>
<% =rs("Fornavn")%> <% =rs("Efternavn")%><br>
Avatar billede tblaster Nybegynder
11. maj 2002 - 16:48 #6
Nute ... din giver en sådan fejl at siden ikke kan vises!
Avatar billede tblaster Nybegynder
11. maj 2002 - 16:50 #7
Thx again ... eagleeye!
Avatar billede tblaster Nybegynder
11. maj 2002 - 16:57 #8
eagleeye ... hvordan får du den så til at smide et linjeskift imellem de forskellige firmaer?
Lige nu viser den det sådan:
Firma1:
Fornavn Efternavn
Firma2:
Fornavn Efternavn
Fornavn Efternavn
Firma3:
Fornavn Efternavn

Den skulle gerne skrive det sådan:
Firma1:
Fornavn Efternavn

Firma2:
Fornavn Efternavn
Fornavn Efternavn

Firma3:
Fornavn Efternavn
Avatar billede tblaster Nybegynder
11. maj 2002 - 17:38 #9
Find det sidste spørgsmål her:
http://www.eksperten.dk/spm/210055
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester