<% set dbMailing = Server.CreateObject("ADODB.Connection") dbMailing.Provider="Microsoft.Jet.OLEDB.4.0" dbMailing.Open Server.MapPath("../data/mailing.mdb") if request.querystring("offset") = "1" then txtNaam = replace(request.form("txtNaam"), "'", "''") txtVoornaam = replace(request.form("txtVoornaam"), "'", "''") txtEmailadres = replace(request.form("txtEmailadres"), "'", "''") Set RegularExpressionObject = New RegExp errorGevonden = false if txtEmailadres = "" then strEmailadres = "gelieve een e-mailadres op te geven" errorGevonden = true else With RegularExpressionObject .Pattern = "^[\w-]+(?:\.[\w-]+)*@(?:[\w-]+\.)+[a-zA-Z]{2,7}$" .IgnoreCase = False .Global = True End With if RegularExpressionObject.test(txtEmailadres) = false then strEmailadres = "gelieve een geldig e-mailadres op te geven" errorGevonden = true else Set RecControle = dbMailing.execute("SELECT * FROM member WHERE email LIKE '"&txtEmailadres&"'") if not RecControle.EOF then strEmailadres = "dit e-mailadres is reeds ingeschreven voor nieuwsbrief" errorGevonden = true end if end if end if if errorGevonden = false then dbMailing.execute("INSERT INTO member (email, voornaam, achternaam) VALUES ('"&lcase(txtEmailadres)&"', '"&txtVoornaam&"', '"&txtNaam&"')") Set RecLaatsteMember = dbMailing.execute("SELECT TOP 1 * FROM member ORDER BY id DESC") dbMailing.execute("INSERT INTO member_per_groep (member_id, groep_id) VALUES ("&RecLaatsteMember("id")&", 43)") Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "relay.ix.combell-ops.net" Mail.From = txtEmailadres Mail.AddAddress "nieuwsbrief@kortrijk-shopt.be", "" Mail.Subject = "Inschrijving nieuwsbrief Kortrijk-shopt.be" bericht = "" bericht = bericht & "" bericht = bericht & "" bericht = bericht & "" bericht = bericht & "" bericht = bericht & "" bericht = bericht & "" bericht = bericht & "" bericht = bericht & "" bericht = bericht & "" bericht = bericht & "" bericht = bericht & "" bericht = bericht & "" bericht = bericht & "" bericht = bericht & "" bericht = bericht & "" bericht = bericht & "" bericht = bericht & "" bericht = bericht & "" bericht = bericht & "" bericht = bericht & "
Volgende persoon heeft zich ingeschreven voor de nieuwsbrief van Kortrijk-Shopt:
 
Naam:"&txtNaam&"
Voornaam:"&txtVoornaam&"
Emailadres:"&txtEmailadres&"
" Mail.Body = bericht Mail.IsHTML = True Mail.Send Set Mail = nothing end if end if %> Inschrijven nieuwsbrief Kortrijk-shopt.be