<%@ LANGUAGE="VBScript" %> Stuy Advocaten <% test = Request( "verstuur") if test <> "" then opdracht="send email" else opdracht="input form" end if if opdracht = "send email" then 'Send mail Dim BodyText BodyText = "Gegevens " & CHR(13)&CHR(10) & "" bodytext = bodytext & "Bedrijfsnaam: " & request("bedrijfsnaam") bodytext = bodytext & CHR(13)&CHR(10) bodytext = bodytext & "Naam: " & request("naam") bodytext = bodytext & CHR(13)&CHR(10) bodytext = bodytext & "Adres: " & request("adres") bodytext = bodytext & CHR(13)&CHR(10) bodytext = bodytext & "Postcode en woonplaats: " & request("postcode") & request("woonplaats") bodytext = bodytext & CHR(13)&CHR(10) bodytext = bodytext & "Land: " & request("land") bodytext = bodytext & CHR(13)&CHR(10) bodytext = bodytext & "Telefoonnummer: " & request("telefoon") bodytext = bodytext & CHR(13)&CHR(10) bodytext = bodytext & "Fax: " & request("fax") bodytext = bodytext & CHR(13)&CHR(10) bodytext = bodytext & "E-mail: " & request("e-mail") bodytext = bodytext & CHR(13)&CHR(10) bodytext = bodytext & "Vraag: " & request("vraag") bodytext = bodytext & CHR(13)&CHR(10) set mailer = server.createobject("ABMailer.Mailman") mailer.MailDate = NOW mailer.mailsubject = "De aanvraag" & NOW mailer.ReplyTo = "site@advocaten-incasso.com" mailer.SendTo ="info@advocaten-incasso.com" mailer.ServerAddr = "195.7.209.66" mailer.ServerPort = 25 mailer.MailMessage = bodytext mailer.sendmail set mailer = Nothing %>








Your message has been sent...



Click here to go back...

<% else %>




If you have any questions, you can make use of our e-mail page. If you would prefer a personal answer to your question, we will contact you at your request. You may also use this procedure to enquire about collection fees, etc.

Company name
Contact
Address
Postal code and town  
Country
Telephone
Fax
E-mail
Your question
 
<% end if %>