11. maj 2002 - 16:40Der 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>
Den moderne arbejdsplads er i stigende grad afhængig af mødelokaler til at fremme samarbejde, men dette skift medfører også stigende sikkerhedsudfordringer.
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"
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>
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>
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
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.