Hvordan tilføjer f.eks. formmail til mit asp script
HejJeg 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()">
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 <input class="inputSubmit" type="submit" name="submit" value="Send">
</form>
Pascinell
