Dette er HTML-delen:
<div class="leftmain">
<div class="overskrift2">Nyhedsbrev</div></p>
Vi udsender et nyhedsbrev hver måned. Du kan tilmelde dig her.
<form action="nyhedsbrev.asp" method="post">
<fieldset>
<div>
<label for="t1">Navn:</label><input type="text" name="navn" id="t1"></p>
<label for="t2">E-mail:</label><input type="text" name="email" id="t2"></p>
</div>
<div>
<label for="t3">Vælg:</label>
<input type="submit" value="Tilmeld" id="submit" name="tilmeld">
<input type="submit" value="Afmeld" id="submit" name="afmeld">
</div>
</fieldset>
</form>
</div></br>
Og her NYHEDSBREV.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="
http://www.w3.org/1999/xhtml"><head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>
<body>
<%
'opretter forbindelse til databasen.
Set rs = Server.CreateObject("ADODB.Connection")
'Husk at angive den rigtige sti til din database
str = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ka_database10x.mdb")
rs.open str
if request.form("tilmeld") <> "" then
'har brugeren trykket på tilmeld?
navn = replace(request.form("navn"), "'", "")
email = replace(request.form("email"), "'", "")
sql = "SELECT * FROM nyhedsbrev WHERE navn = '"&navn&"' AND email = '"&email&"'"
set rsTest = rs.execute(sql)
'tjekker om brugeren allerede er tilmeldt.
if not rsTest.eof then
'brugeren er allerede tilmeldt.
response.write "Du er allerede tilmeldt."
else
'brugeren er ikke tilmeldt, så gemmer hans oplysninger i databasen.
sql = "INSERT INTO nyhedsbrev(navn, email) VALUES('"&navn&"','"&email&"')"
rs.execute(sql)
response.write "Du er nu tilmeldt nyhedsbrevet."
elseif request.form("afmeld") <> "" then
'er der trykket på afmeld?
navn = replace(request.form("navn"), "'", "''")
email = replace(request.form("email"), "'", "")
sql = "DELETE FROM nyhedsbrev WHERE navn = '"&navn&"' AND email = '"&email&"'"
rs.execute(sql)
response.write "Du er nu afmeldt nyhedsbrevet."
else
'der er ikke udfyldt noget i formen, og den vises derfor.
response.write "Der skete en fejl"
end if
%>
</body>
</html>
PS: Er gået i gang med asp-tutorial ;-)
