% @ LANGUAGE="VBSCRIPT" %> <% Option Explicit Dim recipient, subject, allevars, mymail, x, status, re, isValidEmail Dim isNaamVerkeerd, isEmailVerkeerd, isOnderwerpVerkeerd, isBerichtVerkeerd isValidEmail = True 'Verzamel alle velden van het formulier. Deze komen vervolgens in de body van de email te staan. allevars = "" 'For each x in Request.Form ' allevars = allevars & x & "=""" & TRIM(Request(x)) & """" & vbcrlf 'Next allevars = "Naam: " & TRIM(Request.Form("naam")) & vbcrlf allevars = allevars & "Email: " & TRIM(Request.Form("email")) & vbcrlf allevars = allevars & "Telefoon: " & TRIM(Request.Form("telefoon")) & vbcrlf & vbcrlf allevars = allevars & "Onderwerp: " & TRIM(Request.Form("onderwerp")) & vbcrlf & vbcrlf allevars = allevars & "Bericht: " & vbcrlf & TRIM(Request.Form("bericht")) & vbcrlf & vbcrlf If request.Form("send") <> "" Then 'TODO sanity check vars + regex email addresss isValidEmail = False Set re = new RegExp 're.pattern = "^\w+@[a-zA-Z_]+?\.[a-zA-Z]{2,3}$" re.IgnoreCase = False re.Pattern = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$" isValidEmail = re.Test(TRIM(Request.Form("email"))) If Len(TRIM(Request.Form("naam"))) = 0 Or Len(TRIM(Request.Form("naam"))) > 50 Then isNaamVerkeerd = True End If If Len(TRIM(Request.Form("email"))) = 0 Or Len(TRIM(Request.Form("email"))) > 100 Then isEmailVerkeerd = True End If If Len(TRIM(Request.Form("onderwerp"))) = 0 Or Len(TRIM(Request.Form("onderwerp"))) > 100 Then isOnderwerpVerkeerd = True End If If Len(TRIM(Request.Form("bericht"))) = 0 Or Len(TRIM(Request.Form("bericht"))) > 3000 Then isBerichtVerkeerd = True End If If isValidEmail And Not isNaamVerkeerd And Not isEmailVerkeerd And Not isOnderwerpVerkeerd And Not isBerichtVerkeerd Then subject = "Bericht van de Brabant Rubber website" Set myMail = Server.CreateObject( "CDONTS.NewMail" ) myMail.From = request("email") myMail.To = "info@brabantrubber.nl" myMail.Cc = "" myMail.Bcc = "" MyMail.Subject = subject myMail.Body = allevars myMail.Send Set myMail = Nothing status = 1 End If End If %>
|