En der vil lavet et simpel nyhedsbrev script ?

indsæt dette hvor man tilmelder/framelder sig:

<form action="Nyhedsbrev.asp" style="margin:0px; padding:0px "><input type="text" style="width:160px; height:18px; font-family:tahoma; font-size:11px; border:1px solid #6D6D6D" size="20" name="TxtNyhedsbrev" value="email@email.dk"><br>
<br style="line-height:4px ">
  <table border="0" width="160" cellspacing="1" cellpadding="0">
    <tr>
      <td width="100"><input name="CmdFrameld" type="image" src="images/frameld.jpg" width="59" height="20" align="right"></td>
      <td width="60"><input name="CmdTilmeld" type="image" src="images/submit.jpg" width="59" height="20" align="right"></td>
    </tr>
  </table>

</form>

-----------------------------
nyhedsbrev.asp:
<%
'---------------------------------------
If Request.QueryString("CmdTilmeld") <> "" Then
'---------------------------------------
SQL = "SELECT * " &_
        "FROM Nyhedsbrev"
Set RS = DBConn.Execute(SQL)

findes = false
While not RS.eof
    If lcase(RS("Email")) = lcase(Request.QueryString("TxtNyhedsbrev")) Then findes = true
RS.MoveNext
Wend

gyldig = true
If  lcase(Request.QueryString("TxtNyhedsbrev"))  = "email@email.dk" Then gyldig = false
If  lcase(Request.QueryString("TxtNyhedsbrev"))  = "" Then gyldig = false
If InStr(Request.QueryString("TxtNyhedsbrev"), "@") = 0 Then gyldig = false
If InStr(Request.QueryString("TxtNyhedsbrev"), ".") = 0 Then gyldig = false

If gyldig = true Then

    If findes = false Then
        SQL =     "INSERT INTO Nyhedsbrev " &_
                "VALUES ('" & lcase(Request.QueryString("TxtNyhedsbrev")) & "')"
        DBConn.Execute(SQL)
    %>
<font size="4">
Tak for din tilmelding!</font><br> 
<br>
<p>
Du vil fremover få tilsendt en e-mail når der er nyt på hjemmesiden.<br> 
Beskeden bliver sendt til e-mail adressen: <b><% =Request.QueryString("TxtNyhedsbrev") %></b><br>                                                                                                                                                                                                                                                                                   
</p>
<p>Med venlig hilsen</p>
<p>AFSENDER
<%
    End if

    If findes = true Then
    %>
<font size="4">
Allerede tilmeldt!</font><br> 
<br>
<p>
Du er allerede tilmeldt nyhedsbrevet.<br>
Beskederne bliver sendt til e-mail adressen: <b><% =Request.QueryString("TxtNyhedsbrev") %></b><br>                                                                                                                                                                                                                                                                                 
</p>
<p>Med venlig hilsen</p>
<p>AFSENDER
<%
    End if

Else
%>
<font size="4">
Ugyldig e-mail adresse!</font><br> 
<br>
<p>
Den indtastede email adresse er ikke gyldig!<br>
Skriv venligst en korrekt e-mail adresse.<br>                                                                                                                                                                                                                                                                                 
</p>
<p>Med venlig hilsen</p>
<p>AFSENDER
<%
End if
%>
<%
'---------------------------------------
End if
'---------------------------------------
%>

<%
'---------------------------------------
If Request.QueryString("CmdFrameld") <> "" Then
'---------------------------------------
    SQL =     "DELETE FROM Nyhedsbrev " &_
            "WHERE (Email = '" & lcase(Request.QueryString("TxtNyhedsbrev")) & "')"
    DBConn.Execute(SQL)
    %>
<font size="4">
Du er nu frameldt!</font><br> 
<br>
<p>
Du vil fremover IKKE få tilsendt en e-mail når der er nyt på hjemmesiden.<br> 
E-mail adresse som er frameldt: <b><% =Request.QueryString("TxtNyhedsbrev") %></b><br>                                                                                                                                                                                                                                                                                   
</p>
<p>Med venlig hilsen</p>
<p>AFSENDER
<%
'---------------------------------------
End if
'---------------------------------------
%>



---------------------------
Admin kode til at afsende nyhedsbrevet:
<%
    Server.ScriptTimeOut = 3600
    Session("FaaetNhb") = ""
    for each optID in request.form("LstMed")
    '-------------------------------------------
        Dim objMail
        Set objMail = Server.CreateObject("JMail.Message")
        objMail.FromName = "Nyhedsbrev AFSENDER"
        objMail.From = "nyhedsbrev@domæne.dk"
        objMail.AddRecipient optID
        objMail.Subject = "Nyhedsbrev fra AFSENDER"

        objMail.Body = "SKRIV NYHEDSBREV HER"

        objMail.Logging = True
        objMail.Silent = True
        objMail.Send("mail.domæne.dk")
    '-------------------------------------------
    next

    Response.Write("Nyhedsbreve sendt!")
%>


Du skal lave en database med en tabel ved navn "Nyhedsbrev" som har et felt ved navn "Email"

i admin skal request.form("LstMed") være en listbox med alle de emails der skal sendes til. Det kan evt laves om til at hente alle emails'ne fra databasen

Må desvære afvise dit svar, jeg kan desvære ikke bruge det. En anden gang kig hvor spørgsmålet ligger, vi er i Programmeringsopgaver :: PHP
Så skal det nok ikke være ASP?

MEN!!!

Har ikke forstand på ASP, men hvis man kan ligge det oveni en php side?
Man kan vel lave den uden for siden, også iframe/include den?

Ved ikke alt det med mssql hvordan det forgår, kun mySQL.

Kan ikke bruge det, b-one understøtter ikke asp net.
:(

Har ikke lige noget kode liggende, men kan du ikke bruge dette:

http://www.phpuniverset.dk/show_source.phtml?script_id=41

Der findes en del scripts omkring på nettet, så du kan sikkert også finde noget via google.

Har prøvet den før, den jeg har og det virker ikke :-(

asp og php minder meget om hinanden.. du kan hurtigt skrive et php script ud fra ideen i min kode..

Eller skriv en selv.. det er ikke det sværeste i verden :o)

Jo ellers laver jeg jo ikke et spørgsmål????

Hvis det er så nemt? Hvorfor pokker gør du det så ikke bare??

det gider jeg da ikke for at få nogle latterlige point på en hjemmeside..

Så lad være.

Lukker