29. juli 2008 - 21:52Der er
9 kommentarer og 2 løsninger
Udtæk af email fra database til a href=mailto
Jeg har nogle email adresser liggende i min database. De skal sættes op i en a href=mailto så jeg kan lave en gruppe mail ved at klikke på et link, men hvordan sætter jeg det korekt op?
Mine koder ser sådan ud:
set rs2 = Server.CreateObject("ADODB.Recordset") strSQL2 = "SELECT * FROM " & TB_CONTACT & "" rs2.open strSQL2,strDNS %> <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.CLOSE SET RS2 = NOTHING %>
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 %>
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".
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 %>
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 %>
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.