|
Mycket flitig postare
|
|
Reg.datum: Jan 2003
Inlägg: 935
|
|
Mycket flitig postare
Reg.datum: Jan 2003
Inlägg: 935
|
Här är hela källkoden för sidan
Observera att där fortfarande finns ganska mycket testvärden kvar i koden. Än så länge går det t.ex. inte att skicka några e-mail, e-mailen printas bara ut på skärmen så som användaren sen kommer att få dem.
<?php
include '../inc/func.php';
print "<HTML><BODY>
<H1>Utskick</H1>
";
if($validator=="preview" && isset($annonsRubrik) && isset($annons) && isset($targetSex) && isset($targetLBirth) && isset($targetUBirth) && isset($targetCompany)) {
$link = DatabaseConnect() or die("Could not connect");
mysql_select_db("projekt") or die("Could not select database");
$query = "SELECT ForNamn, EfterNamn, email, lastLogin FROM Members WHERE birth BETWEEN $targetLBirth AND $targetUBirth AND lastLogin BETWEEN $lastLoginL AND $lastLoginU";
if ($targetSex!=0) {
$query .= " AND sex='$targetSex'";
}
if ($targetCompany!=0) {
$query .= " AND company='$targetCompany'";
}
$result = mysql_query($query) or die("Error in Query: $query. mySQL said " . mysql_error() . '.');
$rader = mysql_num_rows($result);
if ($rader==0) {
print "No matching members
";
}
else {
print "Target: $rader members
";
}
while (list ($ForNamn, $EfterNamn, $email, $lastLogin) = mysql_fetch_row ($result)) {
print $annons . "
";
}
mysql_free_result($result);
mysql_close($link);
}
if($validator=="send" && isset($annonsRubrik) && isset($annons) && isset($targetSex) && isset($targetLBirth) && isset($targetUBirth) && isset($targetCompany)) {
print "sending e-mails...";
$link = DatabaseConnect() or die("Could not connect");
mysql_select_db("projekt") or die("Could not select database");
$query = "SELECT ForNamn, EfterNamn, email FROM Members WHERE birth BETWEEN $targetLBirth AND $targetUBirth AND lastLogin BETWEEN $lastLoginL AND $lastLoginU";
if ($targetSex!=0) {
$query .= " AND sex='$targetSex'";
}
if ($targetCompany!=0) {
$query .= " AND company='$targetCompany'";
}
$result = mysql_query($query) or die("Error in Query: $query. mySQL said " . mysql_error() . '.');
while (list ($ForNamn, $EfterNamn, $email) = mysql_fetch_row ($result)) {
print "$ForNamn $EfterNamn - $email
";
}
mysql_free_result($result);
mysql_close($link);
}
elseif(isset($validator)) {
print "there were errors";
}
utskickForm($annonsRubrik, $annonsTyp, $annons, $targetSex, $targetLBirth, $targetUBirth, $targetCompany, $lastLoginL, $lastLoginU);
print "</BODY></HTML>";
function utskickForm($annonsRubrik, $annonsTyp, $annons, $targetSex, $targetLBirth, $targetUBirth, $targetCompany, $lastLoginL, $lastLoginU) {
print "
<TABLE BORDER=0 CELLPADDING=2 CELLSPACING=0 BGCOLOR=#EEEEEE>
<FORM METHOD=POST>
<TR>
<TD>AnnonsRubrik</TD>
<TD><INPUT TYPE=text NAME=annonsRubrik VALUE=$annonsRubrik></TD>
</TR>
<TR>
<TD BGCOLOR=#FFFFFF COLSPAN=3>
Target visitors</TD>
</TR>
<TR>
<TD>Sex</TD>
<TD><SELECT NAME=targetSex SIZE=1><OPTION VALUE=0 SELECTED>both</OPTION>
<OPTION VALUE=1>Males</OPTION>
<OPTION VALUE=2>Females</OPTION>
</SELECT></TD>
</TR>
<TR>
<TD>Birthyear of oldest</TD>
<TD><INPUT TYPE=text NAME=targetLBirth SIZE=4 MAXLENGTH=4 VALUE=";
if($targetLBirth) {
print $targetLBirth;
}
else {
print "1900";
}
print"></TD>
</TR>
<TR>
<TD>Birthyear of youngest</TD>
<TD><INPUT TYPE=text NAME=targetUBirth SIZE=4 MAXLENGTH=4 VALUE=";
if(isset($targetUBirth)) {
print $targetUBirth;
}
else {
print "2050";
}
print "></TD>
</TR>
<TR>
<TD>Target Company/Person</TD>
<TD><SELECT NAME=targetCompany SIZE=1><OPTION VALUE=0 SELECTED>both</OPTION>
<OPTION VALUE=1>person</OPTION>
<OPTION VALUE=2>company</OPTION>
</SELECT></TD>
</TR>
<TR>
<TD>lastLogin Lower</TD>
<TD><INPUT TYPE=TEXT NAME=lastLoginL SIZE=19 VALUE=";
if (isset($lastLoginL)) {
print $lastLoginL;
}
else {
print "00000000000000";
}
print "></TD>
</TR>
<TR>
<TD>lastLogin Upper</TD>
<TD><INPUT TYPE=TEXT NAME=lastLoginU SIZE=19 VALUE=";
if (isset($lastLoginU)) {
print $lastLoginU;
}
else {
print date("YmdHis");
}
print "> <INPUT TYPE=SUBMIT NAME=validator VALUE=preview></TD>
</TR>
<TR>
<TD BGCOLOR=#FFFFFF COLSPAN=3>
Annons</TD>
</TR>
<TR>
<TD COLSPAN=2><TEXTAREA NAME=annons COLS=40 ROWS=4>$annons</TEXTAREA>
</TD>
<TD ALIGN=CENTER VALIGN=MIDDLE><INPUT TYPE=SUBMIT NAME=validator VALUE=send></TD>
</TR>
</TABLE>
</FORM>";
}
?>
|