<% Option Explicit ' Please fill out your own domainname here ... Const MY_DOMAINNAME = "zeevisland.com" ' Please fill out the name of your mailinglist here ... Const MY_MAILINGLIST = "zeevisland" ' The message displayed when subscribing succeeded Const SUBSCRIBE_SUCCES = "U bent nu aangemeld op de mailinglist." ' The message displayed when subscribing failed Const SUBSCRIBE_FAILURE = "Er is een fout opgetreden tijdens het aanmelden !\nProbeer het aub. opnieuw, of neem contact met de webmaster ..." ' The message displayed when UNsubscribing succeeded Const UNSUBSCRIBE_SUCCES = "U bent nu afgemeld van de mailinglist." ' The message displayed when UNsubscribing failed Const UNSUBSCRIBE_FAILURE = "Er is een fout opgetreden tijdens het afnmelden !\nProbeer het aub. opnieuw, of neem contact met de webmaster ..." ' The message displayed when no valid action is choosen (should never occur !) Const INVALID_ACTION = "U heeft een ongeldige actie gekozen !" Response.Buffer = True ' Turn buffering on Response.Expires = 0 ' Page expires immediately Response.CacheControl = "private" ' Try to ignore caching Server.ScriptTimeout = 10 ' Set ASP Timeout to 10 seconds Dim strScriptName : strScriptName = "http://www.zeevisland.com/index2.htm" 'Request.Servervariables("SCRIPT_NAME") ' Feel free to modify the HTML layout; but leave the FORM names & values & the JavaScript intact ... Public Sub ShowHTML() %> Nieuwsbrief


Nieuwsbrief

Aanmelden of Afmelden voor deze nieuwsbrief.

Vul in het onderstaande veld uw e-mailadres in en selecteer Aanmelden of Afmelden.


Deze Nieuwsbrief wordt via de e-mail verzonden.

" OnSubmit="return checkInput (this);"> Uw Emailadres: Aanmelden Afmelden


Onze nieuwsbrief wordt alleen verstuurd
als we echt iets te melden hebben !


Zijn er vragen ?
Mail naar:
Raffie@zeevisland.com

<% End Sub If LCase (Request.QueryString("Submit")) = "verstuur" Then Call Main (Request.QueryString ("txtEmail"), Request.QueryString("txtAction")) Else Call ShowHTML End If Public Sub Main(strEmail, strAction) Select Case LCase (strAction) Case "on" If SendMail (MY_MAILINGLIST & "-on@list." & MY_DOMAINNAME, strEmail) Then Response.Write ("") Else Response.Write ("") End If Case "off" If SendMail (MY_MAILINGLIST & "-off@list." & MY_DOMAINNAME, strEmail) Then Response.Write ("") Else Response.Write ("") End If Case Else: Response.Write ("") End Select End Sub Private Function SendMail (strRecipients, strEmail) Dim objJMail : Set objJMail = Server.CreateObject ("JMail.SMTPMail") With objJMail .ContentTransferEncoding = "utf-8" .ServerAddress = "localhost" .Subject = "mailing-subscribe" .ContentType = "text/plain" .Sender = strEmail .Sendername = strEmail .Silent = True .AddRecipient (strRecipients) .AppendText (strRecipients) If .Execute = True Then SendMail = True Else SendMail = False End If End With Set objJMail = nothing End Function %>