<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("db/nyhedsbrev.mdb")
Conn.Open DSN
%>
<html>
<% if request("mode") = "1" then
SQL = "INSERT INTO mailingliste ( navn, email ) values ('" & request("Fornavn") & "', '" & request("E-mailadressen") & "')"
conn.execute (SQL)
response.write "<HEAD><title>Nyhedsbrev</title><LINK REL=stylesheet HREF='text.css' TYPE=text/css></HEAD><BODY><center><BR><BR><table width=400><tr><td><BR><BR><BR><I><CENTER>Du er nu blevet tilmeldt vores nyhedsliste.</CENTER></I></td></tr></table></center></BODY>"
elseif request("mode") = "2" then
SQL = "DELETE FROM mailingliste WHERE Email = ('" & request("E-mailadressen") & "')"
conn.execute (SQL)
response.write "<HEAD><title>Nyhedsbrev</title><LINK REL=stylesheet HREF='text.css' TYPE=text/css></HEAD><BODY><center><BR><BR><table width=400><tr><td><BR><BR><BR><I><CENTER>Du er nu blevet fjernet fra nyhedslisten.</CENTER></I></td></tr></table></center></BODY>"
else
%> <LINK REL="stylesheet" HREF="text.css" TYPE="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_validateForm() { //v4.0
var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
if (val) { nm=val.name; if ((val=val.value)!="") {
if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
if (p<1 || p==(val.length-1)) errors+='- '+nm+' er ikke gyldig!\n';
} else if (test!='R') { num = parseFloat(val);
if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
min=test.substring(8,p); max=test.substring(p+1);
if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' skal udfyldes.\n'; }
} if (errors) alert('Følgende fejl opstod:\n'+errors);
document.MM_returnValue = (errors == '');
}
//-->
</script>
<BODY BGCOLOR="#FFFFFF" LEFTMARGIN="5" TOPMARGIN="5" MARGINWIDTH="5" MARGINHEIGHT="5">
<P align="center"> </P>
<P align="center">Du kan her tilmelde/afmelde dig vores nyhedsbrev</P>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="2" width="400" align="center">
<TR>
<TD COLSPAN="2" ALIGN="CENTER"> </TD>
</TR>
<form action="mailingliste.asp" METHOD="POST">
<TR>
<TD height="30">
<div align="left">Dit fornavn:</div>
</TD>
<TD height="30">
<div align="left">
<input type="text" name="Fornavn" size="23" CLASS="text200">
<br>
</div>
</TD>
</TR>
<TR>
<TD height="30">
<div align="left">Din e-mailadresse:</div>
</TD>
<TD height="30">
<div align="left">
<input type="text" name="E-mailadressen" size="23" CLASS="text200">
<br>
</div>
</TD>
</TR>
<TR>
<TD height="30">
<div align="left">Jeg vil tilmeldes<input type="radio" name="mode" VALUE="1" checked></div>
</TD>
<TD height="30">
<div align="left">Jeg vil afmeldes<input type="radio" name="mode" VALUE="2"></div>
</TD>
</TR>
<br>
<BR>
<TR>
<TD VALIGN="TOP">
<div align="left"></div>
</TD>
<TD ALIGN="RIGHT">
<div align="left">
<input type="submit" class="knap100" onClick="MM_validateForm('Fornavn','','R','E-mailadressen','','RisEmail');return document.MM_returnValue" value="OK">
</div>
</TD>
</TR>
</form>
</TABLE>
<% end if %>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
