VISUAL ARTIST /BEELDEND KUNSTENAAR 
EMA

   
   

 

NIEUWSBRIEF:

!verhuizing en opening eigen expositieruimte ! 

 



 ©  copyrights Marlies Vonk -The Netherlands

 

 

 

 

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