Linjeskift!
HejsaHfå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
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
tempFirma=""
For x = 1 to 10
If rs.eof then
Exit For
Else
%>
<% if tempFirma <> rs("Firma") then
tempFirma = rs("Firma") %>
<%=rs("Firma")%>:<br>
<% end if %>
<% =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>
