BEELDEND KUNSTENAAR EMA

Workshop Levensgroot Groepsportret maken

Deelname Open Stal 2010

last update:July 2010
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 %>