mailingliste virker ikke
Hey :-)Nogle der gider rette i denne, så den virker.
Den tilmelder fint, og virker også fint med chek på om mailen allerede findes hvis man prøver at tilmelde den samme mail-adr. igen...
Men når man skal afmelde sig siger den at mailen IKKE findes.
http://www.cms24.dk/mailingliste/mailingliste.asp
-----------------------
mailingliste.asp
-----------------------
<html>
<head>
<script language="javascript">
function emailadresse () {
var nyvar = document.tilmeld.Mail.value;
document.afmeld.Mail.value = nyvar
}
</script>
</head>
<body>
<form action="mailingliste_check.asp" method="post" name="tilmeld">
<input type="hidden" name="valgtype" value="tilmeld">
Skrev din E-mail adr. herunder:<br>
<input type="text" name="Mail" size="30">
<br>
<input type="submit" value="Tilmeld">
</form>
<form action="mailingliste_check.asp" method="post" name="afmeld">
<input type="hidden" name="Mail">
<input type="hidden" name="valgtype" value="afmeld">
<input type="submit" value="Afmeld">
</form>
</body>
</html>
-----------------------
mailingliste_check.asp
-----------------------
<!--#INCLUDE FILE=ADOVBS.INC-->
<html>
<head>
<script language="javascript">
function emailadresse () {
var nyvar = document.tilmeld.Mail.value;
document.afmeld.Mail.value = nyvar
}
</script>
</head>
<body>
<!-- Tjekker om type af valg start -->
<%
'---------------Streng checker-------------------
Function ChkString(string)
if string = "" then string = " "
ChkString = Replace(string, "'", "''")
End Function
'------------------------------------------------
if request.form("valgtype") = "tilmeld" then
etemp = request.form("Mail")
temptaeller = 0
Set cn = Server.CreateObject("ADODB.Connection")
OpenString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("../db/ubc/mail.mdb")
cn.Open OpenString
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "SELECT * FROM mailingliste where Mail='" & etemp & "'", cn, adOpenKeySet, adCmdTable
do while not rs.eof
temptaeller = temptaeller + 1
rs.movenext
Loop
if temptaeller = 0 then
rs.addnew
rs("Mail") = ChkString(request.form("Mail"))
rs.update
else
end if
rs.close
cn.close
%>
<% if temptaeller = 0 then %>
<b>Du er nu tilmeldt.</b><br><br>
Du er nu blevet tilmeldt vores maillingliste, og vil modtage vores nyhedsbrev
<% else %>
<b>Du <u>er</u> tilmeldt.</b><br><br>
Du er allerede oprettet på vores maillingliste, og kan derfor ikke blive oprettet igen.
<% end if %>
<%
end if
if request.form("valgtype") = "afmeld" then
etemp = request.form("Mail")
Set cn = Server.CreateObject("ADODB.Connection")
OpenString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("../db/ubc/mail.mdb")
cn.Open OpenString
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "SELECT * FROM mailingliste where Mail='" & etemp & "'", cn, adOpenKeySet, adCmdTable
if rs.eof = true then
tempmode = "ja"
else
rs.delete
end if
rs.close
cn.close
if tempmode = "ja" then
%>
<b>Fejl.</b><br><br>
Din E-mail adresse findes ikke på vores mailingliste, dette kan<br>skyldes 2 ting:<br><br>
• Du har skrevet din E-Mail adresse forkert.
<br>
• Du har allerede afmeldt dig på vores mailingliste.
<%
else
%>
<b>Du er nu afmeldt.</b><br><br>
Såfremt du ønsker at modtage vores nyhedsbrev en anden gang, <br>
kan du altid tilmelde dig igen.
<%
end if
end if
%>
<!-- Tjekker om type af valg slut!-->
</body>
</html>
