<%
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.
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
%>