Til meld og fra meld nyheds brev
Hey har lidt problemer med denne kode:---------------kode-----------------------
<center>Tilmeld/Frameld vores nyhedsbrev:</center>
<form action="default.asp?tilmeld=ja" method="post">
<table align="center" width="200" height="98" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="200" height="98" bgcolor="#99CC99"><br /><center>E-mail:<br />
<input type="text" name="mail" />
<br />
<input type="submit" name="submit" value="Tilmeld" />
</form>
<form action="default.asp?tilmeld=nej" method="post">
<input type="submit" value="Frameld" />
</form>
<%
email = replace(request.form("mail"),"'","")
response.Write email
'henter querystring tilmeld og tjekker om det er li nej
if request.QueryString("tilmeld") = "nej" then
SET rss = conn.execute("SELECT * FROM tilmeldtnyhed WHERE mail = '"& email &"'")
if email = rss("id") THEN
conn.execute("DELETE FROM tilmeldtnyhed WHERE mail = '"& email &"'")
response.write "Du er nu frameldt nyhedsbrevet"
else
response.write "din mail er slettet, eller eksistere ikke i databasen"
end if
response.write "FEJL!" & email
end if
'henter querystring tilmeld og tjekker om det er li ja
if request.QueryString("tilmeld") = "ja" Then
'insætter mail i databasen tilmeldnyhed
conn.execute("INSERT INTO tilmeldtnyhed (mail) VALUES('"& email &"')")
'udskriver dette hvis der ingen fjel er i insættelsen
response.write "<center>Du er nu tilmeldt vores nyhedsbrev</center>"
'lukker forbindelsen
Conn.Close
end if
%></center></td>
</tr>
</table>
---------------------/kode------------------------
...
Fjel:
(0x80020009)
Exception occurred.
/MyWeb/viborg_villa/default.asp, line 60
line 60 er denne line "if email = rss("id") THEN"
...
Håber nogen kan hjælpe?
