Contact KD BUILDING

<% If Trim(Request.Form("send"))<> "x" Then %>

Firma:	*
Contactpersoon:	*
Straat:
Gemeente:	postcode:
Land:
Tel:	+32 xx xx xx xx
GSM:	+32 xxx xx xx xx
E-mail:
Vraag/opmerking:

<% Else %> <% 'bewaren in DB firma= Trim(Request.Form("firma")) contact= Trim(Request.Form("contact")) straat= Trim(Request.Form("straat")) pc= Trim(Request.Form("pc")) gem= Trim(Request.Form("gem")) land= Trim(Request.Form("land")) tel= Trim(Request.Form("tel")) gsm= Trim(Request.Form("gsm")) email= Trim(Request.Form("email")) vraag= Trim(Request.Form("vraag")) ' MAILING set objMessage = createobject("cdo.message") set objConfig = createobject("cdo.configuration") ' Setting the SMTP Server Set Flds = objConfig.Fields Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail-out.hostbasket.com" Flds.update ' Build HTML for message body. strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "Contact formulier website:

" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "

firma	" & firma & "
contactpersoon	" & contact & "
straat	" & straat & "
postcode	" & pc & "
gemeente	" & gem & "
land	" & land & "
tel	" & tel & "
gsm	" & gsm & "
e-mail	" & email & "
vraag	" & vraag & "

" strHTML = strHTML & "

" & vbCRLF strHTML = strHTML & "Met vriendelijke groeten,
" & vbCRLF strHTML = strHTML & "KD BUILDING" & vbCRLF Set objMessage.Configuration = objConfig objMessage.To = "info@kdbuilding.be" 'objMessage.CC = "swebd@hotmail.com" 'objMessage.BCC = "swebd@hotmail.com" objMessage.From = """info@kdbuilding.be"" " objMessage.Subject = "Contact via de website kdbuilding.be" objMessage.HTMLBody = strHTML objMessage.fields.update objMessage.Send set objMessage = nothing set objConfig = nothing %>

Wij hebbben uw gegevens goed ontvangen en zullen u zo spoedig mogelijk contacteren.

Alvast bedankt voor het vertrouwen.

Met vriendelijke groeten,
KD BUILDING

<% End If %>

Contacteer ons:

POLAND	BELGIUM
Krystyna Wierzbicka	Danny Mondelaers
GSM +48 507 575 781	GSM +32 (0)478 96 27 08

Maatschappelijke zetel

ul. Ruska 51 B pok. 317

50-079 Wroclaw