webForumDet fria alternativet

E-postgrupper för nyhetsbrev

ASPur ASP

0 svar · 286 visningar · startad av Calippo

CalippoMedlem sedan aug. 2002536 inlägg
#1

Jag vill skapa e-postgrupper för ett nyhetsbrev.

Jag har en Access databas som innehåller en tabell med Företagsuppgifter och domännamn.

En tabell innehåller e-postadresserna (utan domännamnet). Själva domännamnet hämtas från föregående tabell.

En tredje tabell ska innehålla e-postadresserna som ska vara med i nyhetsbrevet.

Hur ska man skriva asp koden för att spara de tilllagda adresserna i en tabell.
Ska man spara id:et från varje adress och separera dem med kommatecken och sedan splitta dem med array?
Själva javaskriptet lägga till/ta bort ur select-rutorna är redan klara, se skriptet nedan.

Någon som kan hjälpa mig med själva asp koden?

<html>
<head>
<title></title>

<style>
.mainInput250
{
	font-family:arial,tahoma;
	font-size:12px;
	font-weight:normal;
	color:#000000;
	width:250px;
}
</style>

<SCRIPT LANGUAGE="JavaScript">

<!-- This script and many more are available free online at -->
<!-- The JavaScript Source!! http://javascript.internet.com -->

<!-- Begin
sortitems = 1;  // Automatically sort items within lists? (1 or 0)

function move(fbox,tbox) {
for(var i=0; i<fbox.options.length; i++) {
if(fbox.options[i].selected && fbox.options[i].value != "") {
var no = new Option();
no.value = fbox.options[i].value;
no.text = fbox.options[i].text;
tbox.options[tbox.options.length] = no;
fbox.options[i].value = "";
fbox.options[i].text = "";
   }
}
BumpUp(fbox);
if (sortitems) SortD(tbox);
}
function BumpUp(box)  {
for(var i=0; i<box.options.length; i++) {
if(box.options[i].value == "")  {
for(var j=i; j<box.options.length-1; j++)  {
box.options[j].value = box.options[j+1].value;
box.options[j].text = box.options[j+1].text;
}
var ln = i;
break;
   }
}
if(ln < box.options.length)  {
box.options.length -= 1;
BumpUp(box);
   }
}

function SortD(box)  {
var temp_opts = new Array();
var temp = new Object();
for(var i=0; i<box.options.length; i++)  {
temp_opts[i] = box.options[i];
}
for(var x=0; x<temp_opts.length-1; x++)  {
for(var y=(x+1); y<temp_opts.length; y++)  {
if(temp_opts[x].text > temp_opts[y].text)  {
temp = temp_opts[x].text;
temp_opts[x].text = temp_opts[y].text;
temp_opts[y].text = temp;
temp = temp_opts[x].value;
temp_opts[x].value = temp_opts[y].value;
temp_opts[y].value = temp;
      }
   }
}
for(var i=0; i<box.options.length; i++)  {
box.options[i].value = temp_opts[i].value;
box.options[i].text = temp_opts[i].text;
   }
}
// End -->
</script>

</head>

<body bgcolor="#f4f4f4" topmargin="20" leftmargin="20" marginheight="20" marginwidth="20">
<form method="post" action="newsGroups.asp?action=save" name="form1">
<table border="0" cellpadding="0" cellspacing="0" width="600">
<tr>
<td width="250">
<select class="mainInput250" multiple name="list1" size="10">
<option value="13">anna@anna.com</option>
<option value="12">bertil@bertil.se</option>
<option value="11">cesar@cesar.nu</option>
</select>
</td>
<td width="100" align="center"><input type="button" class="mainButton2" value="   >>   " onClick="move(this.form.list1,this.form.list2)" name="B1"><br>
<input type="button" class="mainButton2" value="   <<   " onClick="move(this.form.list2,this.form.list1)" name="B2"></td>
<td width="250">
<select class="mainInput250" multiple name="list2" size="10">
<option value="20">david@david.nu</option>
<option value="22">erik@erik.com </option>
</select>
</td>
</tr>
</table>
</form>
</body>
</html>
133 ms totalt · 3 externa anrop · v20260731065814-full.29ac60f6
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
127 ms — hämta tråd, inlägg och bilagor (db)