01. marts 2005 - 14:47Der er
5 kommentarer og 1 løsning
Tilmelding af nyhedsbrev
Hej
Jeg har brug for råd om hvordan man laver den funktion, der tillader at min tilmelder sig et nyhedsbrev.
Jeg er ved at lave en side, hvor jeg gerne vil have implementeret denne funktion. Det skal altså være muligt at indtaste sin email og trykke "tilmeld nyhedsbrev".
Kan man lave det uden at skulle inddrage database og ASP (som jeg ikke aner noget om)?
Er det noget der kort kan forklares, eller har I nogle links til en side hvor man kan hente noget koderi?
Det bliver nok svært uden nået asp eller andet kodesprog Du kan bruge Jmail og så få tilsendt en mail til dig selv hvis dit webhotel understøtter dette.
Det bliver nok svært uden ASP eller en database, da du jo skal gemme oplysningerne et sted p åserveren (og trække dem ud igen). Det mest effektive er helt klart en database/ASP løsning.
Du kan godt undvære databasen, men så skal det gemmes i en fil (mere besværlig).
Og skal du også undvære ASP, skal du til at lave noget script, som bliver kørt på serveren, men jeg ved ikke engang om man kan oprette/ændre i den samme fil på denne måde. Det skal så være noget i denne stil:
<body> <script runat="server" LANGUAGE="JavaScript" TYPE="text/javascript"> ... noget kode her ... </script>
Der skal ikke så meget til. Dette burde virke (ikke testet). Der mangler bare en database og en connection:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>Til/afmeld</title> </head> <body> <% scriptname = Request.ServerVariables("SCRIPT_NAME") mode = Request.querystring("mode") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "databaseConnection" if mode = "til" then set rs = conn.execute("select * from nyhedsbrev where email='"& replace(Request.Form("email"),"'","''") &"'") if rs.eof then conn.execute("insert into nyhedsbrev(email) values('"& replace(Request.Form("email"),"'","''") &"')") Response.write "email er nu tilmeldt." else Response.write "email allerede tilmeldt." end if elseif mode = "af" then amountDel = 0 conn.execute "delete from nyhedsbrev where email='"& replace(Request.Form("email"),"'","''") &"'", amountDel if amountDel > 0 then Response.write "email er slettet." else Response.write "email eksistere ikke." end if end if conn.close %> <form name="myForm" method="post"> <input type="Text" name="email" value=""><br> <input type="Button" value="Tilmeld" onClick="this.form.action='<%= scriptname %>?mode=til'"> <input type="Button" value="Afmeld" onClick="this.form.action='<%= scriptname %>?mode=af'"> </form> </body> </html>
Databasen skal have en tabel der hedder nyhedsbrev og en kolonne her der hedder email. En connection til en Access database kunne være: Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("Database.mdb;")
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
