Udtæk af email fra database til a href=mailto

Viser din kode ikke én mail?

set rs2 = Server.CreateObject("ADODB.Recordset")
strSQL2 = "SELECT * FROM TB_CONTACT"
rs2.open strSQL2,strDNS
If Not rs2.EOF
  Do While Not rs2.EOF
%>
<tr>
<td colspan="5"><a href="mailto:<%rs2("CONTACT_EMAIL")%>">Klik her og send en fælles mail via fx. Outlook</a></td>
</tr>
<%
    rs2.MoveNext
  Loop
End If
rs2.Close
Set rs2 = Nothing
%>

du skal samle alle email adresserne op i en streng adskilt af ; og derefter lægge dem i mailto

<%
set rs2 = Server.CreateObject("ADODB.Recordset")
strSQL2 = "SELECT * FROM TB_CONTACT"
rs2.open strSQL2,strDNS
If Not rs2.EOF
do

if contact_email <> "" then
contact_email = rs2("CONTACT_EMAIL") & ";" & contact_email
else
contact_email = rs2("CONTACT_EMAIL")
end if

rs.movenext
loop while not rs.eof
set rs2 = nothing
End If

if trim(contact_email) <> "" then
%>
<tr>
<td colspan="5"><a href="mailto:<%=contact_email%>">Klik her og send en fælles mail via fx. Outlook</a></td>
</tr>
<%
end if
%>

Nåå, på den måde. =)

Mitbrugernavn>> Er if-sætningen ikke ligemeget:

if contact_email <> "" then
contact_email = rs2("CONTACT_EMAIL") & ";" & contact_email
else
contact_email = rs2("CONTACT_EMAIL")
end if

?

Jeg mener, der sker vel ikke noget ved, at der står ";" efter den sidste eller hvad? For så kunne det jo bare være:

contact_email = rs2("CONTACT_EMAIL") & ";" & contact_email

måske - har ikke lige testet - men hvis den ikke er der kommer der ihvertfald ingen fejl i denne jungle af email programmer ;-)))) - man kunne også vælge at tjekke om sidste anslag er ; og så trække trække det ud af strengen

Jeg mener ikke, det burde være noget problem at skrive "adresse@adresse.dk;", det gør Outlook f.eks. af og til, når man vælger personen fra "kontakter".

>>mitbrugernavn: Jeg har sat din kode ind og får denne fejl..

Microsoft VBScript compilation error '800a03f9'

Expected 'Then' 

If Not rs2.EOF
--------------^

Mener heller ikke den sidste ";" har noget at sige så min kode ser sådan ud lige nu:


<%
set rs2 = Server.CreateObject("ADODB.Recordset")
strSQL2 = "SELECT * FROM TB_CONTACT"
rs2.open strSQL2,strDNS
If Not rs2.EOF
do

contact_email = rs2("CONTACT_EMAIL") & ";" & contact_email

rs2.movenext
loop while not rs2.eof
set rs2 = nothing
End If

if trim(contact_email) <> "" then
%>
<tr>
<td colspan="5"><a href="mailto:<%=contact_email%>">Klik her og send en fælles mail via fx. Outlook</a></td>
</tr>
<%
end if
%>

Ja, der mangler lige en "then" i if-sætningen:

<%
set rs2 = Server.CreateObject("ADODB.Recordset")
strSQL2 = "SELECT * FROM TB_CONTACT"
rs2.open strSQL2,strDNS
If Not rs2.EOF Then
do

contact_email = rs2("CONTACT_EMAIL") & ";" & contact_email

rs2.movenext
loop while not rs2.eof
set rs2 = nothing
End If

if trim(contact_email) <> "" then
%>
<tr>
<td colspan="5"><a href="mailto:<%=contact_email%>">Klik her og send en fælles mail via fx. Outlook</a></td>
</tr>
<%
end if
%>

åh det beklager jeg - men du I fandt det ;-)))) - altså ordet then

Super, tak for hjælpen