Avatar billede pascinell Nybegynder
26. marts 2003 - 21:57 Der er 2 kommentarer og
1 løsning

Hvordan tilføjer f.eks. formmail til mit asp script

Hej

Jeg vil meget gerne modtage en email når nogen tilmelder eller afmelder sig min side....

Vedlagte kode er min nyhedstilmelding - hvor brugeren bliver genkendt hvis han/hun tilmelder sig mere end en gang og hvor man samtidigt kan afmelde sig.

Men jeg vil som sagt meget gerne modtage en mail - hvor evt. subject/vedr. er fyldt ud med tilmelding eller afmelding.

Gerne via formmail ! - evt. Chili mail

koden som den ser ud nu - men uden at den sender mail til mig.

___

<%
option explicit'skal meldes%>

<!--#include file="configinmax.inc"-->



<%
'setting buffering to true
response.buffer=true
'Variabler
dim useraction
dim conn
dim rs
dim sql
dim dsn
dim DownNumber
dim sql3
dim sql2
dim uemail
dim subs
'----------------------

'afventer svar fra brugeren
useraction=request("action")
select case useraction
case "save"
    Uemail=lcase(request.form("email"))
    subs=request.form("subs")
    set conn=server.createobject("adodb.connection")
    set rs=server.createobject("adodb.recordset")
    sql = "select * from emails where emails='"&Uemail&"'"
    Conn.Open "driver={MySql};server=localhost;database=pascinell1;uid=pascinell2;pwd=pascinell3"
    rs.open sql,conn
    select case subs
    'Hvis nogen tilmelder sig
    case "1"
        if rs.bof and rs.eof then
            sql2="insert into emails(emails) values('"&Uemail&"')"
            conn.execute(sql2)
            response.write "<script>alert('Mange tak - du vil nu fremover modtage relevante nyheder og tilbud fra os!  ')</script>"
        else
            response.write "<script>alert('Du er allerede registreret')</script>"
        end if

   
    'hvis nogen afmelder sig
        case "0"
    if rs.bof and rs.eof then
            response.write "<script>alert('Din email adresse er ikke på vores liste!')</script>"
    else
            sql2="delete from emails where emails='"&Uemail&"'"
            conn.execute(sql2)
            response.write "<script>alert('Du vil ikke længere modtage vores nyhedsbreve - men du er altid velkommen til at tilmelde dig igen')</script>"
    end if

       
       
    end select
rs.close
set rs=nothing
end select

        Conn.Close
        Set Conn = nothing
%>
        <p>

        <table cellspacing="0" cellpadding="0" border="0">
        <tr>
        <td class="ddmenu6" valign="top"><img src="image/fra.gif" width="174" height="13" alt="" border="0"><br>
        <img src="image/sol.gif" width="174" height="13" alt="" border="0">
        </td></tr><tr><td class="ddtext4">Tilmeld dig vores nyhedsbreve
        <br><form name="subform" action="main.asp?action=save" method="post" onsubmit="return submitit()">
&nbsp;Indtast din email : <br><input class="inputBut" type="Text" name="email" size=22><br>
<input type="radio" name="subs" value="1" checked>Tilmeld
<input type="radio" name="subs" value="0">Afmeld &nbsp;&nbsp;&nbsp;&nbsp;<input class="inputSubmit" type="submit" name="submit" value="Send">


</form>


Pascinell
Avatar billede mm12010 Nybegynder
27. marts 2003 - 08:18 #1
Avatar billede pascinell Nybegynder
27. marts 2003 - 21:25 #2
Den har jeg kikket lidt på - og den er nok lige lidt for langhåret for mig :-)
Det jeg søger er en måde hvorpå jeg kan gemme den der tilmelder sig og samtidigt få en mail tilsendt.

Altså 2 forskellige action på formen - "action="main.asp?action=save"" og f.eks. "action="cgi-all/formmail/FormMail.pl" !!!!
Avatar billede pascinell Nybegynder
27. marts 2003 - 22:13 #3
Jeg fandt svaret selv....
Jeg tilføjer bare ... efter </form>

submit" name="submit" value="Send">
</form>
    <%
  Dim objMail
  ' Der laves en reference til komponenten
  Set objMail = Server.CreateObject("CDONTS.NewMail")
 
  ' Her indsættes div. informationer
    objmail.From = Request.Form("email")
  objMail.To = "emailadresse"
  objMail.Subject = "Nyhedsbrev"
  objMail.Body = Request.Form("subs")
  objmail.Host = "hotel"
  objMail.Send
 
  ' Her nulstilles objektet
  Set objMail = Nothing
%>

lukker
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester