Flyt værdi fra en select til en anden select
Har denne kode som umiddelbart virker, jeg kan bare ikke få den til at tilføje modtagerne fra "GroupTo"Håber nogen kan hjælpe....
<%
If Request.Querystring("send") = "" then
%>
<!--#include file="connection.inc"-->
<%
strSQL = "Select * From Brodre"
Set rs = Conn.Execute(strSQL)
%>
<center>
<script src="valid_mail.js" type="text/javascript"></script>
<form action="mail.asp?send=ja" method="post" onsubmit="validering();return false;">
<table width="400px" style="font-size:13px;" cellspacing="0">
<tr>
<td align="center">
<select name="GroupFrom" size="6" multiple style="width:175px" onDblClick="java script:addSingle('Group')">
<%
if Rs.EOF or Rs.BOF then
Response.Write "<i>Der var ingen brødre i databasen...</i>"
else
Do until Rs.EOF
Response.Write "<option value='" & rs("Email") & "'>" & rs("Fornavn") & " " & rs("Efternavn") & "</option>"
Rs.MoveNext
Loop
End if
rs.close
%>
</select>
</td>
<td align="center">
<input type="button" class="knap" id="GroupBut1" value=" > " onClick="java script:addSelected('Group')"><br>
<input type="button" class="knap" id="GroupBut2" value=">>" onClick="java script:addAll('Group')"><br>
<input type="button" class="knap" id="GroupBut3" value="<<" onClick="java script:removeAll('Group')"><br>
<input type="button" class="knap" id="GroupBut4" value=" < " onClick="java script:removeSelected('Group')">
</td>
<td align="center">
<select name="GroupTo" size="6" multiple style="width:175px" onDblClick="java script:removeSingle('Group');">
</select>
</td>
</tr>
</table>
<table width="400px" style="font-size:13px;" cellspacing="0">
<tr>
<td height="10px"></td>
</tr>
<tr>
<td>Overskrift:</td><td><input type="text" size="49" name="emne"></td>
</tr>
<tr>
<td height="10px"></td>
</tr>
<tr>
<td colspan="2">Besked i mailen (html):</td>
</tr>
<tr>
<td colspan="2"><textarea name="indhold" cols="47" rows="10"></textarea></td>
</tr>
<tr>
<td colspan="2"><hr style="color:#666666;"></td>
</tr>
<tr>
<td colspan="2"><b>Afsenderinformation:</b></td>
</tr>
<tr>
<%
strSQL2 = "Select * From Brodre WHERE brugernavn = '" & Replace(Session("bruger"),"'","''") & "'"
Set rs2 = Conn.Execute(strSQL2)
%>
<td>Afsender:</td><td><input type="text" size="18" name="afsender" value="<%=rs2("Fornavn")%> <%=rs2("Efternavn")%>" disabled> <input type="text" size="18" name="afsendermail" value="<%=rs2("Email")%>" disabled></td>
</tr>
<tr>
<td colspan="2"><hr style="color:#333333;"></td>
</tr>
<tr>
<td><input type="reset" value="Nulstil"></td><td align="right"><input type="submit" value="Send mail" onClick="return confirm('Klar til at sende mail?'); history.go()"></td>
</tr>
</table>
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
<!--
function addAll(navn) {
while (document.getElementById(navn+'From').length>0) {
document.getElementById(navn+'To')[document.getElementById(navn+'To').length] = new Option(document.getElementById(navn+'From')[0].text,document.getElementById(navn+'To').length);
document.getElementById(navn+'To')[document.getElementById(navn+'To').length-1].value = document.getElementById(navn+'From')[0].value;
document.getElementById(navn+'From')[0]=null;
}
}
function removeAll(navn) {
while (document.getElementById(navn+'To').length>0) {
document.getElementById(navn+'From')[document.getElementById(navn+'From').length] = new Option(document.getElementById(navn+'To')[0].text,document.getElementById(navn+'From').length);
document.getElementById(navn+'From')[document.getElementById(navn+'From').length-1].value = document.getElementById(navn+'To')[0].value;
document.getElementById(navn+'To')[0]=null;
}
}
function addSelected(navn) {
var x = 0;
while (x<document.getElementById(navn+'From').length) {
if (document.getElementById(navn+'From')[x].selected == true) {
document.getElementById(navn+'To')[document.getElementById(navn+'To').length] = new Option(document.getElementById(navn+'From')[x].text,document.getElementById(navn+'To').length);
document.getElementById(navn+'To')[document.getElementById(navn+'To').length-1].value = document.getElementById(navn+'From')[x].value;
document.getElementById(navn+'From')[x]=null;
}
else
x++;
}
}
function removeSelected(navn) {
var x = 0;
while (x<document.getElementById(navn+'To').length) {
if (document.getElementById(navn+'To')[x].selected == true) {
document.getElementById(navn+'From')[document.getElementById(navn+'From').length] = new Option(document.getElementById(navn+'To')[x].text,document.getElementById(navn+'From').length);
document.getElementById(navn+'From')[document.getElementById(navn+'From').length-1].value = document.getElementById(navn+'To')[x].value;
document.getElementById(navn+'To')[x]=null;
}
else
x++;
}
}
function addSingle(navn) {
if (document.getElementById(navn+'From').selectedIndex >= 0) {
document.getElementById(navn+'To')[document.getElementById(navn+'To').length] = new Option(document.getElementById(navn+'From')[document.getElementById(navn+'From').selectedIndex].text,document.getElementById(navn+'To').length);
document.getElementById(navn+'To')[document.getElementById(navn+'To').length-1].value = document.getElementById(navn+'From')[document.getElementById(navn+'From').selectedIndex].value;
document.getElementById(navn+'From')[document.getElementById(navn+'From').selectedIndex]=null;
}
}
function removeSingle(navn) {
if (document.getElementById(navn+'To').selectedIndex >= 0) {
document.getElementById(navn+'From')[document.getElementById(navn+'From').length] = new Option(document.getElementById(navn+'To')[document.getElementById(navn+'To').selectedIndex].text,document.getElementById(navn+'From').length);
document.getElementById(navn+'From')[document.getElementById(navn+'From').length-1].value = document.getElementById(navn+'To')[document.getElementById(navn+'To').selectedIndex].value;
document.getElementById(navn+'To')[document.getElementById(navn+'To').selectedIndex]=null;
}
}
//-->
</SCRIPT>
</form>
</center>
<%
Else
Emne = Request.Form("emne")
Indhold = Request.Form("indhold")
Fuldenavn = Request.Form("fnavn") & " " & Request.Form("enavn")
Email = Request.Form("GroupTo")
Afsender = Request.Form("afsender")
Afmail = Request.Form("afsendermail")
htmlbody = "<html><head><link rel=""stylesheet"" type=""text/css"" href=""http://elitesociety.dk/mail_layout.css""></head><body><div class=""outer""><div class=""banner""><img src=""http://elitesociety.dk/layout/images/Logo_top.jpg""></div><div class=""content"">"
htmlbody = htmlbody & "<br><br><br>" & Afsender & " har sendt følgende besked fra Elite Society:<br><hr style=""color:#666666;""><br>" & Indhold & "<br><br><a href=""http://elitesociety.dk"">Elite Society</a>"
htmlbody = htmlbody & "</div><div class=""footer"">© 2006 - Elite Society</div></body></html>"
set msg = Server.CreateOBject("JMail.Message")
msg.Logging = true
msg.From = Afmail
msg.FromName = "Elite Society - " & Afsender
msg.AddRecipient Email
msg.Subject = Request.Form("Emne")
msg.HTMLBody = htmlbody
msg.ContentType = "text/html"
msg.ISOEncodeHeaders = false
msg.Priority = false
msg.MailDomain = "mail.xxxxx.dk"
msg.MailServerUserName = "xxxx@xxxxxx.dk"
msg.MailServerPassWord = "xxxxx"
msg.Send ("mail.xxxxxxx.dk")
set msg = Nothing
Response.Write("<script>java script:alert('Din mail er nu afsendt.')</script>")
%>
