Lav 3 filer:
- mailingliste.asp
- process.asp
- db.mdb (Access Databasen)
Databasen skal indeholde en tabel \"mailingliste\" med følgende felter:
- ID (primary key)
- email (type: text, required: yes)
------------------
KODE: process.asp:
------------------
<%@ Language = VbScript %>
<HTML>
<%
Dim Conn, Data
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db.mdb\")
If Request.Form(\"chkTilmeld\") = \"on\" Then
Set Data = Conn.Execute (\"SELECT email FROM mailingliste WHERE email=\'\" & Request.Form(\"txtMail\") & \"\'\")
If Data.EOF Then
Conn.Execute (\"INSERT INTO mailingliste (email) VALUES (\'\" & Replace(Request.Form(\"txtMail\"),\"\'\",\"´\") & \"\')\")
%><BODY onload=\"java script:window.open(\'mailingliste.asp?TXT=Du+er+tilmeldt\',\'_self\')\"><%
Else
%><BODY onload=\"java script:window.open(\'mailingliste.asp?TXT=Du+er+allerede+tilmeldt\',\'_self\')\"><%
End If
Data.Close
Set Data = Nothing
ElseIf Request.Form(\"chkAfmeld\") = \"on\" Then
Set Data = Conn.Execute (\"SELECT email FROM mailingliste WHERE email=\'\" & Request.Form(\"txtMail\") & \"\'\")
If Data.EOF Then
Conn.Execute (\"DELETE * FROM mailingliste WHERE email = \'\" & Request.Form & \"\'\")
%><BODY onload=\"java script:window.open(\'mailingliste.asp?TXT=Du+er+slettet\',\'_self\')\"><%
Else
%><BODY onload=\"java script:window.open(\'mailingliste.asp?TXT=Du+er+ikke+tilmeldt\',\'_self\')\"><%
End If
End If
%>
</body>
</html>
----------------------
KODE: mailingliste.asp
----------------------
<HTML>
<HEAD><TITLE>Mailingliste</TITLE></HEAD>
<BODY>
<% If Request.QueryString(\"TXT\") <> \"\" Then %><p><%=Request.QueryString(\"TXT\")%></p><% End If %>
<form name=frmMail action=process.asp method=post>
Din mail: <input name=txtMail size=20> <input type=submit value=\"OK\"><br>
<input type=radio name=chkTilmeld>Tilmeld<br>
<input type=radio name=chkAfmeld>Afmeld</form>
</BODY>
</HTML>
BEMÆRK! Brug ALDRIG FrontPage til at ændre i ASP filer! :)
Mvh. The Portal
