Jeg har bokset med samme problem og fundet ud af, at det pga begrænsningen i længen på et hyperlink ikke kan gøres med en alm mailto!
Jeg har løst problemet ved at lave en søgefunktion, der udvælger den rigtige gruppe og derefter brugt fælgende:
<html>
<head>
<title>New Page 1</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<style>
.highlighttext{
background-color:yellow;
font-weight:bold;
}
</style>
<script language="Javascript">
<!--
/*
Select and Copy form element script- By Dynamicdrive.com
For full source, Terms of service, and 100s DTHML scripts
Visit
http://www.dynamicdrive.com*/
//specify whether contents should be auto copied to clipboard (memory)
//Applies only to IE 4+
//0=no, 1=yes
var copytoclip=1
function HighlightAll(theField) {
var tempval=eval("document."+theField)
tempval.focus()
tempval.select()
if (document.all&©toclip==1){
therange=tempval.createTextRange()
therange.execCommand("Copy")
window.status="Contents highlighted and copied to clipboard!"
setTimeout("window.status=''",1800)
}
}
//-->
</script>
</head>
<body>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT Email2 FROM Users Where Email2 <> ''"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("dindatabase.mdb")
rs.Open strSQL, strDSN, 1
%>
<form name="test">
<a class="highlighttext" href="java script:HighlightAll('test.select1')"><p>Klik her for at kopiere til udklipsholder</a><br>
<textarea name="select1" rows="10" cols="35"><%
Do While Not rs.EOF
Response.Write rs("email2") & ";"
rs.MoveNext
Loop
%>
</textarea>
</p>
</form>
<%
rs.Close
Set rs = Nothing
%>
</body>
</html>