Contact

<% If Request("Send") <> "" Then Dim strMail strMail = Request.form("mailtje") response.write strMail Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "smtp.is.nl" Mailer.ContentType = "text/html" Mailer.FromName = Request("FromName") Mailer.FromAddress = Request("To") Mailer.AddRecipient "Bos consultancy", "info@bos-consultancy.com" Mailer.AddBCC "Tobias", "tobias@bobsbar.nl" Mailer.Subject = Request("Subject") Mailer.BodyText = "Contactpersoon: " & Request("FromName") & "
Tel: " & Request("TEL") & "
Bedrijfsnaam: " & Request("COM") & "
Vraag opmerking:
" & Request("Body") Mailer.SendMail Response.write "Uw bericht is verzonden, we nemen z.s.m. contact met u op." set Mailer = nothing End If %>

Bedrijfsnaam:

Contactpersoon:

Telefoonnummer:

E-mail:

Uw vraag en/of opmerkingen:

   Contact