"Henrik Woer" <henrik@woer.dk> skrev i en meddelelse
news:46d35354$0$49738$edfadb0f@dread11.news.tele.dk...
> Hej gruppe
>
> nedenfor er et lille script ( en løkke). Jeg vil gerne gøre det muligt at
> det foruden telefonnumre er muligt at se flere - email eller hjemmeside
> adresser. Jeg har frsøgt mig lidt frem, men jeg kan ikke få det til at
> virke. Er der en der kan hjælpe mig?
>
> <% strSQL = "Select * From bestyrelsesnavne_titelogadresse1"
> Set rs = Conn.Execute(strSQL)%>
> <%
> intAfsnitIdOld = 0
> While Not rs.EOF
> intAfsnitId = rs("IDperson")
> If intAfsnitId <> intAfsnitIdOld Then
> Response.Write rs ("Hvervstitel") & "<br>" & rs ("Navn") & "<br>" &
> rs("Vejnavn") & " " & rs ("nummer") & " " & rs ("Etage") & " " & rs
> ("Side") & "<br>" & rs ("Postnummer/by") & "<br>"
> intAfsnitIdOld = intAfsnitId
> End If
> Response.Write "<span class='brodtxt'>" & rs("telefonnummer") & "</span>"
> & "<br>"
> rs.MoveNext
> Wend
>
> RS.CLOSE %>
Jeg har nu prøvet mig lidt frem med Jørns scrip. min kode er gengivet
forneden. Som det fremgår af
http://flamencoiaarhus.dk/best.asp går det
galt i og med at emailadresserne også gentages hos person nr.2. Er det i
scriptet eller i min forespørgsel det går galt?
<% strSQL = "Select * From bestyrelsesnavne_titelogadresse1"
Set rs = Conn.Execute(strSQL)%>
<%
intAfsnitIdOld = 0
strTlf = ""
strEmail = ""
While Not rs.EOF
intAfsnitId = rs("IDperson")
If intAfsnitId = intAfsnitIdOld Then
strTlf = strTlf & ", " & rs("telefonnummer")
strEmail = strEmail & ", " & rs("emailadresse")
Else
' Udskriv ikke første gang
If intAfsnitIdOld <> 0 Then
Response.Write strTlf
Response.Write strEmail
End If
strTlf = rs("telefonnummer")
strEmail = strEmail & ", " & rs("Emailadresse")
Response.Write "<P>" & rs ("Hvervstitel") & rs ("Navn") & "<br/>" &
rs("Vejnavn") & rs ("nummer") & rs ("Etage") & rs("Side") & rs
("Postnummer/by")
intAfsnitIdOld = intAfsnitId
End If
rs.MoveNext
Wend
PFTFH
Henrik