|
<%
email=Request.Form("email")
if len(email)>0 then
on error resume next
dim mymail
set mymail=server.CreateObject("cdonts.newmail")
mymail.from=email
mymail.to="news@bestmedia.cz"
mymail.subject="Zasílání novinek"
mymail.send
if err.number<>0 then
Response.Write ("Váš požadavek nebyl odeslán - zkuste znovu.")
err.clear
else
Response.Write ("Váš požadavek ")
Response.Write "z emailu: "&email&"
"
Response.Write ("byl odeslán - děkujeme za Vaši registraci.")
end if%>
">Návrat zpět<%
else%>
<%
end if%>
|
|